Psy Tools xP

Bien nenas ahora decidi soltar dos tools ke hize en php o si nenas hace ya mas de un año XD
y pues bueno aka estan para ke aprendan como se okupa el php xP
Proxy Terminal
phpbb Downloader

Anti AV Tools V1.0

Pues bueno aki les dejo mi nuevo juguetito publico
una herramienta parecida al signature zero
Si no saben que es, es una herramienta para sacar las firmas ke los antivirus detectan en algunas herramientas detectadas xP
soporta 100 firmas
bien aki esta el link de descarga xP
http://depositfiles.com/files/8232756

Como es un verdadero pentest

Bueno el siguiente texto lo aye en un pdf que leo actualmente y pues es compeltamente sierto
Haci que niños comprendan lo que e sun verdadero pentest xP

We refer to the real penetration tests to describe complex real-like attacks not just automatic scan
based analysis capable of detecting just an existence of a potential, well known vulnerability. The
goal of real penetration tests is to show that combination of small mistakes in configuration of
firewall, network architecture and software implementation may lead not only to theoretical but
also to practical compromise of the whole infrastructure. The successful result of the penetration
test is usually the best way (and in some cases the only one) for proving that threats are serious
and security mechanisms require some improvements.

Un Advisory mas xD

Bien chavos un advisory mas para el curriculum xD
Ta muy patito pero es una empresa de videgays digo videogames XD
Coreana xD
Pues hay lo dejo http://www.securityfocus.com/archive/1/493252
Pues aver ke mas pasa

365 dias mas xD

Buenoe sta entrada es por ke hoy cumplo un año mas de añejamiento XD
Haci ke se aceptan 0days de regalo xD
Pues no hay mas ke decir solo ek seguire vaciadno esa tella de whisky yo solo xD

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