SacaCorchos Porfin Ve la Luz

Pues ya fue publicado en el foro de elhacker.net
------------------------------------------------------------------------------------------
Sacacorchos v 1.0 by Psymera

Sacacorchos es un programa orientado a obtener la configuración de los troyanos mas comunes.

Está hecho de modo que cualquiera pueda hacer un nuevo plugin para leer la configuración de un troyano no soportado y compartirlo con el resto de la comunidad.

El plugin se puede hacer en el lenguaje que se quiera, es una dll que tiene que soportar ciertas funciones. En la descarga se adjunta el código de plugins en C y delphi.

------------------------------------------------------------------------------------------
haci ke aki dejo el link junto con el link de descarga
Foro El Hacker
Descarga SacaCorchos
Veamos kien se anima ah coperar en el proyecto

SacaCorchos Una Realidad!!!!!

Despues de otra Horitas mas de Codeo
Porfin termine la Gui del SacaCorchos
Solo es esperar ah darle los toques finales en el aspecto visual
Mientras Thor Esta Creando los Dll Para mas al Rato "Esperemos" Salga Ah la Luz Publica
Esperemos que mas gente copere con este proyecto
Bueno creo que valio la pena la desvelada del dia de hoy
Kiddios Tiemblen Que SacaCorchos Llego para revelar sus Configs xD

SacaCorchos casi una realidad

Bueno despues de varios dias si no es que semanas xD
Porfin me puse ah terminar el SacaCorchos
Son las 3:35 am y llevo un 90% del programa
Ya solo falta unos toques finales para mandarleso al Thor
Si le Late pues ya sera el Comienzo de un Gran Proyecto :p
Haci Que espero terminarlo en menos de un par de Horas
Luego se enteraran de que trata el SacaCorchos

Irc Bot Simple

Bueno este es un codigo que desarrolle como ejemplo de un bot simple en delphi
Para el foro de Indetectables

-------------------------------------------------------------------------------------------------

program Demo;
{*/
**/ Name: DemoIrcBot
**/ Ver: 1.0
**/ Created By: Psymera
**/ Date: Jul 2007
**/ Created For: Indetectables.net
/*}

{$DEFINE DEBUG}

{$IFDEF DEBUG}
{$APPTYPE CONSOLE}
{$ENDIF}

uses
Windows,
Winsock,
StrUtils,
SysUtils;

var
Wsa: WSADATA;
RHost: sockaddr_in;
Sock: TSocket;
Status: Integer;
Hostent: PHostent;
Ip: ^integer;
Buff: Array[0..1024] of Char;
Buff2: String;

Const
Adm: String= 'Psymera';
Room: String= '#indetectables';
Serv: String= 'irc.zirc.org';
BNick: String= 'IRCBotDemo';
CCMDS: String= '#';

Procedure SockSend(Msg: PChar);
Begin
{$IFDEF DEBUG}
WriteLn(Msg);
{$ENDIF}
Send(Sock, Addr(Msg[0])^, Length(Msg), 0);
end;

//-----------------Comandos-----------------//
Procedure MsgPub(Msg: String);
Var
MTmp: String;
Begin
MTmp:= RightStr(Msg, Integer(StrLen(PChar(Msg))-5));
MTmp:= Trim(MTmp);
SockSend(PChar('PRIVMSG '+ Room+ ' '+ MTmp+ #13#10));

end;

Procedure MsgPriv(Msg: String);
Var
MsTmp, NTmp, MTmp: String;
Begin
MsTmp:= RightStr(Msg, Integer(StrLen(PChar(Msg))-8));
NTmp:= LeftStr(MsTmp, Pos(' ', MsTmp));
MTmp:= RightStr(MsTmp, Integer(StrLen(PChar(MsTmp))-StrLen(Pchar(NTmp))));
NTmp:= Trim(NTmp);
MTmp:= Trim(MTmp);
SockSend(PChar('PRIVMSG '+ NTmp+ ' '+ MTmp+ #13#10));

end;
//----------------/Comandos-----------------//

//----------------Control De Comandos-------//
Procedure ParseCmd(CMD: String);
Begin
if Pos('msg ', CMD) = 2 then
MsgPub(CMD);

if Pos('msgpri ', CMD) = 2 then
MsgPriv(CMD);

if Pos('quit', CMD) = 2 then
CloseSocket(Sock);

end;
//---------------/Control De Comandos-------//

Procedure Parse();
Var
Nick, Msg, CMD: String;
PvP: Integer;
PuP: Integer;

Begin
Buff2:= Buff;
if Pos('PING', Buff2)=1 then
Begin
Msg:= 'PONG ';
Msg:= Msg+ RightStr(Buff2, (Integer(StrLen(PChar(Buff2)))-7));
Msg:= Msg+ #13#10;
SockSend(PChar(Msg));
end;

Nick:= MidStr(Buff2, 2, (Pos('!',Buff2)-2));
PvP:= Pos('PRIVMSG '+ BNick+ ' :', Buff2);
PuP:= Pos('PRIVMSG '+ Room+ ' :', Buff2);

if Nick 0 then
Begin
PvP:= PvP+ 9+ Integer(StrLen(PChar(BNick)));
CMD:= RightStr(Buff2, Integer(StrLen(PChar(Buff2)))- PvP);
CMD:= Trim(Cmd);
if Pos(CCMDS, CMD) = 1 then
Begin
{$IFDEF DEBUG}
WriteLn('Privado: '+ Nick+ ':'+ CMD);
{$ENDIF}
ParseCmd(CMD);

end;

end;

if PuP>0 then
Begin
PuP:= PuP+ 9+ Integer(StrLen(PChar(Room)));
CMD:= RightStr(Buff2, Integer(StrLen(PChar(Buff2)))- PuP);
CMD:= Trim(Cmd);
if Pos(CCMDS, CMD) = 1 then
Begin
{$IFDEF DEBUG}
WriteLn('Publico: '+ Nick+ ':'+ CMD);
{$ENDIF}
ParseCmd(CMD);

end;

end;

Buff:= '';

end;

begin
{$IFDEF DEBUG}
WriteLn('IrcBot Demo By Psymera');
{$ENDIF}
WSAStartup(MakeWord(2,2), wsa);
Sock:= SOCKET(AF_INET, SOCK_STREAM, 0);
Hostent:= getHostByName(PChar(Serv));
Ip:= @Hostent.h_addr_list^[0];
RHost.sin_family:= AF_INET;
RHost.sin_port:= htons(6667);
RHost.sin_addr.S_addr:= ip^;
Status:= Connect(Sock, RHost, Sizeof(RHost));

if (Status <> 0) then
Begin
{$IFDEF DEBUG}
WriteLn('Error al Conectar');
ReadLn;
{$ENDIF}
Exit;
end;

{$IFDEF DEBUG}
WriteLn('Conectado');
{$ENDIF}

SockSend(PChar('NICK '+ BNick+ #13#10));
SockSend('USER IrcBotDemo IrcBotDemo IrcBotDemo IrcBotDemo'#13#10);
SockSend('JOIN #indetectables'#13#10);
while True do
Begin
Status:= recv(Sock, Buff, sizeof(Buff), 0);
Parse;
if (Status = -1) then
Break;

end;
{$IFDEF DEBUG}
WriteLn('Desconectado');
ReadLn;
{$ENDIF}

end.
-------------------------------------------------------------------------------------------------

Viejos Advisorys

El Primer advisory ke publike de eso ya hace mas de dos años :p

http://www.securityfocus.com/archive/1/410158