Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   esta function no me funciona en XE2 y si funciona en D6 (https://www.clubdelphi.com/foros/showthread.php?t=81347)

darkbits 06-11-2012 17:51:04

esta function no me funciona en XE2 y si funciona en D6
 
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;

Casimiro Notevi 06-11-2012 18:00:45

Cambia string por ansistring. XE2 es unicode.


La franja horaria es GMT +2. Ahora son las 11:12:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi