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

3344com

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

% m" e4 N' P; j% u# D' H% O4 U
entity/en(100),ent,ent1,ent2(1000),pt(980),ln(8),bod1,bod2,bod3,bod
entity/csy1,csy2,cr1,csy3(20) $$实体变量
2 f5 q7 X6 P( R; |number/a(3),b(3),c(3),d(3),e(3),f(3),g(3),h(7),i(3),j(3),q(3)
number/m1(3),n1(3),k1(3),p1(3),n,m,mat(12),mat3(12)
number/m2(3),n2(3),k2(3),p2(3)
1 r4 P6 @$ j1 W9 hnumber/m3(3),n3(3),k3(3),p3(3)
/ Y. C" ~" `4 k8 E& Y1 Ynumber/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)$$数字变量
. l  [5 n6 O, n4 ?' ?string/ch1(60),ch2(60),ch3(180),ch4(180),image(90)
string/ch5(80),ch6(80),ch7(80),ch8(80),ch9(80),ch10(80)
lp1:
% [9 J# ]2 y; L+ }: ]&fulldt=2
ch5=date
ch6=substr(ch5,1,2)
5 a* G( k/ K9 V# P- ^2 |ch7=substr(ch5,4,2)
8 d7 P7 P% o, L, dch8=substr(ch5,7,4)
ch9=ch6+ch7+ch8
3 z; U  T0 }" k4 R, C: e! Knum2=valf(ch9+ch6)
% G, Q, z2 b& b3 g! Uifthen/num2<=0522200705

-KASA-

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

3344com

回复 2# -KASA-
! A2 f; w3 ^, e1 m5 q3 l4 t
$ R' D3 s. E: Q6 s( S5 _
! @' {0 W" i  {0 Q$ {    多谢2楼的