Versions des environnements
I did the conversion myself
At least I will learn some asp :)
However, the VFP code I create become endless
When I execute the button in the form, the time simbol appears and never finish
Could anybody take a look below and give me an opinion ?
I noticed that the asp code do not use ENDFOR
Moises
**********************************************************
strSecretEdit = " xxxxxxxxxxxx"
strName = " "
*For each of the 12 letters in the input strings
For idx3 = 1 to 12
if strBookID = "123" Then
ascInStrBookID = 1
Else
ascInStrBookID = Asc(subst(strBookID,idx3,1))
EndIf
ascInStrUserName = Asc(subst(strUserName,idx3,1))
ascInStrBookTitle = Asc(subst(strBookTitle,idx3,1))
ascInStrSecretEdit = Asc(subst(strSecretEdit,idx3,1))
* ascKeyChar1 = ascInStrUserName XOR ascInStrBookTitle XOR ascInStrSecretEdit XOR ascInStrBookID
ascKeyChar1 = BITXOR(ascInStrUserName , ascInStrBookTitle , ascInStrSecretEdit , ascInStrBookID)
if ascKeyChar1 = 0 Then
ascKeyChar1 = 255
EndIf
*strName = strName & chr(ascKeyChar1)
strName = strName + chr(ascKeyChar1)
Next
For idx4 = 1 to 12
* Select Case idx4
DO CASE
CASE idx4 = 1
intAdd = 6
CASE idx4 = 2
intAdd = 14
CASE idx4 = 3
intAdd = 9
CASE idx4 = 4
intAdd = 15
CASE idx4 = 5
intAdd = 3
CASE idx4 = 6
intAdd = 5
Case idx4 = 7
intAdd = 1
CASE idx4 = 8
intAdd = 18
CASE idx4 = 9
intAdd = 13
CASE idx4 = 10
intAdd = 8
CASE idx4 = 11
intAdd = 12
CASE idx4 = 12
intAdd = 19
*End Select
ENDCASE
ascKeyChar2 = asc(subs(strName,idx4,1)) + intAdd
*Do until ascKeyChar2 < 91
Do WHILE ascKeyChar2 < 91
ascKeyChar2 = (ascKeyChar2-25)
LOOP
ENDDO
* Do until ascKeyChar2 > 64
Do WHILE ascKeyChar2 > 64
ascKeyChar2 = (ascKeyChar2+25)
LOOP
ENDDO
* strRegKey = strRegKey & chr(ascKeyChar2)
strRegKey = strRegKey + chr(ascKeyChar2)
Next
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement