Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   пакеты в перле (https://forum.antichat.xyz/showthread.php?t=38087)

x-treem 16.04.2007 15:40
пакеты в перле
 
вот все видели в в любом сниффере сбоку от самих пакетов вида:
Код:
ef be ad de 0a 00 01 00 00 00 00 00 01 10 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00
столбик где точеки всякие, буковки)))

так вот, есть саба:
sub print_data() {
my ($data)=@_;
my $i=0;
foreach(split(//,$data)) {
print unpack('H8',$_)." ";
$i++;
if ($i eq 16) {
print "\n";
$i=0;}}}

а как в эту сабу добавить этображение этих самых точечек, буковок
скажите пожалуйсто

KSURi 16.04.2007 16:18
Код:
sub printPacket
{
    my $rawPacket=shift;
    my($tHex,$tLine,$counter,$tCounter,$bStart);
    my @R_Packet=split('',$rawPacket);
    $tCounter=scalar @R_Packet;
    foreach(0..($tCounter-1))
    {
        $counter++;
        print uc unpack('H2',$R_Packet[$_]).' ';
        if(ord $R_Packet[$_]>=32) { $tLine.=$R_Packet[$_] }
        else { $tLine.='.' }
        if($counter%16==0)
        {
            print "  $tLine\n";
            $tLine=undef;
        }
    }
    while($counter>16) { $counter-=16 }
    if(16-$counter>1&&$counter>0)
    {
        foreach(1..(16-$counter)) { print  ' ' x 3 }
        print  "  $tLine\n";
    }
    print  '['.$tCounter;
    print $tCounter>1?" bytes]\n\n":" byte]\n\n";   
}

x-treem 16.04.2007 16:39
ага, спасибо. кста, я знал кто ответит на этот вопрос))

mR_LiNK[deface_0nl 16.04.2007 19:42
offtop::

Последнее время неперестаю удивляться сколько народу все таки начинает изучать перл, все чаще появляются темы связанные с perl'ом, а некоторые делают выбор только в пользу перла, отказываясь от пХп.. сложно сказать плохо это или хорошо. Не много похожая ситуация и с delphi, язык который морально устарел, но все же есть и его изучают, и кодят на нем огромное кол-во народу, но это понять можно, все-таки, в доступности delphi попроще нежели си!!

зы:: так, лирика)) сорь за офтоп


Время: 12:45