PEEK - Packet Extraction Evaluation Kit designed by Yommy and Neo.
This extractor works for new files whose size is greater than 6 MB.
But the file, output, the conversion of the need for openkore!!!
SkylorD wrote:
Just select the file and "Extract Lengths".
It'll create a Output folder.
Get your recvpackets and be free. To do the conversion.
It shows:
0x0187 = 6
Must:
0187 6
You'll copy all lines and will open your notepad, paste the code and save your file as recvpackets.txt and not recvpackets.ini
Links:
https://github.com/MStr3am/PEEKhttps://github.com/ThemonChan/PEEKhttp://nbsxey3vnrsxgltxom.cmle.ru/board ... -analyzer/Mini guide:1. download
PEEK2. run PEEK.exe
3. click "Browse" and select your client file (
not necessarily exe!)
4. click "Start Analyzer"
5. close PEEK
6. open folder: ..\PEEK\Output\
7. run 1.bat -> Since mediafire files is not avaiable:
Download the code in the end of this post, paste in notepad, save as 'recvoutput.pl' and close it. Move it to Output folder inside PEEK directory. Run it.
8. file will appear: recvpackets.txt
Script to get the clean recvpackets :
Code:
#!/usr/bin/env/perl
use strict;
use warnings;
package iwant_myrecvpackets;
my %packets;
&start();
sub start {
&main();
system("pause");
}
sub main {
my ($message, $file, $input, $output, $files, $found) = 0;
$found = -1;
foreach (<*>) {
$files .= $_."\n";
if (-d $_ && $_ =~ /^Output$/ig) { $found = 1;};
}
if ($files =~ /(recvpackets.+\.ini)/ig) {
#$message = "Type 1 from ThemonChan.\n";
$file = $1;
} elsif ($files =~ /(packetlengths.+\.ini)/ig) {
#$message .= "Type 2 from MrStr3am\n";
$file = $1;
} elsif (substr(Win32::GetCwd(), eval (length(Win32::GetCwd()) - 6), length(Win32::GetCwd()) ) ne 'Output') {
$message = "\nDo you have sure this file is inside \'Output\' folder?\n";
if ($found eq 1) { #If we aren't inside output folder, we could be on root, check for existance!
$message .= "Please bro, move this script to \'Output\' folder! I can see it\n";
}
} else {
$message = "\nPlease, start PEEK first to extract recvpackets initial file.\nThen run this script again.\nIf you've already done it, Try asking on OK forum\n";
} if (substr(Win32::GetCwd(), eval (length(Win32::GetCwd()) - 20), length(Win32::GetCwd()) ) !~ /([P][E][E][K]([-]?[m][a][s][t][e][r])?)|ThemonChan|MrStr.am/ig) {
$message .= "Please, move this script to PEEK/Output folder!\n";
}
goto end if ($message);
open $input, "<$file" or $message = "Can't open the input file\n";
open $output, ">recvpackets.txt" or $message = "Can't create recvpackets output file\n";
goto end if ($message);
read_lines($input);
get_output($output);
close_handles($input, $output);
end:
printf("Length = %d packets\nPackets were extracted with success...\n", eval(keys %packets)) if (!$message);
printf("Errors:%d\n%s\n", eval($message && 1), $message) if ($message);
return 1;
}
sub close_handles {
my ($dw1, $dw2) = @_;
close($dw1);
close($dw2);
return 1;
}
sub read_lines {
my $file = shift;
my ($lines, $packetid);
while (<$file>) {
$lines = $_;
if ($lines =~ /0x(0...) = ((-)?\d+)/ig) {
undef $packetid;
$packetid = uc($1);
if (!exists($packets{$packetid})) {
$packets{$packetid} = $2;
}
}
}
return 1;
}
sub get_output {
my $file = shift;
foreach my $value (sort keys %packets) {
print $file "$value $packets{$value}\n";
}
return 1;
}
1;