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. glVertexAttribPointer 用法简介

    在内存中采用交叉模式存储,向gpu传入顶点数据的方法  GPU: #version 100 attribute highp vec2 aPosition; attribute highp vec2 a ...

  2. Linux kernel Programming - Concurrency and Race Conditions

    Concurrency and Its Management Race condition can often lead to system crashes, memory leak,corrupte ...

  3. 数据可视化matplotlib、seaborn、pydotplus

    如需转发,请注明出处:小婷儿的python  https://www.cnblogs.com/xxtalhr/p/10486560.html 一.数据可视化 data.mat 链接:https://p ...

  4. root密码重置(Centos 7)

    1.系统启动时出现操作系统的选择界面,按e进入grub编辑模式. 2.选择linux16开头这一行在最后加上  \re.break 按ctrl+x 3.进入switch-root:# 输入 mount ...

  5. 一、java虚拟机内存区域

    内存区域 java虚拟机在java程序的过程中会把它所管理的内存划分为若干个不同的数据区域.java虚拟机规范将JVM管理的内存分为:程序计数器.本地方法栈.Java虚拟机栈.方法区.Java堆.如下 ...

  6. 阿里云ubuntu 16.04搭建odoo11服务器

    ubuntu 16.04 具体如何搭建odoo11网站的具体步骤可以参考这一篇文章 按上面的文章配置环境后,自己网站的启动具体步骤如下: 1.登录阿里云 [远程连接],进入命令行界面1 2.cd到目录 ...

  7. 分布式理论——quorum原理

    编者按:本篇文章是网上一些文章的合集,并不是原创,谢谢各位的分享. 一.基于Quorum投票的冗余控制算法 Quorom 机制,是一种分布式系统中常用的,用来保证数据冗余和最终一致性的投票算法,其主要 ...

  8. POJ1845

    这还是一道综合了许多数论的知识点的,做完也涨了不少姿势 但还是因为约数和公式这个鬼东西去找了度娘 题意很简单,就是求\(A^B\)的约数之和\(mod\ 9901\). 但是这种题意越是简单的题目越是 ...

  9. Item 9: 比起typedef更偏爱别名声明(alias declaration)

    本文翻译自modern effective C++,由于水平有限,故无法保证翻译完全正确,欢迎指出错误.谢谢! 博客已经迁移到这里啦 我确信我们都同意使用STL容器是一个好主意,并且我希望在Item ...

  10. 用JS制作一个信息管理平台(1)

    首先,介绍一些需要用到的基本知识. [JSON] JSON是数据交互中,最常用的一种数据格式. 由于各种语言的语法都不相同,在传递数据时,可以将自己语言中的数组.对象等转换为JSON字符串. 传递之后 ...