Lines Matching defs:bin2hex
286 return bin2hex($data);
298 return bin2hex($data);
334 #bin2hex not needed as the '-hex' already converts it
349 $iv = "-iv ".bin2hex($iv) if ($iv);
351 my $out = "openssl enc -'$cipher' $enc -nopad -nosalt -bufsize $bufsize -K ".bin2hex($key)." $iv";
353 $out = "rc4 -k " . bin2hex($key) if $opt{'R'};
462 $iv = "--iv ".bin2hex($iv) if ($iv);
464 my $program="fipsdrv --binary --key ".bin2hex($key)." $iv --algo '$cipher' --chunk '$bufsize' $enc";
478 $iv = "--iv ".bin2hex($iv) if ($iv);
593 return bin2hex($data);
603 $key = bin2hex($key);
681 sub bin2hex($) {
898 my $actual = bin2hex(shift);
1186 $out .= "$keytype = ". bin2hex($key1). "\n";
1187 $out .= "KEY2 = ". bin2hex($key2). "\n";
1190 $out .= "$keytype = ". bin2hex($key1). "\n";
1193 $out .= "KEY3 = ". bin2hex($key3). "\n";
1198 $out .= "IV = ". bin2hex($iv) . "\n"
1202 $out .= "PLAINTEXT = ". bin2hex($source_data). "\n";
1204 $out .= "CIPHERTEXT = ". bin2hex($source_data). "\n";
1220 ? bin2hex($iv)
1224 .bin2hex($key1)."\n"
1226 .bin2hex($source_data)."\n\n" or die;
1244 #print STDERR "source_data=", bin2hex($source_data), "\n";
1250 #print STDERR "calc_data=", bin2hex($calc_data), "\n";
1268 $out .= "CIPHERTEXT = ". bin2hex($calc_data). "\n\n";
1270 $out .= "PLAINTEXT = ". bin2hex($calc_data). "\n\n";
1275 #print STDERR bin2hex($key1)."\n";
1282 #print STDERR "KEY1 = ". bin2hex($nkey)."\n";
1290 #print STDERR "KEY2 = ". bin2hex($key2)."\n";
1298 #print STDERR "KEY3 = ". bin2hex($key3)."\n";
1305 #print STDERR bin2hex($key1)."\n";
1495 #print STDERR "calc_data=", bin2hex($rnd_val), "\n";
1501 $out .= "R = " . bin2hex($rnd_val) . "\n\n";