/
keygen.pl
executable file
·57 lines (51 loc) · 1.03 KB
/
keygen.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/usr/bin/perl
#for ($count = 10;$count !=150; $count++){
# printf "%d\t%08b\t%s\n",$count,$count,chr($count);
#}
open (MESS, "$ARGV[0]") or die "can't open message file named $ARGV[0]";
while (<MESS>){
#print $secret."\n";
@mess = split (//,$_);
foreach $char(@mess){
$encode = sprintf( "%08b",ord($char));
$secret .= $encode;
}
#while ( defined ($tem = shift @mess) ){printf "$tem\t%b\n",ord($tem);}
#$messlen += length($_);
$messlen = length ($secret);
#print length($mess);
#$mess = $mess.$_;
}
close MESS;
#print $messlen;
open (FH , "> key");
print "message length:$messlen\n";
$messword = $messlen /8;
print "message words: $messword\n";
while($messlen){
my $gen = int (rand(10));
if ($gen <5){
print FH 0;
}else{
print FH 1;
$messlen--;
}
}
close FH;
#my $loop = 100;
#if($ARGV[0]){$loop = $ARGV[0]}
#if($ARGV[1]){
# open(FH , "> $ARGV[1]");
#}else{
# open (FH ,"> key.txt");
#}
#
#foreach (0.. $loop){
# my $gen = int(rand(10))."\n";
# if ($gen <5){
# print FH 0;
# }else{
# print FH 1;
# }
#}
#close FH;