49.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my ($val1, $val2) = (1, 1);
   6 my $iter = 0;
   7 my $subj1 = 7;
   8 my $subj2 = 7;
   9 my ($pub1, $pub2) = @ARGV;
  10
  11 while (++$iter) {
  12         $val1 *= $subj1;
  13         $val2 *= $subj2;
  14         $val1 %= 20201227;
  15         $val2 %= 20201227;
  16         if ($val1 == $pub1) {
  17                 print "$iter loops for subj1\n";
  18                 $val1 = $pub2;
  19                 for (2 .. $iter) {
  20                         $val1 *= $pub2;
  21                         $val1 %= 20201227;
  22                 }
  23                 print "key=$val1\n";
  24         }
  25         if ($val2 == $pub2) {
  26                 print "$iter loops for subj2\n";
  27                 $val2 = $pub1;
  28                 for (2 .. $iter) {
  29                         $val2 *= $pub1;
  30                         $val2 %= 20201227;
  31                 }
  32                 print "key=$val2\n";
  33         }
  34 }
  35