Changeset 1212

Show
Ignore:
Timestamp:
08/16/08 14:11:12 (3 months ago)
Author:
mbr
Message:

bugfix to add 'hQ' prefix before length check for GnuPG SPA packets

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • fwknop/trunk/fwknopd

    r1211 r1212  
    22452245    my $gpg_sign_id   = ''; 
    22462246 
     2247    unless ($msg =~ /^hQ/) { 
     2248        print STDERR localtime() . " [+] Adding 'hQ' prefix to ", 
     2249            "base64-encoded message.\n" if $debug; 
     2250        $msg = 'hQ' . $msg; 
     2251    } 
     2252 
    22472253    my $equals_padding = &base64_equals_padding($msg); 
    22482254 
    …… 
    22532259    } 
    22542260 
    2255     unless ($msg =~ /^hQ/) { 
    2256         print STDERR localtime() . " [+] Adding 'hQ' prefix to ", 
    2257             "base64-encoded message.\n" if $debug; 
    2258         $msg = 'hQ' . $msg; 
     2261    if ($debug) { 
     2262        print STDERR localtime() . " [+] decode_base64() against the ", 
     2263            "following data: $msg\n"; 
    22592264    } 
    22602265 
    …… 
    24132418            "with '$equals_padding'.\n" if $debug; 
    24142419        $msg .= $equals_padding; 
     2420    } 
     2421 
     2422    if ($debug) { 
     2423        print STDERR localtime() . " [+] decode_base64() aginast the ", 
     2424            "following data: $msg\n"; 
    24152425    } 
    24162426