这个东西也是在看雪上看到的,不失为字符串加密的一个好办法,除了常规的加密方法,这个东西基于源码的加密倒是也还蛮不错的。
并且每个字符串可以进行不同的处理,其实原理也比较简单,直接看生成的代码就知道什么意思了。
将生成的下面的代码拷贝到自己的源代码中就可以了。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | //==================================================================== 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
本文标题: 《Delphi Source String Crypt 0.1》
本文链接地址: http://h4ck.org.cn/2012/09/delphi-source-string-crypt-0-1/
2条评论
好久没看到你更新博客了,都忙啥去了???
回家了,呵呵,并且最近没什么新的好玩的东西,所以没更新。