一个简单的加密解密算法
来源:互联网 发布:mac os server工具 编辑:程序博客网 时间:2024/05/20 07:20
//前面定义好常量
const
C1 = 123456;
C2 = 234567;
PASSKEY = '66666';
//加密函数
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I:= 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key:=(byte(Result[I]) + Key) * C1 + C2;
end;
end;
//解密函数
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I := 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key := (byte(S[I]) + Key) * C1 + C2;
end;
end;
//使用方法------------------------------------------------
tmp := Encrypt('需要加密的内容', StrToInt(PASSKEY));
tmp := Decrypt('需要解密的内容', StrToInt(PASSKEY));
const
C1 = 123456;
C2 = 234567;
PASSKEY = '66666';
//加密函数
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I:= 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key:=(byte(Result[I]) + Key) * C1 + C2;
end;
end;
//解密函数
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I := 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key := (byte(S[I]) + Key) * C1 + C2;
end;
end;
//使用方法------------------------------------------------
tmp := Encrypt('需要加密的内容', StrToInt(PASSKEY));
tmp := Decrypt('需要解密的内容', StrToInt(PASSKEY));
- 一个简单的加密解密算法
- 简单的加密解密算法
- 简单的加密解密算法
- 简单的加密解密算法
- 简单的加密解密算法
- c# 一个简单的加密解密算法
- 用Java实现一个简单的单秘钥加密解密算法
- 一个最简单的加密解密算法(纯数字)
- 一个加密解密算法
- 一个简单的加密解密程序
- 一个简单的加密,解密方法
- 一个简单的加密解密方法实例
- 简单实用的加密解密算法
- RC4加密解密算法的简单实现
- 关于简单的加密和解密算法
- 简单实用的加密解密算法
- 简单的异或加密解密算法
- java简单的加密和解密算法
- MS SQL查询时自动给数据排名:RANK(),DENSE_RANK()
- VB常用代码总结(二)【转】
- VB常用代码总结(一)【转】
- 获取设备句柄的两种方法
- delhpi 数据库中的图像存储和读取
- 一个简单的加密解密算法
- ZJU 2604 Little Brackets - 动态规划 Catalan数变形
- Embedded Linux System Design and Development
- 腾讯首席架构师:互联网应用向移动终端转移
- Moving to Ubuntu Linux
- SD--SD知识点列表
- 总结面试的情况
- HTML & XHTML: The Definitive Guide (6th Edition)
- .NET Internationalization: The Developer's Guide to Building Global Windows and Web Applications