有关一个简单数据加密的函数？

Question

我想实现一个简单的数据加密功能，但不知道该如何编写这个函数：
   将密码的每一位首先转变成ascii码然后加1，最后再转换成所对应的字符
请问如何实现？

Answer 1

有没有返回某一字符的acsii码的函数？

Answer 2

newpw, oldpw: string;for i:= 1 to length(oldpw) do 
  newpw[i]:= chr(ordpw(oldpw[i])+1);

Answer 3

ordfor i:= 1 to length(oldpw) do 
  newpw[i]:= chr(ord(oldpw[i])+1);

Answer 4

可以直接把它转换成int，然后不就可以加1了