Chinaunix首页 | 论坛 | 博客
  • 博客访问: 9438
  • 博文数量: 7
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 80
  • 用 户 组: 普通用户
  • 注册时间: 2011-07-05 11:36
文章分类

全部博文(7)

文章存档

2015年(7)

我的朋友

分类: PERL

2015-06-28 10:53:28

用到了reverse ,将hash对比正反应用。


#!perl
use strict;
use warnings;
use Data::Dumper;

#in cmd, we should use this to debug:
#perl d:\document\perl\test.pl < d:\document\perl\input.txt

=begin  BlockComment  # BlockCommentNo_1
The twisting method uses four arrays: plaintext and ciphertext are arrays of characters, and plaincode and ciphercode are arrays of integers. All arrays are of length n, where n is the length of the message to be encrypted. Arrays are origin zero, so the elements are numbered from 0 to n - 1. For this problem all messages will contain only lowercase letters, the period, and the underscore (representing a space).

The message to be encrypted is stored in plaintext. Given a key k, the encryption method works as follows. First convert the letters in plaintext to integer codes in plaincode according to the following rule: '_' = 0, 'a' = 1, 'b' = 2, ..., 'z' = 26, and '.' = 27. Next, convert each code in plaincode to an encrypted code in ciphercode according to the following formula: for all i from 0 to n - 1,

ciphercode[i] = (plaincode[ki mod n] - i) mod 28.
(Here x mod y is the positive remainder when x is divided by y. For example, 3 mod 7 = 3, 22 mod 8 = 6, and -1 mod 28 = 27. You can use the C '%' operator or Pascal 'mod' operator to compute this as long as you add y if the result is negative.) Finally, convert the codes in ciphercode back to letters in ciphertext according to the rule listed above. The final twisted message is in ciphertext. Twisting the message cat using the key 5 yields the following:

Array	0	1	2
plaintext	'c'	'a'	't'
plaincode	3	1	20
ciphercode	3	19	27
ciphertext	'c'	's'	'.'
Your task is to write a program that can untwist messages, i.e., convert the ciphertext back to the original plaintext given the key k. For example, given the key 5 and ciphertext 'cs.', your program must output the plaintext 'cat'.

The input file contains one or more test cases, followed by a line containing only the number 0 that signals the end of the file. Each test case is on a line by itself and consists of the key k, a space, and then a twisted message containing at least one and at most 70 characters. The key k will be a positive integer not greater than 300. For each test case, output the untwisted message on a line by itself.

Note: you can assume that untwisting a message always yields a unique result. (For those of you with some knowledge of basic number theory or abstract algebra, this will be the case provided that the greatest common divisor of the key k and length n is 1, which it will be for all test cases.)

Example input:

5 cs.
101 thqqxw.lui.qswer
3 b_ylxmhzjsys.virpbkr
0
Example output:

cat
this_is_a_secret
beware._dogs_barking
=end    BlockComment  # BlockCommentNo_1

=cut

my %num_of = (
    _   => 0,
    a   => 1,
    b   => 2,
    c   => 3,
    d   => 4,
    e   => 5,
    f   => 6,
    g   => 7,
    h   => 8,
    i   => 9,
    j   => 10,
    k   => 11,
    l   => 12,
    m   => 13,
    n   => 14,
    o   => 15,
    p   => 16,
    q   => 17,
    r   => 18,
    s   => 19,
    t   => 20,
    u   => 21,
    v   => 22,
    w   => 23,
    x   => 24,
    y   => 25,
    z   => 26,
    '.' => 27,
);

my %char_of = reverse %num_of;

while (<>) {
#while (<DATA>) {
    chomp;
    my ( $k, $context ) = split;
    if ($k) {
        my @cipher_text = split( //, $context );
        my @cipher_code;
        my @plain_code;
		my @tmp_plain_code;
        my $n = @cipher_text;    #length
        for my $i ( 0 .. $n - 1 ) {
            $cipher_code[$i] = $num_of{ $cipher_text[$i] };
#            $plain_code[$i]  = ( $cipher_code[$i] + $i ) % 28;
#            print "############\n";

            #			print Dumper(@cipher_code);
            #			ciphercode[i] = (plaincode[ki mod n] - i) mod 28.
            $tmp_plain_code[ ( $k * $i ) % $n] = ( $cipher_code[$i] + $i ) % 28;
#			print "$plain_code[$tmp] : $tmp#";
        }
		for my $i ( 0 .. $n -1 ){
			print "$char_of{$tmp_plain_code[$i]}";
		}
		print "\n";
#        print Dumper(@tmp_plain_code);
#        print "\nCASE DONE\n";
    }
	else {
		last;
	}
}
<STDIN>

__DATA__
5 cs.
101 thqqxw.lui.qswer
3 b_ylxmhzjsys.virpbkr
0
阅读(352) | 评论(0) | 转发(0) |
0

上一篇:[ACM]1001 A + B Problem

下一篇:SPOJ PALIN

给主人留下些什么吧!~~