function Encode(Str: string): string;

var //加密

TmpChr: AnsiChar;

i, Len: integer;

begin

Result := Str;

Len := Length(Result);

TmpChr := Result[1];

for i := 1 to Len - 1 do

Result[i] := Result[i + 1];

Result[Len] := TmpChr;

end;

function Decode(Str: string): string;

var //解密

TmpChr: AnsiChar;

i, Len: integer;

begin

Result := Str;

Len := Length(Result);

TmpChr := Result[Len];

for i := Len downto 2 do

Result[i] := Result[i - 1];

Result[1] := TmpChr;

end;

{异或 加密解密}

const // 首先定义一个常量数组

XorKey: array[0..7] of Byte = ($B2, $91, $AA, $55, $93, $6D, $84, $47); //字符串加密用

//数组的值可以自己改

function Enc(Str: string): string; //字符加密函数   这是用的一个异或加密

var

i, j: Integer;

begin

Result := '';

j := 0;

for i := 1 to Length(Str) do

begin

Result := Result + IntToHex(Byte(Str[i]) xor XorKey[j], 2);

j := (j + 1) mod 8;

end;

end;

function Dec(Str: string): string; //字符解密函数

var

i, j: Integer;

begin

Result := '';

j := 0;

for i := 1 to Length(Str) div 2 do

begin

Result := Result + Char(StrToInt('$' + Copy(Str, i * 2 - 1, 2)) xor XorKey[j]);

j := (j + 1) mod 8;

end;

end;

function Crypt(s: string; Key: Word;

const bEncrypt: boolean): string;

const

SeedA = 787; ///   常量,你可以修改

SeedB = 787; ///   常量,你可以修改

var

i: integer;

ps, pr: ^byte;

begin

if bEncrypt then

s := s + #0;

SetLength(Result, Length(s));

ps := @s[1];

pr := @Result[1];

for i := 1 to length(s) do

begin

pr^ := ps^ xor (Key shr 8);

if bEncrypt then

Key := (pr^ + Key) * SeedA + SeedB

else

Key := (ps^ + Key) * SeedA + SeedB;

pr := pointer(integer(pr) + 1);

ps := pointer(integer(ps) + 1);

end;

end;

///////////////////

function EncrypStr(Src, Key: string): string; //字符串加密函数

//对字符串加密(Src:源 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;

Range := 256;

Randomize;

offset := Random(Range);

dest := format('%1.2x', [offset]);

for SrcPos := 1 to Length(Src) do

begin

SrcAsc := (Ord(Src[SrcPos]) + offset) mod 255;

if KeyPos < KeyLen

then KeyPos := KeyPos + 1

else KeyPos := 1;

SrcAsc := SrcAsc xor Ord(Key[KeyPos]);

dest := dest + format('%1.2x', [SrcAsc]);

offset := SrcAsc;

end;

Result := Dest;

end;

function UncrypStr(Src, Key: string): string; //字符串解密函数

//对字符串解密(Src:源 Key:密匙)

var KeyLen: Integer;

KeyPos: Integer;

offset: Integer;

dest: string;

SrcPos: Integer;

SrcAsc: Integer;

TmpSrcAsc: Integer;

begin

KeyLen := Length(Key);

if KeyLen = 0 then key := 'delphi';

KeyPos := 0;

offset := StrToInt('$' + copy(src, 1, 2));

SrcPos := 3;

repeat

SrcAsc := StrToInt('$' + copy(src, SrcPos, 2));

if KeyPos < KeyLen

then KeyPos := KeyPos + 1

else KeyPos := 1;

TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);

if TmpSrcAsc <= offset

then TmpSrcAsc := 255 + TmpSrcAsc - offset

else TmpSrcAsc := TmpSrcAsc - offset;

dest := dest + chr(TmpSrcAsc);

offset := srcAsc;

SrcPos := SrcPos + 2;

until SrcPos >= Length(Src);

Result := Dest;

end;

//********************************************************

//             加密解密 (利用异或运算)    (方式2)

//********************************************************

function encryptstr(const s: string; skey: string): string; //加密

var

i, j: integer;

hexS, hexskey, midS, tmpstr: string;

a, b, c: byte;

begin

hexS := myStrtoHex(s);

hexskey := myStrtoHex(skey);

midS := hexS;

for i := 1 to (length(hexskey) div 2) do

begin

if i <> 1 then midS := tmpstr;

tmpstr := '';

for j := 1 to (length(midS) div 2) do

begin

a := strtoint('$' + midS[2 * j - 1] + midS[2 * j]);

b := strtoint('$' + hexskey[2 * i - 1] + hexskey[2 * i]);

c := a xor b;

tmpstr := tmpstr + myStrtoHex(chr(c));

end;

end;

result := tmpstr;

end;

function decryptstr(const s: string; skey: string): string; //解密

var

i, j: integer;

hexS, hexskey, midS, tmpstr: string;

a, b, c: byte;

begin

hexS := s; //应该是该字符串

if length(hexS) mod 2 = 1 then

begin

showmessage('密文错误!');

exit;

end;

hexskey := myStrtoHex(skey);

tmpstr := hexS;

midS := hexS;

for i := (length(hexskey) div 2) downto 1 do

begin

if i <> (length(hexskey) div 2) then midS := tmpstr;

tmpstr := '';

for j := 1 to (length(midS) div 2) do

begin

a := strtoint('$' + midS[2 * j - 1] + midS[2 * j]);

b := strtoint('$' + hexskey[2 * i - 1] + hexskey[2 * i]);

c := a xor b;

tmpstr := tmpstr + myStrtoHex(chr(c));

end;

end;

result := myHextoStr(tmpstr);

end;

没有一个个去研究,调试。以后在时间在慢慢试。

(完)

从网上整理的一些delphi字符串加密解密方法的更多相关文章

  1. Delphi字符串加密/解密

    unit uEncrypt_Decrypt;   interface   uses SysUtils;   const XorKey: array[0..7] of Byte = ($B2, $09, ...

  2. C# 字符串加密解密方法

    这个是加密的算法的命名空间,使用加密算法前要引用该程序集  System.Security.Cryptography using System;using System.Data;using Syst ...

  3. C# 常用字符串加密解密方法

    using System; using System.Collections.Generic; using System.IO; using System.Linq; using System.Sec ...

  4. java字符串加密解密

    java字符串加密解密 字符串加密解密的方式很多,每一种加密有着相对的解密方法.下面要说的是java中模拟php的pack和unpack的字符串加密解密方法. java模拟php中pack: /** ...

  5. C# 字符串加密解密函数

    原文:C# 字符串加密解密函数 using System; using System.Text;using System.Security.Cryptography; using System.IO; ...

  6. 简单的JavaScript字符串加密解密

    简单的JavaScript字符串加密解密 <div> <input type="text" id="input" autofocus=&quo ...

  7. C#/IOS/Android通用加密解密方法

    原文:C#/IOS/Android通用加密解密方法 公司在做移动端ios/android,服务器提供接口使用的.net,用到加密解密这一块,也在网上找了一些方法,有些是.net加密了android解密 ...

  8. ASP.NET常用加密解密方法

    ASP.NET常用加密解密方法 一.MD5加密解密 1.加密 C# 代码           public static string ToMd5(string clearString)        ...

  9. ios常见加密解密方法

    在其他平台中经常会计算MD5值,在iOS平台中也提供了该方法,首先需要导入头文件 #import <CommonCrypto/CommonDigest.h> 方法CC_MD5可以获取MD5 ...

随机推荐

  1. leetcode538. Convert BST to Greater Tree

    https://www.cnblogs.com/grandyang/p/6591526.html 这个题本质上是中序遍历的反向.中序遍历是从小到大,而这个题目是从大到小,然后每个数加上比自己大的所有数 ...

  2. 1226 快速幂 取余运算 洛谷luogu

    还记得 前段时间学习二进制快速幂有多崩溃 当然这次方法略有不同 居然轻轻松松的 题目描述 输入b,p,k的值,求b^p mod k的值.其中b,p,k*k为长整型数. 输入输出格式 输入格式: 三个整 ...

  3. all与any的用法

    all函数:检测矩阵中是否全为非零元素 any函数:检测矩阵中是否有非零元素,如果有,则返回1,否则,返回0.用法和all一样 语法: B = all(A) B = all(A, dim) 复制代码 ...

  4. PAT A1113 Integer Set Partition (25 分)——排序题

    Given a set of N (>1) positive integers, you are supposed to partition them into two disjoint set ...

  5. nginx-1.13.12 源码配置清单

    configure命令支持以下参数: --help打印帮助信息. --prefix=安装路径定义一个将保留服务器文件的目录.这个相同的目录也将被用于由configure(由库源创建的路径除外)和ngi ...

  6. 如何屏蔽SkylineGlobe提供的三维地图控件上的快捷键

    SkyllineGlobe提供的 <OBJECT ID=" TerraExplorer3DWindow" CLASSID="CLSID:3a4f9192-65a8- ...

  7. C# 定时器和队列结合,卖包子啦,Timer、 AutoResetEvent、 ManualResetEvent

    再你们得到源码之前,我先做个广告:张家港杰德机械/张家港三兴华轩机械是我一朋友的公司,希望需要做净水,灌装机,拔盖机,封口机,传送带等的朋友光顾. 张家港杰德机械有限公司:http://www.jie ...

  8. python第二周。2019.4.13

    1, 我绘制大蟒蛇就是..保存也对着呢,你要是打开文件的话,先闪个黑屏,再闪个白屏..自动退出,然后啥都没了. 我觉得是我代码编错了...再来一遍! 这次到可以,但是这个大蟒蛇好像没有回头... 刚才 ...

  9. U盘、移动硬盘等弹出 “文件或目录损坏且无法读取” 实测解决办法

    U盘跟其他的机器一样,使用久了难免会出故障,比如常见的弹出一个文件或目录损坏且无法读取的对话框,吓你一跳,整个U盘都损坏的意思,那里面的资料怎么办呢,所以很多人很着急,其实遇到这种情况一般都是之前使用 ...

  10. CentOS 6下gcc升级的操作记录(由默认的4.4.7升级到6.4.0版本)

    机房一台centos6.9机器部署了jenkins发布系统,开发人员在用node编译js,发现依赖的gcc版本低了,故需要将gcc升级到高版本(至少5.0版本以上),这里选择升级到6.4.0版本,下面 ...