>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

Both of your DO WHILE loops are potentially infinite.
"*Do until ascKeyChar2 < 91" translates to "Do WHILE ascKeyChar2 >89" not "Do WHILE ascKeyChar2 < 91"