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__
Back to
Craft