快幫幫我

Question

我是一個初學者 ﹐ 有一個很簡單地問題想讓大家幫幫我﹐我做了個簡單的登陸窗口﹐但是我想對輸入的密碼加密﹐比如輸入密碼是245﹐那么加密的方法是輸入字母所對應的ASCII碼加上它所在的位置﹐然后根據得出的ASCII碼再反過來求對應的值﹐比如2的加密f方法是ASCII碼加1﹐4就是ASCII加上2﹐5就是ASCII加3﹐依此類推﹐

Answer 1

Function Zhuanhuan(s : String) : String ;
var
  i : Integer ;
begin
  for i := 1 to Length(s)  do
    s[i] := Chr(Ord(s[i]) + i) ;
  Result := s ;
end ;