谁能帮我修改这个加密日期啊！

3344com

前短时间有个同事问我怎么修改加密日期，但是我不知道那里可以改！看不懂，希望高手帮忙下！如果可以的话！帮我编多一个也可以！！谢谢！代码如下：

3 L9 n5 P% ^9 q, J# k( D
entity/en(100),ent,ent1,ent2(1000),pt(980),ln(8),bod1,bod2,bod3,bod
4 b/ ^" {8 E$ tentity/csy1,csy2,cr1,csy3(20) $$实体变量
number/a(3),b(3),c(3),d(3),e(3),f(3),g(3),h(7),i(3),j(3),q(3)
2 j. \/ Q8 I0 h- \4 W& s8 I& pnumber/m1(3),n1(3),k1(3),p1(3),n,m,mat(12),mat3(12)
number/m2(3),n2(3),k2(3),p2(3)
+ v1 G# I6 r3 m4 u" d/ z6 snumber/m3(3),n3(3),k3(3),p3(3)
number/m4(3),n4(3),k4(3),p4(3),x(2),y(2),z(2),num3(20),num0
number/num,cn1,cn2,num1(20),cm,len(8),mat1(12),mat2(12)$$数字变量
( o( k- O0 v: u6 mstring/ch1(60),ch2(60),ch3(180),ch4(180),image(90)
string/ch5(80),ch6(80),ch7(80),ch8(80),ch9(80),ch10(80)
lp1:
; j9 z' @" t$ B5 U( A/ j3 z&fulldt=2
ch5=date
ch6=substr(ch5,1,2)
ch7=substr(ch5,4,2)
ch8=substr(ch5,7,4)
ch9=ch6+ch7+ch8
num2=valf(ch9+ch6)
$ a9 o: b, @" G3 Q# X" sifthen/num2<=0522200705

-KASA-

"05222007" 这个就是日期，2007年5月22日。改这个就行了。

3344com

回复 2# -KASA-

/ ?8 D4 S5 Z  t" ]5 _/ y! |
$ j. `) ]* c* |0 }5 H$ A8 u    多谢2楼的