X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=perl%2Frsa.pl;fp=perl%2Frsa.pl;h=522be22e1a79895d44acff37f5e8074e08e316a7;hb=ecdf2356b7be385b56c237a07738ce1b895d2756;hp=c442c6eae2e659fea8f4cd480139546bdc18f9f8;hpb=cbca6c3bd331b1fb6539029efefef5ea80d6b932;p=mirrors%2FPrograms.git

diff --git a/perl/rsa.pl b/perl/rsa.pl
index c442c6e..522be22 100755
--- a/perl/rsa.pl
+++ b/perl/rsa.pl
@@ -44,4 +44,6 @@ my $msg=1337;
 my $enc=rsa($msg,$n,$e); #encrypt
 	print "ENC: $enc\n";
 my $dec=rsa($enc,$n,$d); #decrypt
-	print "DEC: $dec\nTST: ".$msg.($msg==$dec?"=":"!=").$dec."\n";
+	$test=($msg==$dec);
+	print "DEC: $dec\nTST: ".$msg.($test?"=":"!=").$dec."\n";
+	exit !$test;