delphi 如何实现KAISER密文..急.......

Question

用DELPHI怎样实现KAISER密文，我把开始字符转成ASCII码后不知道用什么函数转成字符，后来有把字符存进数组来替换的想法，但是不知道怎么实现。。

Answer 1

明码表 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
密码表 Q W E R T Y U I O P A S D F G H J K L Z X C V B N M 
明文 F O R E S T 
密文 Y G K T L Z 

Answer 2

function Caster_Enc(const str:string):string;   //加密
var sBox1,sBox2:String;
    i:Integer;
begin
   sBox1 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   sBox2 := 'QWERTYUIOPASDFGHJKLZXCVBNM';
   Result  := '';
   For i := 1 to Length(str) do
   begin
    Result := Result  + sBox2[Pos(str[i],sBox1)];
   end;
end;procedure TForm1.Button1Click(Sender: TObject); //调用
begin
   edit1.Text:=Caster_Enc('FOREST');
end;