Var
i,j:Integer;
j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;

解决方案 »

  1.   

    http://tech.tom.com/Archive/2001/12/19-28097.html,怎么这样写的?
      

  2.   

    Function TForm1.Encrypt(TempStr:string):string;VarStr1:String;i,j:Integer;BeginStr1:='';For i:=1 to Length(TempStr) dobeginj:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;Str1:=Str1+chr(ord(TempStr[i])+j);j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;Str1:=Str1+chr(ord(TempStr[i])+j);End;Result:=Str1;end;j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;//什么意思??????????????
      

  3.   

    Var
    i,j:Integer;
    j:=(iiii mod (i+30))+(ii mod (i+20))+i3+1;
    怎么连续有四个i ,可都没有运算符呀搞不懂呀