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