rang check error

Question

  系统登陆时出现 rang check error ，有的用户登陆没有这个情况？不知道是什么问题我用了TIdDecoderXXE 检验登陆密码，
以下是我的检验代码：
Function Thinks_Decode(aSRC:String; myKey: string= 'Thinks'): string;
Var aResult:string;
Begin
   //myKey:= 'Thinks' ;
   aResult:= logo.Thinks_IdDecoderXXE.DecodeString(aSRC);
   Result:= COPY(aResult,Length(myKey)+1, Length(aResult)- Length(myKey));
End;

Answer 1

aResult:= logo.Thinks_IdDecoderXXE.DecodeString(aSRC); 
//有问题，解密的的问题

Answer 2

别的用户能正常进入，不代表没有问题。
每个用户送来校验的aSRC有区别的吧。你就写了这两行代码，最大可能出问题的就是这句。
aResult:= logo.Thinks_IdDecoderXXE.DecodeString(aSRC);  

Answer 3

是啊，校验码是不同！请问楼上这样解决这个问题呢
aResult:= logo.Thinks_IdDecoderXXE.DecodeString(aSRC); 
如果校验码有问题？  

Answer 4

问题在DecodeString 函数里面,仔细检查代码。

Answer 5

  无法看到DecodeString 函数的代码，知道是这里出了问题！

Answer 6

 DecodeString 函数是控件方法，看不到其代码