求一对1到100数字的加密解密方法,密码为11位或6位的string,要求加密后生成能存放进sql 数据库的字符串,不能包含sql 无法识别的字符串

解决方案 »

  1.   


        function HexToString(S: string): string;
        var i: integer;
        Begin
          Result := '';
          for i := 1 to Length( S ) do
          begin
                if ((i mod 2) = 1) then
                        Result := Result + Chr( StrToInt( '0x' + Copy( S, i, 2 )));
          end;
        end;
    =======================================
        function StringToHex(S: string): string;
        var i: integer;
        Begin
            Result := '';
                for i := 1 to Length( S ) do
                Result := Result + IntToHex( Ord( S[i] ), 2 );
        end;