Select Code to Download

    /* pre-compute the key expansion buffer */
    memcpy( pke, "Pairwise key expansion", 23 );
    if( memcmp( ap->wpa.stmac, ap->bssid, 6 ) < 0 )    {
...
                 */
                
            }

#!/usr/bin/perl -w
use strict;
...
        print "Transient Key: ",uc(unpack("H*",$r)),"\n";
        return;
}