|
[求助].Net反编译转Delphi
网上找的源代码,,谁帮我转至Delphi,,,或者用C++写一个,谢谢 public string Encrypt(string stringToEncrypt, string sKey) { DESCryptoServiceProvider des = new DESCryptoServiceProvider(); byte[] inputByteArray = Encoding.GetEncoding("UTF-8").GetBytes(stringToEncrypt); des.Key = ASCIIEncoding.UTF8.GetBytes(sKey); des.IV = ASCIIEncoding.UTF8.GetBytes(sKey); MemoryStream ms = new MemoryStream(); CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write); cs.Write(inputByteArray, 0, inputByteArray.Length); cs.FlushFinalBlock(); StringBuilder ret = new StringBuilder(); foreach (byte b in ms.ToArray()) { ret.AppendFormat("{0:X2}", b); } ret.ToString(); return ret.ToString(); } public string Decrypt(string stringToDecrypt, string sKey) { DESCryptoServiceProvider des = new DESCryptoServiceProvider(); byte[] inputByteArray = new byte[stringToDecrypt.Length / 2]; for (int x = 0; x < stringToDecrypt.Length / 2; x++) { int i = (Convert.ToInt32(stringToDecrypt.Substring(x * 2, 2), 16)); inputByteArray[x] = (byte)i; } des.Key = ASCIIEncoding.UTF8.GetBytes(sKey); des.IV = ASCIIEncoding.UTF8.GetBytes(sKey); MemoryStream ms = new MemoryStream(); CryptoStream cs = new CryptoStream(ms, des.CreateDecryptor(), CryptoStreamMode.Write); cs.Write(inputByteArray, 0, inputByteArray.Length); cs.FlushFinalBlock(); StringBuilder ret = new StringBuilder(); return System.Text.Encoding.Default.GetString(ms.ToArray()); } // public sealed class DESEncrypt ...{ private DESEncrypt() ...{ // // TODO: 在此处添加构造函数逻辑 // } private static string key = "zhoufoxcn"; /**//// <summary> /// 对称加密解密的密钥 /// </summary> public static string Key ...{ get ...{ return key; } set ...{ key = value; } } /**//// <summary> /// DES加密 /// </summary> /// <param name="encryptString"></param> /// <returns></returns> public static string DesEncrypt(string encryptString) ...{ byte[] keyBytes = Encoding.UTF8.GetBytes(key.Substring(0, 8)); byte[] keyIV = keyBytes; byte[] inputByteArray = Encoding.UTF8.GetBytes(encryptString); DESCryptoServiceProvider provider = new DESCryptoServiceProvider(); MemoryStream mStream = new MemoryStream(); CryptoStream cStream = new CryptoStream(mStream, provider.CreateEncryptor(keyBytes, keyIV), CryptoStreamMode.Write); cStream.Write(inputByteArray, 0, inputByteArray.Length); cStream.FlushFinalBlock(); return Convert.ToBase64String(mStream.ToArray()); } /**//// <summary> /// DES解密 /// </summary> /// <param name="decryptString"></param> /// <returns></returns> public static string DesDecrypt(string decryptString) ...{ byte[] keyBytes = Encoding.UTF8.GetBytes(key.Substring(0, 8)); byte[] keyIV = keyBytes; byte[] inputByteArray = Convert.FromBase64String(decryptString); DESCryptoServiceProvider provider = new DESCryptoServiceProvider(); MemoryStream mStream = new MemoryStream(); CryptoStream cStream = new CryptoStream(mStream, provider.CreateDecryptor(keyBytes, keyIV), CryptoStreamMode.Write); cStream.Write(inputByteArray, 0, inputByteArray.Length); cStream.FlushFinalBlock(); return Encoding.UTF8.GetString(mStream.ToArray()); } } |
|
[求助].Net反编译转Delphi
顶起来~! |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
不能用的~!一样的~! |
|
|
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
没用的,不可以 |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
还有这个说??? |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
已经再做了一次~!也是无效! |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
这两天没动静? |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
走过路过的,,,帮帮忙~! |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
32位下面也不行,,,同样的代码,,,在之前的Win7系统就可以 |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
可以的,,,注册表修改一下即可 |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
能否给份32位下可以的代码,谢谢 |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
导出的函数是相同的,,,我用PYG的生成工具,就可以在64位的Win7上使用 |
|
[求助]Delphi编写怕LPK在Win7 64位无法运行!
用PYG10周年DLL补丁制作工具,,生成的LPK.dll可以正常使用!自己用Delphi写的就不行~! |
|
[原创]MDebug 1.04 更新,支持64位调试
还可以,,,,加油~! |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值