【练习】 Playfair 密码 - 加密解密

rubyish

回复 9# picbhan


    example:

1. my $K = 'playfair example';
   
2. my $S = 'Hide the gold in the tree stump';
   
3. my $C = 'HI DE TH EG OL DI NT HE TR EX ES TU MP';
   
4. my $D = 'BM OD ZB XD NA BE KU DM UI XM MO UV IF';
   
5. 
   
6. say '加密 OK ' if $D eq PL( $K, $S, 'en' );
   
7. say '解密 OK ' if $C eq PL( $K, $D, 'de' );

复制代码

rubyish

my 代码:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. sub playfair {
   
4.     my ( $k, $s, $ed ) = @_;
   
5.     my ( @I, %T, @R )  = 0 .. 4;
   
6.     map tr/j/i/, $k, $s;
   
7.     my $J = ( $ed //= 'e' ) eq 'd' ? -1 : 1;
   
8.     my @K = map uc, map /([A-Za-z])/g, $k;
   
9.     my @S = map uc, map /([A-Za-z])/g, $s;
   
10.     @K = grep !$T{$_}++, @K, 'A' .. 'I', 'K' .. 'Z';
    
11.     %T = map { my $i = $_; map { shift @K, [ $i, $_ ] } @I } @I;
    
12.     my %E = map { join( '', @{ $T{$_} } ), $_ } keys %T;
    
13. 
    
14.     while ( my ( $A, $B ) = splice @S, 0, 2 ) {
    
15.         ( $B, @S ) = ( 'X', $A, @S ) if $A eq ( $B //= 'X' );
    
16.         push @R, $T{$A}[0] == $T{$B}[0]
    
17.           ? [ map $E{ $T{$_}[0] . ( $T{$_}[1] + $J ) % 5 }, $A, $B ]
    
18.           : $T{$A}[1] == $T{$B}[1]
    
19.           ? [ map $E{ ( $T{$_}[0] + $J ) % 5 . $T{$_}[1] }, $A, $B ]
    
20.           : [ $E{"$T{$A}[0]$T{$B}[1]"}, $E{"$T{$B}[0]$T{$A}[1]"} ];
    
21.     }
    
22.     join $", map join( '', @$_ ), @R;
    
23. }
    
24. 
    
25. my $key  = 'Playfair example';
    
26. my $test = 'Hide the gold in...the TREESTUMP!!!';
    
27. say my $t = playfair $key, $test;
    
28. say playfair $key, $t, 'd';

复制代码

rubyish

大家积极参与技术交流。

rubyish

首先，我的代码是偷的，偷picbhan的代码。
技术交流 = 偷代码 + 化为己有。

鼓励大家积极参与技术交流。