注册码生成.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 27 行

REG=""
C_ID="1673074090"
    FOR I = 1 TO 10
       REG1 = VAL(SUBSTR(C_ID,I,1)) + I
       IF REG1 > 9
          REG2 = PADL(ALLTRIM(STR(REG1 - 10)),1,'0')
       ELSE 
          REG2 = ALLTRIM(STR(REG1))
       ENDIF 
       REG = REG + REG2
    ENDFOR 
    REG3 = ''
    FOR I = 1 TO 10
       IF MOD(I,2) = 0
          REG3 = REG3 + SUBSTR(REG,I,1)
       ELSE 
          REG3 = REG3 + CHR(70 + VAL(SUBSTR(REG,I,1)))
       ENDIF 
    ENDFOR 
    ?REG3
    IF REG3 == ALLTRIM(REGID)
       C_REG = .T.
       C_REGID = ALLTRIM(REGID)
    ELSE 
       C_REGID = ''
       C_REG = .F.
    ENDIF