home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / XHCZ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.6 KB  |  65 lines
  1.         *****╤º║┼▓Θ╒╥(XHCZ)*****
  2. STORE .T. TO MQ1
  3. CLEAR
  4.   DO WHILE MQ1
  5.      STORE '       ' TO SHA1
  6.      @ 1,0 SAY '╟δ╩Σ╚δ╤º║┼(6╗≥7╬╗╩²╫╓,╚τ:8401456)'GET SHA1
  7.      READ
  8.      STORE ' ' TO MXG
  9.      @ 2,0 SAY '╩Σ╚δ╤º║┼╢╘┬≡? (Y/N/Q)   Q╬¬═╦│÷ ' GET MXG 
  10.      READ
  11.      IF UPPER(MXG)='Q'
  12.         STORE .F. TO MQ1
  13.         RETURN 
  14.      ELSE
  15.         IF UPPER (MXG) = 'N'
  16.            @ 9,4 SAY '╟δ╓╪╨┬╩Σ╚δ'
  17.            LOOP 
  18.         ELSE
  19.         STORE .F. TO MQ1
  20.         ENDIF
  21.       ENDIF
  22.       IF LEN(SHA1) > 7.OR. LEN(SHA1) < 6
  23.          STORE .T. TO MQ1
  24.          WAIT '╩Σ╚δ╤º║┼┤φ! ░┤╚╬╥Γ╝ⁿ╟δ╓╪╨┬╩Σ╚δ.'
  25.          LOOP
  26.        ELSE
  27.          STORE .F. TO MQ1
  28.        ENDIF
  29.        IF LEN(SHA1)=6
  30.           X=SUBSTR(SHA1,1,2)
  31.           Y=SUBSTR(SHA1,4,3)
  32.           Z=SUBSTR(SHA1,3,1)
  33.           DO CASE
  34.              CASE Z='1'
  35.                   Z='01'
  36.                   ZZ='╓╨╬─'
  37.              CASE Z='2'
  38.                   Z='02'
  39.                   ZZ='╒■╓╬'
  40.              CASE Z='3'
  41.                   Z='08'
  42.                   ZZ='╩²╤º'
  43.              CASE Z='4'
  44.                   Z='10'
  45.                   ZZ='╬∩└φ'
  46.              CASE Z='5'
  47.                   Z='12'
  48.                   ZZ='╗»╤º'
  49.              CASE Z='6'
  50.                   Z='13'
  51.                   ZZ='╔·╬∩'
  52.              CASE Z='7'
  53.                   Z='06'
  54.                   ZZ='╡╪└φ'
  55.           ENDCASE        
  56.           @ 9,2 SAY '─π╩╣╙├╡─╩╟B┼╠'+'&ZZ'+'╫¿╥╡╡─╫╩┴╧.'
  57.         ELSE
  58.           Z=SUBSTR(SHA1,3,2)
  59.           X=SUBSTR(SHA1,1,2)
  60.           Y=SUBSTR(SHA1,5,3)
  61.         ENDIF 
  62.         SHA1=X+Z+Y
  63.    ENDDO
  64. RETURN
  65.