[filters.git] / uniencode

#!/usr/bin/perl
# Ⅽоηνеrt аѕⅽіі tօ υtf‐8.
use utf8;
binmode STDIN, ":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],				"A" => [1040],
"b" => [1068],				"B" => [1042],
"c" => [1089, 8573, 1010],		"C" => [663, 1057, 8557],
"d" => [1281, 8574],			"D" => [8558],
"e" => [1077],				"E" => [917, 1045],
"f" => [],				"F" => [988],
"g" => [],				"G" => [1292],
"h" => [1210],				"H" => [919, 1053],
"i" => [1110, 8560],			"I" => [921, 1030],
"j" => [1011, 1112],			"J" => [1032],
"k" => [],				"K" => [922, 1050],
"l" => [8572],				"L" => [8556],
"m" => [8575],				"M" => [924, 1052, 8559],
"n" => [951, 627],			"N" => [925],
"o" => [1086, 1413],			"O" => [927, 1054],
"p" => [961, 1088],			"P" => [929, 1056],
"q" => [],				"Q" => [],
"r" => [],				"R" => [],
"s" => [1109],				"S" => [1359],
"t" => [],				"T" => [932, 1058],
"u" => [965],				"U" => [],
"v" => [957, 8910, 8964, 9013],		"V" => [947, 8548],
"w" => [],				"W" => [],
"x" => [1093, 8569, 215],		"X" => [935, 1061, 8553],
"y" => [1059, 1091],			"Y" => [933],
"z" => [],				"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;
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	}