Select Code to Download

until ($numcount==24) {
$pass = @list[$count3].@list[$count2].@list[$count1]; #a combination o
+f three letters
$foo = "@s[$numcount]"; #a ASCII character to try to decrypt
...
push @lister,$karp;
$numcount++;
}

0M@O@KKHM@ILBHAHIHILABCLANLJKKCLNLANMOHJHNKHHM@BLMAM@BLMHIAKIMHHNKKH -
+- zyy
0M@O@KKHM@ILBHAHIHILABCLANLJKKCLNLANMOHJHNKHHM@BLMAM@BLMHIAKIMHHNKKH -
+- zyz
0MCOCKHHMCIOBHBHJHILBBCLBNOJKHCLMLBNMOHIHMKHKMCBOMBMCBOMKIBKJMKHMKHH -
+- zza
0MCOCKHHMCIOBHBHJHILBBCLBNOJKHCLMLBNMOHIHMKHKMCBOMBMCBOMKIBKJMKHMKHH -
+- zzb

#!/usr/bin/perl

use Math::XOR;
...
$count2=0;
$count3++;
}