Conversão String Mobile

21/06/2016

0

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)
Elenicio Ramos

Elenicio Ramos

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar