b319174e |
1 | #!/usr/bin/perl |
2 | # Ⅽоηνеrt аѕⅽіі tօ υtf‐8. |
3 | use utf8; |
4 | binmode STDOUT, ":utf8"; |
5 | |
6 | %Δ=( |
7 | "~" => [], |
8 | "!" => [], |
9 | "@" => [], |
10 | "#" => [], |
11 | '$' => [], |
12 | "%" => [8240], |
13 | "^" => [], |
14 | "&" => [], |
15 | "*" => [10033], |
16 | "(" => [], |
17 | ")" => [], |
18 | "_" => [9418], |
19 | "-" => [8208], |
20 | "+" => [], |
21 | "=" => [], |
22 | "[" => [], |
23 | "]" => [], |
24 | "{" => [], |
25 | "}" => [], |
26 | '\\' => [], |
27 | "|" => [9475], |
28 | '"' => [8223], |
29 | "'" => [8217], |
30 | ":" => [], |
31 | ";" => [], |
32 | "<" => [8249], |
33 | ">" => [8250], |
34 | "," => [], |
35 | "." => [], |
36 | "/" => [8260], |
37 | "?" => [], |
38 | |
39 | "1" => [], |
40 | "2" => [], |
41 | "3" => [1047], |
42 | "4" => [], |
43 | "5" => [], |
44 | "6" => [], |
45 | "7" => [], |
46 | "8" => [], |
47 | "9" => [], |
48 | "0" => [1365], |
49 | |
dd827ce1 |
50 | "a" => [1072], "A" => [1040], |
51 | "b" => [1068], "B" => [1042], |
52 | "c" => [1089, 8573, 1010], "C" => [663, 1057, 8557], |
53 | "d" => [1281, 8574], "D" => [8558], |
54 | "e" => [1077], "E" => [917, 1045], |
55 | "f" => [], "F" => [988], |
56 | "g" => [], "G" => [1292], |
57 | "h" => [1210], "H" => [919, 1053], |
58 | "i" => [1110, 8560], "I" => [921, 1030], |
59 | "j" => [1011, 1112], "J" => [1032], |
60 | "k" => [], "K" => [922, 1050], |
61 | "l" => [8572], "L" => [8556], |
62 | "m" => [8575], "M" => [924, 1052, 8559], |
63 | "n" => [951, 627], "N" => [925], |
64 | "o" => [1086, 1413], "O" => [927, 1054], |
65 | "p" => [961, 1088], "P" => [929, 1056], |
66 | "q" => [], "Q" => [], |
67 | "r" => [], "R" => [], |
68 | "s" => [1109], "S" => [1359], |
69 | "t" => [], "T" => [932, 1058], |
70 | "u" => [965], "U" => [], |
71 | "v" => [957, 8910, 8964, 9013], "V" => [947, 8548], |
72 | "w" => [], "W" => [], |
73 | "x" => [1093, 8569, 215], "X" => [935, 1061, 8553], |
74 | "y" => [1059, 1091], "Y" => [933], |
75 | "z" => [], "Z" => [918], |
b319174e |
76 | ); |
77 | |
78 | while (<>) { |
79 | foreach $ם (split //) { |
80 | if (exists $Δ{$ם} && @{$Δ{$ם}}) { |
81 | @ה=@{$Δ{$ם}}; |
82 | print chr($ה[rand @ה]); |
83 | } |
84 | else { |
85 | print $ם |
86 | } |
87 | } |
88 | } |