procedure TForm1.Button1Click(Sender: TObject);
var bianma:string;
mm:string;
i:integer;
pwd:string;
begin
bianma:=’`1234567890-=~!@#$%^&*()_+qwertyuiop[]\QWERTYUIOP{}|asdfghjkl;ASDFGHJKL:”zxcvbnm,./ZXCVBNM<>? ‘;
mm:=’cvv+!e#’;
pwd:=”;
for i:=1 to length(mm)    do
begin
pwd:=pwd+copy(bianma,pos(copy(mm,i,1),bianma)-i,1);
end;
showmessage(pwd);
end;