加密解密 Delphi C# 兼容互转

我就是我 2022-10-01 00:35 17阅读 0赞

http://blog.csdn.net/qdseashore/article/details/52321820

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;

\}

发表评论取消回复

表情：

评论列表（有 0 条评论，17人围观）

还没有评论，来说两句吧...

相关阅读

相关 rsa加密解密c语言算法_C和C ++中的RSA算法（加密和解密）

![40ea678094d873567e40b6f418d146dd.png][] rsa加密解密c语言算法 Here you will learn about RSA a

矫情吗；*/ 2022年12月07日 13:59/ 0 赞/ 504 阅读

相关 Delphi 字符串加密和解密函数

[泰山老父][Link 1]的Delphi 字符串加密和解密函数 function Encrypt(const InString:string; Salt:strin

心已赠人/ 2022年11月14日 14:46/ 0 赞/ 269 阅读

相关加密解密 Delphi C# 兼容互转

http://blog.csdn.net/qdseashore/article/details/52321820 Delphi： function st

我就是我/ 2022年10月01日 00:35/ 0 赞/ 18 阅读

相关 C#加密解密

C\加密解密大全 1、方法一 (不可逆加密) 复制代码复制代码 public string EncryptPassword(string Password

心已赠人/ 2022年09月04日 13:50/ 0 赞/ 205 阅读

相关 C# AES 加密解密示例

AES 是一种对称加密算法。相对非对称加密，对称加密解密过程速度更快，适合大数据流实时加密解密。AES 被广泛应用于金融，政府等领域的网络传输。在这里分享一段用 .Net

女爷i/ 2022年07月15日 07:57/ 0 赞/ 215 阅读

相关 C#中DES加密解密

http://blog.csdn.net/csethcrm/article/details/18261331 加密和解密是一门高深和复杂的学科。在程序中有时需

墨蓝/ 2022年07月12日 11:28/ 0 赞/ 257 阅读

相关【加密解密】-AES加密解密实现

AES加密解密工具类：AESUtils package org.iti.algorithm; import java.security.Secure

偏执的太偏执、/ 2022年06月13日 08:06/ 0 赞/ 367 阅读

相关 C# 加密解密类

MD5无法通过密文解成明文 RSA无法加密长文本 DES两者兼有 using System; using System.Collections.Gen

布满荆棘的人生/ 2022年05月11日 05:24/ 0 赞/ 180 阅读

相关 c++ string double 互转

`string str = ` `"123456"` `double` `dblValue = _atof(str);` `` `` `` C++通过

- 日理万妓/ 2022年04月01日 15:18/ 0 赞/ 292 阅读

相关 Java加密解密算法-DES加密解密

package algo; import java.security.SecureRandom; import javax.crypto.Cipher; im

ゝ一纸荒年。/ 2021年09月25日 23:40/ 0 赞/ 596 阅读