rwhn.net
当前位置:首页 >> DElphi 数字加密和解密算法. >>

DElphi 数字加密和解密算法.

d7提供了字符串的加密解密函数。 EncdDecd.pas

MD5吧,最近流行,绿坝都是用这个加密。 简单点的,直接用异或“ function setpassword(PassStr: string): string;//输入字符串,返回加密后字符串 var I: Integer; begin PassStr := PassStr; if Length(PassStr) > 0 then for I := 1 to Length...

unit AES; interface uses SysUtils, Classes, Math, ElAES; type TKeyBit = (kb128, kb192, kb256); function StrToHex(Value: string): string;function HexToStr(Value: string): string;function EncryptString(Value: string; Key: string;...

我用的加密解密 function EncryptString(Source, Key: string): string; //对字符串加密(Source:源 Key:密匙) var KeyLen: integer; KeyPos: integer; Offset: integer; Dest: string; SrcPos: integer; SrcAsc: integer; Range: integer; begin...

这个和delphi开发工具没有直接关系的,加密有很多种,常见的有md5加密(分16位 32位加密,不过该加密貌似已经被破解,不再是不可逆的加密了)rsa、des等加密算法。

l iceEncryptText 文本加密解密 http://dl.icese.net/src.php?f=iceEncryptText.src.rar 可参考

多了,des、aes、base64、rsa、md5、sha等等,等等,数不胜数。每一种算法,都可以将数字字母加密成纯数字。因为加密的结果可以再加密。比如aes加密后的密文,是16进制的东西,我们可以把这个结果转换成10进制,不就成了纯数字了吗?所以,所有...

加密/解密一个字符串 { Begin code } program Crypt; uses WinCRT; const C1 = 52845; C2 = 22719; function Encrypt(const S: String; Key: Word): String; var I: byte; begin Result[0] := S[0]; for I := 1 to Length(S) do begin Result[I]...

很重要的就是财产证明。家庭成员的基本资料大致就是这三大类,更细致的材料不同国家会有不同的需要的

网站首页 | 网站地图
All rights reserved Powered by www.rwhn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com