RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:

66213 - ENCRIPTACION CON FUNCION EXTERNA BITWISENOT

Autor:

Luis Miguel Lopez Subauste

Buenas Tardes amigos . Mi caso es el siguiente
Tengo mi aplicativo en PB 8.0 que ya lo eh migrado al PB 12.1

Yo utilizaba la función BitwiseNot para en-criptar un una cadena o información. En PB 8.0 no hay ningún problema pero cuando probé la opción desde PB 12.1 me en-cripta de manera incorrecta (con basurita o caracteres inválidos) tal vez debo declarar de otra manera la función para PB 12.1 ? . Espero alguien me pueda ayudar a resolver mi duda. Gracias de Antemano.

Les describo el escenario:

Declaro Global External Function



FUNCTION ulong BitwiseNOT(ulong num) LIBRARY "pbutils.dll"



Creo función Encriptar 



blob B

blob{4} CC

long ll_size, i, ll_mod

string ls_data1, ls_data2, ls_data3 = ""



ll_size = len(ls_data)

ll_mod = mod(ll_size, 4)



CHOOSE CASE ll_mod

	CASE 1

		ls_data3 = mid(ls_data, ll_size)

		ls_data = mid(ls_data, 1, ll_size - ll_mod)

	CASE 2

		ls_data3 = mid(ls_data, ll_size - 1)

		ls_data = mid(ls_data, 1, ll_size - ll_mod)

	CASE 3

		ls_data3 = mid(ls_data, ll_size - 2)

		ls_data = mid(ls_data, 1, ll_size - ll_mod)

END CHOOSE



ll_size = len(ls_data)



FOR i = 1 TO ll_size STEP 4

	ls_data1 = mid(ls_data, i, 4)

	b = blob(ls_data1)

	blobedit(CC, 1, BitwiseNOT(long(B)))

	ls_data2 += string(CC)

NEXT



RETURN ls_data2 + ls_data3