Conversão String Mobile

21/06/2016

2

Boa tarde, venho pedir ajuda de voces, talves seja muito simples mais realmente n estou conseguindo.
Tenho uma função para Descriptar uma string que funciona perfeito em todos os Delphis para windows,
mais quando precisei Descriptar a senha de usuário para mobile não dar certo.
Segue a Function:

Delphi XE7 para mobile
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue: String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + Ansichar(Not(ord(StrValue[I])-Chave)); "Ansichar" Não Aceita
Result := OutValue;
end;

O texto que quero Descriptar é esse: ÌËÊ que significa 123 (Nesse caso)
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar