请问大家一个加密的问题，请高手帮助！！！就只有40分了(40分)

我有一个18位的数字，想通过加密以后变成位数小于38位的数字，并且要求可以反算回来的。请问各位高手有没有什么好的办法。我对加密是一翘不通，谢谢各位了！！！

为什么没有人回答呢？？？[]

給你兩個函數﹐自己測試一下就通過了﹗
Function f_encrypt(sInput:string):string;
Const
AllChar:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';
Var
sOutput :string;
iPin:byte;
begin
if sInput = '' Then
sOutput := ''
else
begin
// sInput := f_PadR(sInput,20,' ');
for iPin:=1 to Length(sInput) do
begin
sOutput := sOutput+Char(Ord(sInput[iPin]) + 128);
end;
end;
Result := sOutput;
end;

Function f_inencrypt(sInput:string):string;
Const
AllChar:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';
Var
sOutput :string;
iPin:byte;
begin
if sInput = '' Then
sOutput := ''
else
begin
// sInput := f_PadR(sInput,20,' ');
for iPin:=1 to Length(sInput) do
begin
sOutput := sOutput+Char(Ord(sInput[iPin]) + 128);
end;
end;
Result := Trim(sOutput);
end;
一個是加密﹐一個解密﹗

老兄呀，我说的是加密以后是一个长度为小于38位的数字呀，可是你的是一个乱符，老兄能不能在看看呢？？？