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

3344com

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


  C5 H$ N1 D; y) g& y) P5 centity/en(100),ent,ent1,ent2(1000),pt(980),ln(8),bod1,bod2,bod3,bod
% F* b; Q, o7 ^( l5 M. U/ }9 O$ ^entity/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)
number/m1(3),n1(3),k1(3),p1(3),n,m,mat(12),mat3(12)
/ Q+ j* e1 J4 [! gnumber/m2(3),n2(3),k2(3),p2(3)
number/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)$$数字变量
string/ch1(60),ch2(60),ch3(180),ch4(180),image(90)
3 K1 x5 u& }% [, v8 g" w4 \6 |string/ch5(80),ch6(80),ch7(80),ch8(80),ch9(80),ch10(80)
" P4 H0 a1 V' N7 d6 x4 d: Tlp1:
&fulldt=2
" J5 s+ r5 ^! p' Cch5=date
ch6=substr(ch5,1,2)
ch7=substr(ch5,4,2)
ch8=substr(ch5,7,4)
! O1 h. }. `; Q4 S4 |, R' O& }2 sch9=ch6+ch7+ch8
num2=valf(ch9+ch6)
ifthen/num2<=0522200705

-KASA-

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

3344com

回复 2# -KASA-
, A/ c5 T. h" W2 \8 H6 D" Y# C2 ]% t
- V; J- p* Z4 r0 M$ e( [+ ~
  S+ }+ m0 ^! ?2 A" W    多谢2楼的