how to get functions tabel??

[cincailah]

sub idro_decrypt {
my $data = shift;
my $data2 = "";
my @tabel = split / *\ + */,"3C 40 15 57 CC 65 DF F4 90 1C 71 17 66 20 BB 8E 29 0B DA EC 0E 26 F8 91 03 E6 E5 62 FC 1D 49 B1 53 77 98 80 61 F3 70 AE CF E8 86 93 10 2F 32 CE 5A 5F C8 6D FF F7 4B 7F AD B5 AB 28 6E BE 63 A4 1E 79 42 04 0D D5 E3 1F EA 67 1A A6 BF 97 73 D9 F9 76 23 33 22 9C 48 B0 8A 56 AC 64 0C B4 B8 C5 84 54 F1 99 4F 07 30 C0 35 FD 38 14 BC 5C 94 4E D0 74 A0 E1 19 46 82 D4 C4 4D E7 E4 25 2E 09 C7 83 58 7D 08 A2 2A 60 E0 8D D1 AF 39 59 FE 06 72 A8 11 8B 4C 13 D6 96 4A 7B EF 0A BA 85 2D F2 3E DC 00 ED 2C 7C 92 C9 B2 F6 9A BD 75 CB 05 5E 95 68 A7 CA 3D 50 D2 31 B6 41 3F A9 01 6C DE 21 7E D7 24 89 B9 EE 78 EB C3 34 1B F5 8F 43 A1 7A 12 6F 5B F0 44 88 DB B3 9B A3 87 FB 52 27 E9 9D FA 8C 47 37 45 55 16 36 AA 9E 6A DD CD 5D 18 0F B7 9F C1 6B C2 D8 2B 69 E2 C6 D3 51 02 3A A5 81 3B ";
my @hex = split / *\ + */,getHex($data);
for (my $i=0;$i < @hex; $i++) {
$data2 .= giveHex($tabel[hex($hex[$i])]);
}
return $data2;
}

return 1;

anybody can help me to find it?
thx before

[oppiex]

sub idro_decrypt {
my $data = shift;
my $data2 = "";
my @tabel = split / *\ + */,"3C 40 15 57 CC 65 DF F4 90 1C 71 17 66 20 BB 8E 29 0B DA EC 0E 26 F8 91 03 E6 E5 62 FC 1D 49 B1 53 77 98 80 61 F3 70 AE CF E8 86 93 10 2F 32 CE 5A 5F C8 6D FF F7 4B 7F AD B5 AB 28 6E BE 63 A4 1E 79 42 04 0D D5 E3 1F EA 67 1A A6 BF 97 73 D9 F9 76 23 33 22 9C 48 B0 8A 56 AC 64 0C B4 B8 C5 84 54 F1 99 4F 07 30 C0 35 FD 38 14 BC 5C 94 4E D0 74 A0 E1 19 46 82 D4 C4 4D E7 E4 25 2E 09 C7 83 58 7D 08 A2 2A 60 E0 8D D1 AF 39 59 FE 06 72 A8 11 8B 4C 13 D6 96 4A 7B EF 0A BA 85 2D F2 3E DC 00 ED 2C 7C 92 C9 B2 F6 9A BD 75 CB 05 5E 95 68 A7 CA 3D 50 D2 31 B6 41 3F A9 01 6C DE 21 7E D7 24 89 B9 EE 78 EB C3 34 1B F5 8F 43 A1 7A 12 6F 5B F0 44 88 DB B3 9B A3 87 FB 52 27 E9 9D FA 8C 47 37 45 55 16 36 AA 9E 6A DD CD 5D 18 0F B7 9F C1 6B C2 D8 2B 69 E2 C6 D3 51 02 3A A5 81 3B ";
my @hex = split / *\ + */,getHex($data);
for (my $i=0;$i < @hex; $i++) {
$data2 .= giveHex($tabel[hex($hex[$i])]);
}
return $data2;
}

return 1;

anybody can help me to find it?
thx before

This is it...
http://forums.openkore.com/viewtopic.ph ... 7&start=40

[cincailah]

i did it
but...WPE cant inject to RO
what should i do?

[Mushroom]

Use another packet recorder?