盒子论坛 v2.1

d7用des 加密的字符串在xe5解密出错，请高手指点一下
xe5 里的生成安卓软件用的

{**********}
{          CnPack For Delphi/C++Builder          }
{          中国人自己的开放源码第三方开发包          }
{          (C)Copyright 2001-2012 CnPack 开发组          }
{          ----------          }
{          }
{          本开发包是开源的自由软件，您可以遵照 CnPack 的发布协议来修        }
{        改和重新发布这一程序。          }
{          }
{          发布这一开发包的目的是希望它有用，但没有任何担保。甚至没有        }
{        适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。        }
{          }
{          您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果        }
{        还没有，可访问我们的网站：          }
{          }
{          网站地址：http://www.cnpack.org          }
{          电子邮件：master@cnpack.org          }
{          }
{**********}

unit CnDES;
{* |<PRE>
==========
* 软件名称：开发包基础库
* 单元名称：DES 算法单元
* 单元作者：匿名/佚名
* 备    注：由匿名作者搜集整理而来
* 开发平台：PWin2000Pro + Delphi 5.0
* 兼容测试：PWin9X/2000/XP + Delphi 5/6
* 本地化：该单元中的字符串均符合本地化处理方式
* 单元标识：$Id: CnDES.pas 1146 2012-10-24 06:25:41Z liuxiaoshanzhashu@gmail.com $
* 修改记录：2008.05.30 V1.0
*          创建单元
==========
|</PRE>}

interface

{$I CnPack.inc}

uses
  SysUtils;

function DESEncryptStr(Str, Key: AnsiString): AnsiString;
{* 传入明文与加密 Key，DES 加密返回密文，
   注：由于密文可能含有扩展 ASCII 字符，因此在 DELPHI 2009 或以上版本中，请用
   AnsiString 类型的变量接收返回值，以避免出现多余的 Unicode 转换而导致解密出错}

function DESDecryptStr(Str, Key: AnsiString): AnsiString;
{* 传入密文与加密 Key，DES 解密返回明文}

function DESEncryptStrToHex(Str, Key: AnsiString): AnsiString;
{* 传入明文与加密 Key，DES 加密返回转换成十六进制的密文}

function DESDecryptStrFromHex(StrHex, Key: AnsiString): AnsiString;
{* 传入十六进制的密文与加密 Key，DES 解密返回明文}
----------------------------------------------
-

作者：

maple119 (疯子)	★☆☆☆☆	-
	普通会员

2014/1/3 1:30:40

1楼：

你传过去的参数，要确定是AnsiString, 不要强制转换。
----------------------------------------------
-

作者：

xu_wayne (wayne不念韦尼)	▲▲▲▲△	-
	普通会员

2014/1/3 9:08:32

2楼：

基本可以确定是unicode的问题。我也在D7下用DES加密，考虑到unicode的问题，就没升级到XE2
----------------------------------------------
-

作者：

socket2008 (风之子)	▲▲▲▲▲	-
	普通会员

2014/1/3 17:25:53

3楼：

编码问题，D7是 ansi，现在默认用的 unicode
转一下编码就行了
----------------------------------------------
-第七下载 www.7down.net

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2014/1/3 17:41:51

4楼：

如果要通用，请使用 UTF8.
----------------------------------------------
(C)(P)Flying Wang

作者：

ybbaps (ybbaps)	★☆☆☆☆	-
	盒子活跃会员

2014/1/10 22:40:42

5楼：

现在问题是用d7 加了密，要在手机（安卓）上解密。
----------------------------------------------
-

作者：

wcnyygy (12345)	★☆☆☆☆	-
	盒子活跃会员

2014/1/23 12:42:19

6楼：

用tchararray吧..我也这么用的.莫办法.
----------------------------------------------
-

信息

登陆以后才能回复