Неправильный ты md5sum своих 4-х цифр номера привёл, поскольку не нашлись они таким скриптиком: #!/usr/bin/perl -w use strict; use Digest::MD5 qw(md5 md5_hex md5_base64); my $i; my $digest="668efdfc7e48330c51442ec4ede885d1"; for ($i=1;$i<100000;$i++) { if ((md5_hex($i) eq $digest)or(md5_hex("$i\n") eq $digest)) { print "n == $i\n"; } } P.S. С МТС я никак не связан ;-)