Delphi Source String Crypt 0.1

这个东西也是在看雪上看到的,不失为字符串加密的一个好办法,除了常规的加密方法,这个东西基于源码的加密倒是也还蛮不错的。

并且每个字符串可以进行不同的处理,其实原理也比较简单,直接看生成的代码就知道什么意思了。

将生成的下面的代码拷贝到自己的源代码中就可以了。

//====================================================================
const
ecb=1522339682;
ank: array [0..52] of byte =
($5C,$2D,$B6,$31,$08,$38,$EF,$85,$D4,$11,$50,$66,$36,$24,$DB,$68,
$F6,$6C,$40,$9B,$04,$12,$39,$DA,$B9,$F1,$F9,$F6,$C6,$67,$90,$DE,
$05,$B4,$20,$3B,$16,$DC,$CC,$29,$AD,$CF,$F3,$C2,$7E,$66,$AF,$87,
$E1,$CA,$5B,$97,$02);
//====================================================================
function wid(yft,msq:Integer):string;
var uvp,lzx:integer;
begin
Result :='';lzx:=ecb; for uvp:=yft to msq+yft-1 do begin
Result:=Result+char(Byte(ank[uvp]) xor (lzx shr 8));
lzx:=(ank[uvp]+lzx)*(yft+msq)+msq;
end;
end;
//====================================================================

 

猛击此处下载该程序,恩,不错的方法。 😉

☆版权☆

* 网站名称:obaby@mars
* 网址:https://lang.ma/
* 个性:https://oba.by/
* 本文标题: 《Delphi Source String Crypt 0.1》
* 本文链接:https://danteng.me/2012/09/4636
* 短链接:https://oba.by/?p=4636
* 转载文章请标明文章来源,原文标题以及原文链接。请遵从 《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。


You may also like

2 comments

  1. Level 3
    Firefox 15 Firefox 15 Windows 7 Windows 7 cn广东省深圳市 电信

    好久没看到你更新博客了,都忙啥去了???

    1. 公主 Queen 
      Opera IBIS 12 Opera IBIS 12 Windows 7 Windows 7 cn福建省厦门市 电信

      回家了,呵呵,并且最近没什么新的好玩的东西,所以没更新。

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注