ActiveDelphi

[gbinfo]

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)

[strak2012]

recomendo inicialmente a leitura do post:
http://www.activedelphi.com.br/forum/viewtopic.php?t=91873&highlight=

seu for apresenta erro logico

Quanto ao ansistring não ha necessidade do uso do mesmo
_________________
Tudo podemos quando tudo sabemos!

[gbinfo]

Entendi, mais n resolve o meu problema, preciso usar esse método que passei pois já uso em muitos lugares.

Mais mesmo assim obrigado.

[strak2012]

solução para seu problema