5 replies to this topic

[look]

Hola amigos, encontre estas funciones de encrintacion, me gustaria pasarlas a android , me ayudan?

delphi

const CKEY1 = 53761;
      CKEY2 = 32618;
 
function EncryptStr(const S :WideString; Key: Word): String;
var   i          :Integer;
      RStr       :RawByteString;
      RStrB      :TBytes Absolute RStr;
begin
  Result:= '';
  RStr:= UTF8Encode(S);
  for i := 0 to Length(RStr)-1 do begin
    RStrB[i] := RStrB[i] xor (Key shr 8);
    Key := (RStrB[i] + Key) * CKEY1 + CKEY2;
  end;
  for i := 0 to Length(RStr)-1 do begin
    Result:= Result + IntToHex(RStrB[i], 2);
  end;
end;
 
function DecryptStr(const S: String; Key: Word): String;
var   i, tmpKey  :Integer;
      RStr       :RawByteString;
      RStrB      :TBytes Absolute RStr;
      tmpStr     :string;
begin
  tmpStr:= UpperCase(S);
  SetLength(RStr, Length(tmpStr) div 2);
  i:= 1;
  try
    while (i < Length(tmpStr)) do begin
      RStrB[i div 2]:= StrToInt('$' + tmpStr[i] + tmpStr[i+1]);
      Inc(i, 2);
    end;
  except
    Result:= '';
    Exit;
  end;
  for i := 0 to Length(RStr)-1 do begin
    tmpKey:= RStrB[i];
    RStrB[i] := RStrB[i] xor (Key shr 8);
    Key := (tmpKey + Key) * CKEY1 + CKEY2;
  end;
  Result:= UTF8Decode(RStr);
end;

[egostar]

Hola

 

Voy a intentar hacerlo el fin de semana. Ya te comento.

 

Saludos

[Agustin Ortu]

Y cual es el problema?

No cifra?

No compila? En que linea marca el error y cual es

Produce excepciones? Que excepcion y que la produce?

 

Hay que tener cuidado con portar codigo de strings de win a las plataformas moviles, porque los string estan implementados distinto. Tambien cuidado con el tema encodings

 

El codigo original para que version de Delphi esta desarrollado? En Delphi 2009 o superior con la llegada de unicode estos temas puede que haya que revisarlos. Osea que si es de una version inferior a Delphi 2009, es normal que no sea compatible en las mas nuevas

 

Si lo compilas para windows funciona bien?

[look]

Hola

 

Voy a intentar hacerlo el fin de semana. Ya te comento.

 

Saludos

Gracias amigo!

[look]

Y cual es el problema?

No cifra?

No compila? En que linea marca el error y cual es

Produce excepciones? Que excepcion y que la produce?

 

Hay que tener cuidado con portar codigo de strings de win a las plataformas moviles, porque los string estan implementados distinto. Tambien cuidado con el tema encodings

 

El codigo original para que version de Delphi esta desarrollado? En Delphi 2009 o superior con la llegada de unicode estos temas puede que haya que revisarlos. Osea que si es de una version inferior a Delphi 2009, es normal que no sea compatible en las mas nuevas

 

Si lo compilas para windows funciona bien?

 

pues si, en windows funciona bien, pero lo necesito en android, errores , pues como tu comentas, el manejo de string en android es diferente, "RawByteString y WideString" no son compatibles.

yo encontre estas funciones simples de encriptado, no encontre mejores, como en AES, pero si alguien sabe de algo equivalente .... lo que pretendo es encriptar y desencriptar texto....

 

Saludos!

[Rolphy Reyes]

Saludos.

 

Tal vez te pueda servir la unidad System.Hash