Ergebnis 1 bis 2 von 2
  1. #1

    Standard md5 Perl Bruteforcer

    Code:
    #!/usr/bin/perl
    
    print q{
    -[---------------------------------------------------------------------
    
    -]-
    
                              RooT Md5 Database Online
                              http://www.free-hack.com
                     Greetz to FrEe, LordBlubb, Kugelblitz & Rip
    
    -[---------------------------------------------------------------------
    
    -]-
    
    };
    
    use IO::Socket;
    
    print q(
    RooT Md5 Database Online
    );
    
    print q(
    ° Euer Hash hier!! - Beispiel : 670b14728ad9902aecba32e22fa4f6bd
    ° Md5 Hash: );
    $hash=<STDIN>;
    chop ($hash);
    
    $url= "gdataonline.com";
    $host = "$url"."/qkhash.php?mode=txt&hash=";
    $postit = "$host"."$hash";
    
    $lrg = length $postit;
    
    
    my $sock = new IO::Socket::INET (
                                     PeerAddr => "$url",
                                     PeerPort => "80",
                                     Proto => "tcp",
                                    );
    
    die "\nConnection Refused : $!\n" unless $sock;
    
    print $sock "POST /qkhash.php?mode=txt&hash="."$hash"." HTTP/1.1\n";
    print $sock "Host: $url\n";
    print $sock "Accept: 
    
    text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/pla
    
    in;q=0.8,image/png,*/*;q=0.5\n";
    print $sock "Referer: $url\n";
    print $sock "Accept-Language: en-us\n";
    print $sock "Content-Type: application/x-www-form-urlencoded\n";
    print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; 
    
    rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n";
    print $sock "Content-Length: $lrg\n\n";
    print $sock "$postit\n";
    close($sock);
    
    use LWP::Simple;
    
    $res = "http://"."$url"."/qkhash.php?mode=xml&hash="."$hash";
    $results = get($res);
    print "\n"."$results"."\n\n";

    [...]monkey see monkey do
    dont ever make the first move
    just let em' come to you
    cause they always gunna see and do what the other one do
    so let em' come to you
    the rest of us follow suit
    monkey see monkey do
    [...]


  2. #2
    Bongo Mongo Avatar von locos
    Registriert seit
    20.02.2006
    Beiträge
    195

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •