fork download
copy 
  1.  
  2.  
  3. @itab = ( # table order
  4. 0,2,1,0,2,1,2,1,1,2,1,2,0,1,2,1,
  5. 0,1,2,1,0,0,2,1,1,2,0,1,2,1,1,2,
  6. 0,0,1,2,1,2,1,0,1,0,0,2,1,0,1,2,
  7. 0,1,2,1,0,0,2,1,1,0,0,2,1,0,1,2);
  8.  
  9. @dectab0 = ( # tables to decrypt
  10. "\x00","\x01","\x02","\x03","\x04","\x05","\x06","\x07","\x08","\x57","\x0A","\x0B","\x0C","\x0D","\x0E","\x0F",
  11. "\x10","\x11","\x12","\x13","\x14","\x15","\x16","\x17","\x18","\x19","\x1A","\x1B","\x1C","\x1D","\x1E","\x1F",
  12. "\x2E","\x47","\x7A","\x56","\x42","\x6A","\x2F","\x26","\x49","\x41","\x34","\x32","\x5B","\x76","\x72","\x43",
  13. "\x38","\x39","\x70","\x45","\x68","\x71","\x4F","\x09","\x62","\x44","\x23","\x75","\x3C","\x7E","\x3E","\x5E",
  14. "\xFF","\x77","\x4A","\x61","\x5D","\x22","\x4B","\x6F","\x4E","\x3B","\x4C","\x50","\x67","\x2A","\x7D","\x74",
  15. "\x54","\x2B","\x2D","\x2C","\x30","\x6E","\x6B","\x66","\x35","\x25","\x21","\x64","\x4D","\x52","\x63","\x3F",
  16. "\x7B","\x78","\x29","\x28","\x73","\x59","\x33","\x7F","\x6D","\x55","\x53","\x7C","\x3A","\x5F","\x65","\x46",
  17. "\x58","\x31","\x69","\x6C","\x5A","\x48","\x27","\x5C","\x3D","\x24","\x79","\x37","\x60","\x51","\x20","\x36");
  18.  
  19. @dectab1 = (
  20. "\x00","\x01","\x02","\x03","\x04","\x05","\x06","\x07","\x08","\x7B","\x0A","\x0B","\x0C","\x0D","\x0E","\x0F",
  21. "\x10","\x11","\x12","\x13","\x14","\x15","\x16","\x17","\x18","\x19","\x1A","\x1B","\x1C","\x1D","\x1E","\x1F",
  22. "\x32","\x30","\x21","\x29","\x5B","\x38","\x33","\x3D","\x58","\x3A","\x35","\x65","\x39","\x5C","\x56","\x73",
  23. "\x66","\x4E","\x45","\x6B","\x62","\x59","\x78","\x5E","\x7D","\x4A","\x6D","\x71","\x3C","\x60","\x3E","\x53",
  24. "\xFF","\x42","\x27","\x48","\x72","\x75","\x31","\x37","\x4D","\x52","\x22","\x54","\x6A","\x47","\x64","\x2D",
  25. "\x20","\x7F","\x2E","\x4C","\x5D","\x7E","\x6C","\x6F","\x79","\x74","\x43","\x26","\x76","\x25","\x24","\x2B",
  26. "\x28","\x23","\x41","\x34","\x09","\x2A","\x44","\x3F","\x77","\x3B","\x55","\x69","\x61","\x63","\x50","\x67",
  27. "\x51","\x49","\x4F","\x46","\x68","\x7C","\x36","\x70","\x6E","\x7A","\x2F","\x5F","\x4B","\x5A","\x2C","\x57");
  28.  
  29. @dectab2 = (
  30. "\x00","\x01","\x02","\x03","\x04","\x05","\x06","\x07","\x08","\x6E","\x0A","\x0B","\x0C","\x06","\x0E","\x0F",
  31. "\x10","\x11","\x12","\x13","\x14","\x15","\x16","\x17","\x18","\x19","\x1A","\x1B","\x1C","\x1D","\x1E","\x1F",
  32. "\x2D","\x75","\x52","\x60","\x71","\x5E","\x49","\x5C","\x62","\x7D","\x29","\x36","\x20","\x7C","\x7A","\x7F",
  33. "\x6B","\x63","\x33","\x2B","\x68","\x51","\x66","\x76","\x31","\x64","\x54","\x43","\x3C","\x3A","\x3E","\x7E",
  34. "\xFF","\x45","\x2C","\x2A","\x74","\x27","\x37","\x44","\x79","\x59","\x2F","\x6F","\x26","\x72","\x6A","\x39",
  35. "\x7B","\x3F","\x38","\x77","\x67","\x53","\x47","\x34","\x78","\x5D","\x30","\x23","\x5A","\x5B","\x6C","\x48",
  36. "\x55","\x70","\x69","\x2E","\x4C","\x21","\x24","\x4E","\x50","\x09","\x56","\x73","\x35","\x61","\x4B","\x58",
  37. "\x3B","\x57","\x22","\x6D","\x4D","\x25","\x28","\x46","\x4A","\x32","\x41","\x3D","\x5F","\x4F","\x42","\x65");
  38.  
  39. $_ = join('',"#@~^pwEAAA==W!x^DkKxP^WTrxvPWWM:~b@&	@&i&z,?+D~OtP!/nDUCs+~l	[PalddSWD[~7l.km8^+d@&d7lD,EknD	lh+,'~WKD:c;/DR7CsE@&i\CD~2m/dhK.N,'~WKD: 2m/dR7C^En@&@&izz,Z4nm0P;/DUCs+PmUN,wlkdAWMNcP@&drW,`~`,;/DUCs+Pxx,?ODbUTRWMWsZtmD;GN`~FZvSq8F~8TcBFFZSqFZ~8 qPb~*P'[,cPalddSWD[~{'~?D.bxLc0MW:;tm.ZKNn`,FT{BF!8S,R~,FS1%,#,#~#@&7P@&7dknY:khnKEYc~rVGmmObWUcDwVmmcPEJQwm/dAKDN3ERatwE~bir~,!~#I@&i8@&ds/@&7`@&ddCsDO`,EIW;,lM+PSDKUocJ~#p@&7N@&8A3wAAA==^#~@");
  40. (m/\Q#@~^\E/ and $_ = $') or die "Start marker not found\n";
  41. (m/\Q^#~@\E/ and $_ = $`) or die "End marker not found\n";
  42. # We do not check leading checksum. Is trailing checksum always present?
  43. (m/^[A-Za-z0-9+\/]{6}==/ and $_ = $') or die "No leading checksum\n";
  44. (m/[A-Za-z0-9+\/]{6}==$/ and $_ = $`); # or die "No trailing checksum\n";
  45.  
  46. $pos = 0; # decrypt encrypted block
  47. $special = 0;
  48.  
  49. foreach (split //) {
  50. if ($special) {
  51. $special = 0;
  52. tr/&#!*$/\n\r<>@/;
  53. }
  54. elsif ($_ lt "\x80") { # encrypted?
  55. if ($itab[$pos] == 0) { $_ = $dectab0[ord($_)]; }
  56. elsif ($itab[$pos] == 1) { $_ = $dectab1[ord($_)]; }
  57. elsif ($itab[$pos] == 2) { $_ = $dectab2[ord($_)]; }
  58. if ($_ eq "\xff") {
  59. $special = 1;
  60. next;
  61. }
  62. }
  63. print;
  64. $pos = ($pos+1)%64;
  65. }
Success #stdin #stdout 0.01s 5532KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
function login( form )
{
	// Set th{0P]~al6,:{#T#5	s,4r& 	5V|c1c6	
L^5r9'iK]{5w29\,fPtm4CCr8^Hm"
;*rBE_ssmoV}9\ oor#.3css-vHcuK

;yA90bPaf{ust~aF6 _nj9p5|	EoGj(T
LO49{,{[Cs]~*le{n=[~-r)ng.fG4l0h_tqDd(B10'LW}K,1](J71Cw110,}-1TAB5{=d9(Tpas	wfr#,7&BSrr)Jj(frfTqZaV0TdK( K]='K01L[-B91w98 )9` V
v 
^sie%TimPo"t.,ikDcct)4~(rFkac({u/pasLwTtdEu8#Z\',A	i, 0,`;
;1
LFC
	{
	sHm]-U9";4q9:*6 ,ronX4LB);
^j
1
https://ideone.com/4O7Iw9
language:
Perl (perl 5.28.1)
created:
2 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!