un saludo amigs
tengo estas 2 funciones para encriptar y desencriptar en D6 me funciona de maravilla, ahora que me actualice a XE2 no me llega a funcionar correctamente
ejemplo en XE2 le pido encriptar "Camino852" me da ䷔䷣䷨䷣䷧䷮䶢䷏䷧ y cuando lo quiero desencriptar no lo reconoce y me vuelve a devolver ䷔䷣䷨䷣䷧䷮䶢䷏䷧
en D6 utilizo la misma funcion sin tocar nada lo pedia encripar la misma palabra me da en diferentes caracteres y cuando lo pido desencriptar me devuelve la palabra correcta.
por favor ahi les dejo la funcion para que me den una mano.
Código Delphi
[-]
uses Windows,Sysutils;
...
...
function encrip(sCadena: string): string;
var
i:integer;
sNewCadena:string;
iLongitud:integer;
begin
iLongitud := length(sCadena);
SetLength(sNewCadena,iLongitud);
for i := 1 to iLongitud do
sNewCadena[i] := chr(ord(sCadena[i])+2012);
Result := sNewCadena;
end;
function dencrip(sCadena: string): string;
var
i:integer;
sNewCadena:string;
iLongitud:integer;
begin
iLongitud := length(sCadena);
SetLength(sNewCadena,iLongitud);
for i := 1 to iLongitud do
sNewCadena[i] := chr(ord(sCadena[i])-2012);
Result := sNewCadena;
end;