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)
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)