1: #!/usr/bin/perl
2: $dongle=chr(65);$dongle.=chr(81);$dongle.=chr(82);$dongle.=chr(84);
3: $dongle.=chr(66);$dongle.=chr(72);$dongle.=chr(80);
4: $dongle.=chr(90);$dongle.=chr(101);$dongle.=chr(37);$dongle.=chr(152);
5: $dongle.=chr(129);
6: $dongle.=chr(76);$dongle.=chr(140); $dongle.=chr(145);
7: $dongle.=chr(74);$dongle.=chr(157);$dongle.=chr(143);
8: $dongle.=chr(168);$dongle.=chr(135);$dongle.=chr(79);$dongle.=chr(165);
9: $dongle.=chr(85);
10: $dongle.=chr(159); $dongle.=chr(148);
11: $dongle.=chr(78);
12: $dongle.=chr(188); $dongle.=chr(195);
13: $dongle.=chr(181);$glurp=substr($dongle,0,1);$kernada=substr($dongle,2,2);
14: $hurg=substr($dongle,6,1);$grag=substr($dongle,8,1);
15: $rearg=substr($dongle,12,1);$bungus=substr($dongle,15,1);
16: $mcchungus=substr($dongle,20,1);
17: $blargus=substr($dongle,22,1);$gaffer=substr($dongle,-4,1);
18: $goohnah=substr($dongle,5,1);
19: $poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;$poobah.=$grag;$poobah.=$rearg;
20: $poobah.=$bungus;$poobah.=$mcchungus;$poobah.=$blargus;
21: $poobah.=$gaffer;$poobah.=$goohnah;$glurp=unpack("x2 A1",$poobah);
22: $kernada=unpack("x10 A1",$poobah);$hurg=unpack("x4 A1",$poobah);
23: $grag=unpack("x3 A1",$poobah);$rearg=unpack("x4 A1",$poobah);
24: $bungus=unpack("x1 A1",$poobah);
25: $mcchungus=unpack("x5 A1",$poobah);$blargus=unpack("x6 A1",$poobah);
26:
27:
28: $gaffer=unpack("x7 A1",$poobah);
29: $goohnah=unpack("x8 A1",$poobah);
30: $gringo=unpack("x1 A1",$poobah);$foo=unpack("x9 A1",$poobah);
31: $bar=unpack("x0 A1",$poobah);
32: $baz=unpack("x5 A1",$poobah);$poobah=$glurp;$poobah.=$kernada;$poobah.=$hurg;
33: $poobah.=" ";$poobah.=$grag;$poobah.=$rearg;$poobah.=$bungus;
34: $poobah.=$mcchungus;
35: $poobah.=" ";$poobah.=$blargus;
36: $poobah.=$gaffer;$poobah.=$goohnah;
37: $poobah.=$gringo; $poobah.=$foo;
38: $poobah.=$bar;
39: $poobah.=$baz; $poobah=uc($poobah);
40: print $poobah;$coorg=<stdin>;
41: __END__