MD5

[AlieN]

Помогите найти пример работы перла с мд5

[AlieN]

зы: по поиску мд5 упоминается тока в пхп

[NeoNox]

perldoc md5

[NeoNox]

А вообще, есть куча модулей на CPAN по этому делу. Глянь на этот Crypt-PasswdMD5 http://www.cpan.org/authors/id/L/LU/LUISMUNOZ/Crypt-PasswdMD5-1.2.tar.gz

[AlieN]

NeoNox
Спасибо уже разобрался: на цпане какой-то модуль скачал...

Теперь уже вопрос алгоритма,может кто занимался:
надо написать подбиратель паролей
аля:
чтоб скрипт генерил пароли вот так
a,b..,z,aa,ab,ac,..az,ba...bz,и т.д.

[Serchey]

Проблема не скрипт написать, проблема в подстановке  167961600000000 комбинаций(по скромным подсчетам) только для 8-изначного пароля . Я бы на твоем месте занялся(и занимаюсь пока по чуть-чуть) криптоанализом...

[GotZfild]

AlieN
Это бесполезно. По молодости мне тоже ударила в голову такая идея. Сначала написал на PHP: чуть сервер не угробил, потом на C - также результатов, как понимаешь, не принесло.
[off]Ты что это на Perl пересел? [/off]

[AlieN]

GotZfild
Гы,
дай на пхп сурс плз
[OFF]Нет, просто он работать будет быстрее с мд5[/OFF]

[dymka]

хм... если только буквы маленького регистра и пароль ровно из 8 букв, то комбинаций 26**8 ~ 2е11... мда... допустим миллион паролей в секунду сравнивает. 200000 секунд где-то 2.5 дня...
а если 16 буковок и используем скажем символов 96, то
96**16 ~ 5е31.... также миллион подборов в секунду, то время нужно 1.65е18 лет....
Ес что, то наша вселенная существует где-то 1.6е10 лет и по прогнозам теоретиков врядли достигнет возраста 1е12 лет...
не... прямой подбор не то это...

[AliMamed]

[off]> Нет, просто он работать будет быстрее с мд5
а куда торопишься? подбираешь? =)[/off]

[NeoNox]

@words=(a..zz);# z вставь такое количество, которое нужно перебрать
foreach $word(@words){
print $word;
}

[GotZfild]

NeoNox
А если пароль разрешает содержать не только буквы латинского алфавита в нижнем регистре?
AlieN
Писал давно, не сохранилось. . Если найду, обязательну скину в ПС. Помню, делал там через chr()

[AlieN]

NeoNox
Нужно ещё различие регистров + символы подчеркивания и пробелы

[Serchey]

Alien, вот тебе скрипт генерящий ровное число символов, также сравнивающий результат(саб test(). Но мой тебе совет - не иди в тупую, займись лучше криптоанализом.


#!/usr/bin/perl -w
use strict;

my $len = 7;
my $time_to_die = 0;
my $pass = \'Serchey\';
my @chars = (\'a\'..\'z\',\'A\'..\'Z\',\'0\'..\'9\',\' \',\'_\');
my ($temp,$temp2,$test_pass,$temp_count);
my $count = 0;

until($time_to_die){
 $temp = $len;
 $test_pass = \'\';
 $temp_count = $count;
 foreach(1..$temp){
  $temp--;
  $temp2 = scalar(@chars)**$temp;
  $test_pass.=$chars[int($temp_count/$temp2)];
  $temp_count-=int($temp_count/$temp2)*$temp2;
 }
 $count++;
 $time_to_die = test($test_pass,$pass);
}

sub test {
 my $word = shift;
 my $pass = shift;
 return 1 if $word eq $pass;
 return 0;
}

print "\\nPassword: $test_pass. Cycle: $count.\\n";

[AlieN]

займись лучше криптоанализом.

шифрованный мд5 анализировать?