[filters.git] / uniencode

#!/usr/bin/perl
# Ⅽоηνеrt аѕⅽіі tօ υtf‐8.
use utf8;
binmode STDOUT, ":utf8";

%Δ=(
"~" => [],
"!" => [],
"@" => [],
"#" => [],
'$' => [],
"%" => [8240],
"^" => [],
"&" => [],
"*" => [10033],
"(" => [],
")" => [],
"_" => [9418],
"-" => [8208],
"+" => [],
"=" => [],
"[" => [],
"]" => [],
"{" => [],
"}" => [],
'\\' => [],
"|" => [9475],
'"' => [8223],
"'" => [8217],
":" => [],
";" => [],
"<" => [8249],
">" => [8250],
"," => [],
"." => [],
"/" => [8260],
"?" => [],

"1" => [],
"2" => [],
"3" => [1047],
"4" => [],
"5" => [],
"6" => [],
"7" => [],
"8" => [],
"9" => [],
"0" => [1365],

"a" => [1072],
"b" => [1068],
"c" => [1089, 8573, 1010],
"d" => [1281, 8574],
"e" => [1077],
"f" => [],
"g" => [],
"h" => [1210],
"i" => [1110, 8560],
"j" => [1011, 1112],
"k" => [],
"l" => [8572],
"m" => [8575],
"n" => [951, 627],
"o" => [1086, 1413],
"p" => [961, 1088],
"q" => [],
"r" => [],
"s" => [1109],
"t" => [],
"u" => [965],
"v" => [957, 8910, 8964, 9013],
"w" => [],
"x" => [1093, 8569, 215],
"y" => [1059, 1091],
"z" => [],

"A" => [1040],
"B" => [1042],
"C" => [663, 1057, 8557],
"D" => [8558],
"E" => [917, 1045],
"F" => [988],
"G" => [1292],
"H" => [919, 1053],
"I" => [921, 1030],
"J" => [1032],
"K" => [922, 1050],
"L" => [8556],
"M" => [924, 1052, 8559],
"N" => [925],
"O" => [927, 1054],
"P" => [929, 1056],
"Q" => [],
"R" => [],
"S" => [1359],
"T" => [932, 1058],
"U" => [],
"V" => [947, 8548],
"W" => [],
"X" => [935],
"X" => [935, 1061, 8553],
"Y" => [933],
"Z" => [918],
);

while (<>) {
	foreach $ם (split //) {
		if (exists $Δ{$ם} && @{$Δ{$ם}}) {
			@ה=@{$Δ{$ם}};
			print chr($ה[rand @ה]);
		}
		else {
			print $ם
		}
	}
}
Commit	Line	Data
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
	50	"a" => [1072],
	51	"b" => [1068],
	52	"c" => [1089, 8573, 1010],
	53	"d" => [1281, 8574],
	54	"e" => [1077],
	55	"f" => [],
	56	"g" => [],
	57	"h" => [1210],
	58	"i" => [1110, 8560],
	59	"j" => [1011, 1112],
	60	"k" => [],
	61	"l" => [8572],
	62	"m" => [8575],
	63	"n" => [951, 627],
	64	"o" => [1086, 1413],
65	"p" => [961, 1088],
66	"q" => [],
67	"r" => [],
68	"s" => [1109],
69	"t" => [],
70	"u" => [965],
71	"v" => [957, 8910, 8964, 9013],
72	"w" => [],
73	"x" => [1093, 8569, 215],
74	"y" => [1059, 1091],
75	"z" => [],
76
77	"A" => [1040],
78	"B" => [1042],
79	"C" => [663, 1057, 8557],
80	"D" => [8558],
81	"E" => [917, 1045],
82	"F" => [988],
83	"G" => [1292],
84	"H" => [919, 1053],
85	"I" => [921, 1030],
86	"J" => [1032],
87	"K" => [922, 1050],
88	"L" => [8556],
89	"M" => [924, 1052, 8559],
90	"N" => [925],
91	"O" => [927, 1054],
92	"P" => [929, 1056],
93	"Q" => [],
94	"R" => [],
95	"S" => [1359],
96	"T" => [932, 1058],
97	"U" => [],
98	"V" => [947, 8548],
99	"W" => [],
100	"X" => [935],
101	"X" => [935, 1061, 8553],
102	"Y" => [933],
103	"Z" => [918],
104	);
105
106	while (<>) {
107	foreach $ם (split //) {
108	if (exists $Δ{$ם} && @{$Δ{$ם}}) {
109	@ה=@{$Δ{$ם}};
110	print chr($ה[rand @ה]);
111	}
112	else {
113	print $ם
114	}
115	}
116	}