серверная аутентификация

 
0
 
Perl
ava
Сisa | 29.03.2013, 21:48
Чтобы не изобретать велосипед,
но не использовать инсталлируемые библиотеки и  модули CPAN и ActivePerl такие например как
Crypt::OpenSSL::RSA, MIME::Base64, Crypt::RSA и т.п. ,
не будете ли Вы столь любезны указать ссылку на действующий пример,
или, если имеется, приложить архив.

 smile 
Kommentare (2)
ava
Сisa | 30.03.2013, 16:19 #
Pfailed спасибо!

Не густо.
Все исходники, что удалось найти, на других языках.
Perl ориентирован на выше указанные модули, которые не очень то ActivePerl любит, например Crypt::RSA.
http://forum.vingrad.ru/forum/topic-338250/kw-perl-rsa.html никак не помогает.

Остался путь,
(ДАО можно сказать)
и начинать придется с начала:

use Math::BigInt;
#use bignum;
$a='12654651698465168746851357465465164525143366515665445765746657166503872913244582739842456571327819382013905456458421436531462532713765948789046041651032710320195406501320032987041569406519605193821069540654905610651980654903455487846789215451516465165816546519612000000000000000000';
$b='11265451651345567218327619320132183251632321432154324618518968074891058910695468485156238';
print $a+$b, "\n \n"; # чепуха !
print $a-$b, "\n \n"; # чепуха !

sub minus {my($a,$b)[email protected]_;my($x,$z,@r,@r2,$j,$j2,$n)=(0,'');
loo:@r=split('',$a);@r2=split('',$b);
 ($j,$j2)=(length($a),length($b));
for($j--;$j2--;$j--){
  $x=$r[$j]-$r2[$j2];
  if($r[$j]<$r2[$j2]){$n=1;
   while(1){if($r[$j-$n]>0){$r[$j-$n]=$r[$j-$n]-1;last;}
    $r[$j-$n]=9;if(++$n>$j){($a,$b)=($b,$a);$z='-';goto loo;}
   }$x=10+$r[$j]-$r2[$j2];
  }$r[$j]=$x;
}
 $x= join('',@r);
 $x=~ /[0]*(\d*)/;
return $z.$1;
}

print &minus($a,$b), "\n";
print &minus($b,$a), "\n";
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
  Pfailed   Сisa
advanced
Absenden