저한테 이런 함수가 있군요
좀 길긴 하지만 확실히 쓸만합니다
const py: array[216..247] 문자열 = (
{216}'CJWGNSPGCGNESYPB' 'TYYZDXYKYGTDJNMJ' 'QMBSGZSCYJSYYZPG'
{216}'KBZGYCYWYKGKLJSW' 'KPJQHYZWDDZLSGMR' 'YPYWWCCKZNKYDG',
{217}' TTNJJEYKKZYTCJNM' 'CYLQLYPYQFQRPZSL' 'WBTGKJFYXJWZLTBN'
{217}'CXJJJJZXDTTSQZYC' 'DXXHGCKBPHFFSSYY' 'BGMXLPBYLLLHLX',
{218}'SPZMYJHSOJNGHDZQ' GJHXGQZ HXQGKE'' ZZWYSCSCJXYEYXAD'
{218}'ZPMDSSMZJZQJYZCD' 'JEWQJBDZBXGZNZCP' 'WHKXHQKMWFBPBY',
{219}'DTJZZKQHYLYGXFPT' 'YJYYZPSZLFCHMQSH' 'GMXXSXJJSDCSBBQB'
{ 219 }'EFSJYHXWG ZKPYLQB' ' GLDLCCTNMAYDDKSS' 'NGYCSGXLYZAYBN',
{220}'PTSDKDYLHGYMYLCX' 'PYCJNDQJWXQXFYYF' 'JLEJBZRXCCQWQQSB'
{220}'ZKYMGPLBMJRQCFLN' YMYQMSQYRBCJTHZT' 'QFRXQHXMJ JCJLX ',
< p>{221}'QGJMSHZKBSWYEMYL' 'TXFSYDSGLYCJQXSJ' 'NQBSCTYHBFTDCYZD'{221}'JWYGHQFRXWCKQKXE' 'BPTLPXJZSRMEBWHJ' 'LBJSLYYSMDXLCL',
{222 }'QKXLHXJRZJ MFQHXH' 'WYWSBHTRXXGLHQHF' 'NMCYKLDYXZPWLGGS'
{222}'MTCFPAJJZYLJTYAN' 'JGBJPLQGDZYQYAXB' 'KYSECJSZNSLYZH',
{223}'ZXLZCGHPXZHZNYTD' JKDLZAYFMYDLE' 'BBGQYZKXGLDNDNYS'
< p>{ 223}'KJSHDLYXBCGHXYPK' 'DQMMZNGMMCLGWZSZ' 'XZJFZNMLZZTHCS',{224}'YDBDLLSCDDNLKJYK' 'JSYCJLKOHQASDKNH' 'CSGANHDAASHTCPLC'
{224}' PQYBSDMPJLPCJOQL' 'CDHJJY SPRCHNKNN
L' 'HLYYQYHWZPTCZG',
{225}'WWMZFFJQQQQYXACL' 'BHKDJXDGMMYDJXZL' 'LSYGXGKJRYWZWYCL'
{225}'ZMSSJZLDBYDCPCXY' 'HLXCHYZJQSQQAGMN' 'YXPFRKSSBJLYXY ',
< p> {226} 'syglnscmhcwwmnzj' 'jlxxhchsyd ctxry' 'cyxbyhcsmxjsznpw'{226} 'gpxxtaybgajcxlys' 'dccwzocwkccsbnhc 'kybsqkkytqqxfcwc' 'hcykelzq BSQYJQCC ' 'LMTHSYWHMKTLKJLY'
{227}'CXWHEQQHTQHZPQSQ' 'SCFYMMDMGBWHWLGS' 'LLYSDLMLXPTHMJ',
{228}'HWLJZYHZJXHTXJLH' 'XRSWLWZJCBXMHZQX' 'SDZPMGFCSGLSXY 엠제이'
{228}'SHXPJXWMYQKSMYPL' 'RTHBXFTPMHYXLCHL' 'HLZYLXGSSSSTCL',
{229}'SLDCLRPBHZHXYYFH' 'BBGDMYCNQQWLQHJJ' 'ZYWJZYEJJDHPBLQX'
{229}'TQKWHLCHQXAGTLXL ' 'JXMSLXHTZKZJECXJ' ' CJNMFBYCSFYWYB ',
{230}'JZGNYSDZSQYRSLJP' 'CLPWXSDWEJBJCBCN' 'AYTWGMPABCLYQPCL'
{230}'ZXSBNMSGGFNZJJBZ' 'SFZYNDXHPLQKZCZW' 'ALSBCCJXJYZHWK', { 231 }'YPSGXFZFCDKHJGXD' 'LQFSGDSLQWZKXTMH' 'SBGZMJZRGLYJBPML'
{231}'MSXLZJQQHZSJCZYD' 'JWBMJKLDDPMJEGXY' 'HYLXHLQYQHKYCW',
{232}'CJMYYXNATJ HYCCXZ' 'PCQLBZWWYTWBQCML' 'PMYRJCCCXFPZNZZL ' < /p>
{232}'JPLXXYZTZLGDLDCK' 'LYRLZGQTGJHHGJLJ' 'AXFGFJZSLCFDQZ',
{233}'LCLGJDJCSNCLLJPJ' 'QDCCLCJXMYZFTSXG' 'CGSBRZXJQQCTZHGY'
{233} 'QTJQQLZ XJYLYLBCY' 'AMCSTYLPDJBYREGK' 'JZYZHLYSZQLZNW',
{234}'CZCLLWJQJJJKDGJZ' 'OLBBZPPGLGHTGZXY' 'GHZMYCNQSYCYHBHG'
{234}' ZGZQZJGDYKSHPZMT' 'LCPWNJAFYZDJCNMW' 'ESCYGLBTZCGMSS',
{236}'LLYXQSXSBSJSBBGG' 'GHFJLYPMZJNLYYWD' 'QSHZXTYYWHMCYHYW'
{236}' DBXBTLMSYYYFSXJC' 'SDXXLHJHF SX ZQHF' 'ZMZCZTQCXZXRTT',< /p>
{237}'DJHNNYZQQMNQDMMG' 'LYDXMJGDHCDYZBFF' 'ALLZTDLTFXMXQZDN'
{237}'GWQDBDCZJDXBZGSQ' 'QDDJCMBK ZFFXMKDM' 'DSYYSZCMLJDSYN',
{238}'SPRSKMKMPCKLGDB Q 'TFZSWTFGGLYPLLJZ' 'HGJJGYPZLTCSMCNB'
{238}'TJBQFKTHBYZGKPBB' 'YMTDSSXTBNPDKLEY' 'CJNYCDYKZDDHQH',
{239}' SDZSCTARLLTKZLGE' 'CLLKJLQJAQNBDKKG' 'HPJTZQKSEC SHALQF'
<p> LY' 'GKDZPZXJYYZLWCXS ' 'ZFGWYYDLYHCLJS',{241}'CMBJHBLYZLYCBLYD' 'PDQYSXQZBYTDKYYJ' 'YYCNRJ MPDJGKLCLJ'
< p>{241}'BCTBJDDBBLBLCZQR' 'PPXJCGLZCSHLTOLJ' 'NMDDDLNGKAQHQH',{242}'JHYKHEZNMSHRP QQ' 'JCHGMFPRXHJGDYCH' 'GHLYRZQLCYQJNZSQ'
{242}'TKQJYMSZSWLCFQQQ' 'XY FGGYPTQWLMCRNF ' 'KKFSYYLQBMQAMM',
{243}'MYXCTPSHCPTXXZZS' 'MPHP SHMCLMLDQFYQ' 'XSZYJDJJZZHQPDSZ'
{243}'GLSTJBBCKBXYQZJSG' 'PSXQZQZRQTBDKYXZ' 'KHHGFLBCSMDLDG',
< p>{244}'DZDBLZYYCXNNCSYB' 'ZBFGLZZXSWMSCCMQ' 'NJQSBDQSJTXXMBLT'
{244}'XZCLZSHZCXRQJGJY' 'LXZFJPHYXZQQYDFQ' 'JJLZZNZJCDGZYG',
{245}'CTXMZYSCTLKPHTXH' 'TLBJXJLX SCD QXCBB' 'TJFQZFSLTJBTKQBX'
{245}' JJXX' ' GLLJSTGSHJQLZFKC' 'GNNDSZFDEQFHBS',
{247}'AQTGYLBXMMYGSZLD' 'YDQMJJRGBJTKGDHG' 'KBLQKBDMBYLXWCXY'
{247}'TTYBKMRTJZXQJBHL' 'MHMJJZMQASLDCYXY' 'Q DLQCAFYWYXQHZ'
)
function ChnPy(값: 문자 배열): Char; 결과 := #0;
케이스 Byte(Value[0]) of
176：
케이스 Byte(Value[1]) of
161..196： 결과 ：= ' A';
197..254: 결과:= 'B';
{case}
177:
결과:= 'B';
178:
case Byte(Value[1]) of
< p> 161..192: 결과:= 'B' ;193..205: 결과:= 'C';
206: 결과:= 'S' / /참조
207..254 : 결과 := 'C'
end; {case}
179:
결과 := 'C';
180:
케이스 Byte(Value[1]) of
161..237: 결과:= 'C';
238..254: 결과 ：= 'D';
end; {case}
181:
결과 ：= 'D'
182:
케이스 바이트(값[1])
161..233: 결과:= 'D';
234..254: 결과:= 'E';
{case}
183:
case Byte(Value[1]) of
161: 결과:= 'E';
162..254: 결과:= ' F';
end; {case}
184:
Byte(Value[1]) of
161.. 192: 결과:= 'F';
193..254: 결과:= 'G';
end; /p>
case Byte(Value[1]) of
161..253: 결과:= 'G';
254: 결과:= 'H';
끝; {case}
186:
결과 := 'H'
187:
case Byte(Value[1]) of
161..246: 결과:= 'H';
247..254: 결과:= 'J';
p>
end; {case}
188..190:
결과:= 'J';
191:
< p> case Byte(Value[1]) of161..165: 결과:= 'J';
166..254: 결과:= 'K';< /p>
end; {case}
192:
Byte(Value[1]) of
161. .171: 결과: = 'K';
172..254: 결과: = 'L'
end;
< p> 결과:= 'L';194:
case Byte(Value[1]) of
161..231 : 결과:= ' L';
232..254: 결과:= 'M'
{case}
195: p>
결과:= 'M';
196:
case Byte(Value[1]) of
161..194: Res
ult:= 'M';
195..254: 결과:= 'N';
{case}
197:
case Byte(Value[1]) of
161..181: 결과:= 'N';
182..189: 결과:= 'O' ;
190..254: 결과:= 'P';
end {case}
198:
케이스 바이트 (값[1]) of
161..217: 결과:= 'P';
218..254: 결과:= 'Q';
< p> end; {case}199:
결과 ：= 'Q'
200:
케이스 Byte(값 [1]) of
161..186: 결과:= 'Q';
187..245: 결과:= 'R';
246..254: 결과:= 'S';
end; {case}
201..202:
결과:= 'S';
203:
케이스 Byte(Value[1]) of
161..249: 결과:= 'S'; > 250..254: 결과:= 'T';
end; {case}
204:
결과:= 'T';
p>
205:
case Byte(Value[1]) of
161..217: 결과:= 'T'
218 ..254: 결과:= 'W';
end; {case}
206:
케이스 Byte(값[1 ]) of
p>161..243: 결과: = 'W'
244..254: 결과: = 'X'; end; {case}
207..208:
결과 ：= 'X'
209:
케이스 바이트( 값[1]) of< /p>
161..184: 결과: = 'X'
185..254: 결과: = 'Y'; > 끝;
> 210..211:
결과 ：= 'Y';
212:
case Byte(Value[1]) of
< p> 161..208: 결과:= 'Y';209..254: 결과:= 'Z';
{case}
< p> 213..215:결과:= 'Z';
216..247:
결과:= py[Byte(Value[0 ])][Byte(값[1]) - 160];
end; {case}
end; 문자열): 문자열;
var
I, L: 정수;
C: 문자 배열[0..1]; p> R: 문자;
시작
결과:= '';
L:= 길이(값);
I := 1;
while I lt; (L - 1) do
시작
if Value[I] lt; >
시작
결과 ：= 결과 값[I]
Inc(I)
끝
else< /p>
시작
C[0]:= 값[I];
C[1]:= 값[I 1];
R:= ChnPY(C);
if r lt;gt; #0 then
결과:= 결과 R;
Inc(I, 2 );
end;
I = L이면
결과 ：= 결과 값[L]
피> 피>끝;