加密解密 Delphi C# 兼容互转

2016-08-26 08:11:52来源:CSDN作者:QDseashore人点击

Delphi:
function strtohstr(s: string): string;var  i: integer;  r: byte;begin  Randomize;  r := Random(60) + 35;  result := '';  for i := 1 to length(s) do  begin    s[i] := chr(ord(s[i]) xor r);    s[i] := chr(ord(s[i]) xor (i and $FF));    result := result + chr(((ord(s[i]) and $F0) shr 4) + 80) + chr(((ord(s[i]) and $F)) + 89);  end;  result := result + chr(r);end;
//字符解密
function hstrtostr(s: string): string;var i: integer;  c: char;  r: byte;begin  result := '';  if s = '' then exit;  r := ord(s[length(s)]);  for i := 1 to length(s) shr 1 do  begin    c := chr(((ord(s[i * 2 - 1]) - 80) shl 4) + (ord(s[i * 2]) - 89));    c := chr(ord(c) xor (i and $FF));    c := chr(ord(c) xor r);    result := result + c;  end;end;
C#:           //解密        public static string HStrToStr(String sInfo)        {            string sResult = "";            if (String.IsNullOrEmpty(sInfo))            {                return sResult = "";            }            int iValue = 0; byte rValue = 0;            int iResultLen=(sInfo.Length >> 1);
            //随机密匙取出来            rValue = (byte)(sInfo[sInfo.Length - 1]);            for (int i = 0; i < iResultLen; i++)            {                //奇数数列                int iOS = (i + 1) * 2 - 1;                int iJS = (i) * 2;                char cValue = (char)((((byte)(sInfo[iJS]) - 80) << 4) + ((byte)(sInfo[iOS]) - 89));                cValue = (char)((byte)(cValue) ^ ((i+1) & 0xFF));                cValue = (char)((byte)(cValue) ^ rValue);
                sResult += "" + cValue;            }
            return sResult;        }
        //加密        public static string StrToHStr(String sInfo)        {            string sResult = "";            if (String.IsNullOrEmpty(sInfo))            {                return sResult = "";            }
            int iValue = 0; byte rValue = 0;            char[] sDeal = new char[sInfo.Length];            Random rnd = new Random();            rValue = (byte)(rnd.Next(60) + 35);            for (int i = 0; i < sInfo.Length; i++)            {                sDeal[i]=(char)((byte)sInfo[i] ^ rValue);                sDeal[i] = (char)(((byte)sDeal[i]) ^ ((i + 1) & 0xFF));
                sResult += "" +(char)((((byte)(sDeal[i]) & 0xF0) >> 4) + 80) +(char)((((byte)(sDeal[i]) & 0x0F)) + 89);            }            //随机密匙放在最后一位。            sResult += "" + (char)rValue;            return sResult;        }

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台