PASAR DESENCRIPTADOR A VB
Publicado por Oz (1 intervención) el 10/05/2007 21:15:55
Buenas amigos, tengo un problema con un código de Visual FoxPro requiero
desencriptar un string, se encripto desde Visual FoxPro pero yo lo necesito desencriptar desde VB el codigo que desencripta en FoxPro es:
LPARAMETERS cString
local cEncrypted, i
cEncrypted = ""
for i=1 to LEN(cString)
cEncrypted = cEncrypted + CHR(BITXOR(ASC(SUBSTR(cString,i,1)),127))
endfor
return cEncrypted
Si se que SUBSTR en Visual es Mid$, el CHR y ASC quedan igual pero el BITXOR ni idea, yo no se nada de FoxPro x eso les pido ayuda
Alguien sabe pasarlo a VB 6
GRACIAS POR SU AYUDA
desencriptar un string, se encripto desde Visual FoxPro pero yo lo necesito desencriptar desde VB el codigo que desencripta en FoxPro es:
LPARAMETERS cString
local cEncrypted, i
cEncrypted = ""
for i=1 to LEN(cString)
cEncrypted = cEncrypted + CHR(BITXOR(ASC(SUBSTR(cString,i,1)),127))
endfor
return cEncrypted
Si se que SUBSTR en Visual es Mid$, el CHR y ASC quedan igual pero el BITXOR ni idea, yo no se nada de FoxPro x eso les pido ayuda
Alguien sabe pasarlo a VB 6
GRACIAS POR SU AYUDA
Valora esta pregunta
0