Delphi加密解密算法，直接添加

delphiorang

于 2020-09-06 01:45:52 发布

阅读量883

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/delphiorang/article/details/108427164

这个博客提供了三种Delphi语言实现的加密解密方法，包括通过密钥加密解密、移位加密解密和异或加密解密。每个方法都有对应的加密和解密函数，如EncryptString和UnEncryptString，Encode和Decode，以及Enc和Dec。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit2;

interface
uses
Controls,
Classes,
SysUtils;

// 加密方法一(通过密钥加密解密)
function EncryptString(Source, Key: string): string;
function UnEncryptString(Source, Key: string): string;
//加密方法二(通过移位加密解密)
function Encode(Str: string): string;
function Decode(Str: string): string;
//加密方法三（异或加密解密）
function Enc(str: string): string;
function Dec(str: string): string;

implementation
var XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47);

function EncryptString(Source, Key: string): string;
// 对字符串加密(Source:源 Key:密匙)
var
KeyLen: integer;
KeyPos: integer;
Offset: integer;
Dest: string;
SrcPos: integer;
SrcAsc: integer;
Range: integer;
begin
KeyLen := Length(Key);
if KeyLen = 0 then
Key := 'delphi';
KeyPos :

最低0.47元/天解锁文章