[原创]易飞7密码加密原码。

swgame

interface
uses SysUtils, Classes ,Dialogs ;
! h7 \' Q  P5 @0 @
0 U. y: N/ U% G. s5 b& h6 K3 ^const
  FNIL  = '''(&.&!''%&$"''&)" ",&)$(%#$-$#$$" ' ; //NIL值
  PS1 = '&''$%"# !./,-*+()' ; //密码符
  FF1 = ' !"#$%&''()*+,-./'; //符号集

  Function EnUser(s:String):string;
- W6 M0 ?, c* H  //Function DeUser(s:String):string;
; R- n& ?" ~/ p# q5 _+ [0 h+ k9 I& H  Function Encode7(EnStr,s:string):string ;
5 Q# i  D$ m2 {) G" y' M" M  Function Decode7(EnStr,s:string):string ;
( q' Q) `! W3 X  g0 s" Yimplementation
.................
) Q8 S* y+ d" Z8 ?  N# `- @
  V7 G1 K) l6 M; ^

游客，如果您要查看本帖隐藏内容请回复

[ 本帖最后由 swgame 于 2008-12-22 10:43 编辑 ]

microd

谢谢共享

swgame

会在这里出错 n2*16+32 + (ord(FStr2) + (n2*16+32)) mod 16 ;
0 N5 S2 d7 a  f$ [3 ?
; H& u4 \4 r1 ]/ I* h由于本是要做解密的函数，
它是 Function Decode7(EnStr,s:string):string ; 里，
这个是解密函数 没做好。可以把它注释掉，
或自己根据前面的加密自己反推解密函数。

dscwferp

很好!
加油!

xeon

kankango_horror_end

shanyouhe

不错，学习

dgsunrise

又搞了一个新的？

木目田心

内容需要回复才可以浏览

8161223

看看，那个是下载不了

water2008

好东西,看看!

mailsweep

顶一个

JYR520

go_amazing(1)_end go_happy_end go_money_end

davidyang

高手如云啊。。。。。。

thankmygot

下来研究，谢谢共享

zjliuzicheng

顶!

DE410

顶 `

yw1530

研究一下

tjbab

可以研究一下，小兵是神人啊。

freewind

看看

microd

好像还是有些解不完整 。