Retornar Codigo TEcla

[Rodrigo Miss 1]

Pessoalcomo eu faço pra mostrar num ShowMessage o codigo de um caracter ou informado num editExe... o cara digita num edit "r" e clika em ok da um ShoWMessage(114);

[Hugo Slepicka 0]

Var Form1 : TForm1;Tecla : Word; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin Tecla := Key;end;procedure TForm1.BitBtn1Click(Sender: TObject);begin showmessage(FloatToStr(Tecla));end;end.

[Rodrigo Miss 1]

é q no meu caso eu qria fazer o seguinte:

 

 

procedure Tform1.btnOkOnClick(Sender: TObject);vari, j: integer;beginFor i:= 1 to Length(edit1.Text) do   begin   j:= j + // aki no caso ele pega o codigo da letra digitada   end;   ShowMessage(IntToStr(j));end;

No eskema acima,,, tipo o cara digita num edit CAFE... ele vai mostar na Mensagem: "67657069"

 

Entendeu? Teria alguma dica?

[Hugo Slepicka 0]

Não entendo o seu objetivo com isso...mas eu acho muito melhor você pegar no keypress...para concatenar desse jeito j tem q ser string...ai você faz:j:= j + FloatToStr(tecla)maaaaaaaaaaaas!!!!j:= j + Ord(Copy(edit1.Text,i,1))pronto!!!

[Rodrigo Miss 1]

é q na verdade eu qria fazer issu pra incriptar um string;;;qria fazer uma funcao Encripta q pegasse o codigo de cada tecla junto....etende?

[marcio.theis 3]

você pode fazer como o Hugo falou, usando o Ord.

[Rodrigo Miss 1]

HUmm... naum sei c naum to entendo ou oke... mais eu fiz a seguinte funcao:

 

 

function Tform1.Encrypta(const Str: string): string;var i: integer;s: string;beginfor i:= 1 to Length(Str) do	begin	s:= s + Ord(Copy(Str,i,1));	end;	Encrypta:= s;end;

 

Na seguinte linha <s:= s + Ord(Copy(Str,i,1));> ele diz: Tipos incopativeis

[Hugo Slepicka 0]

faltou converter o Ord...acho q IntToStr da...ou FloatToStr...uma das duas...s:= s + IntToStr(Ord(Copy(Str,i,1)));ou s:= s + FloatToStr(Ord(Copy(Str,i,1)));não me lembro ao certo...

[Rodrigo Miss 1]

Nenhum das duas???!!!

[marcio.theis 3]

Precisa usar o IntToStr, pois o Ord retorna um inteiro.Qual o erro retornado ?

[Rodrigo Miss 1]

Uniti.pas(30): Incompatible Types...

[marcio.theis 3]

Tente desta forma:

 

function Tform1.Encrypta(const Str: string): string;var	i: integer;	s: string;beginfor i:=1 to Length(Str) do	s:=s + IntToStr(Ord(str[i]));Encrypta:=s;end;

[Rodrigo Miss 1]

Ok!!!!!!

 

Issu ae Marcio exatamente issu q eu qria

 

Vlw ae galera!!!

[marcio.theis 3]

Estava pensando, você vai ter um n° bem grande dependendo do que desejar criptografar, isto não iria ter problema ? Bem que agora o seu comando SQL certamente vai funcionar...

[Rodrigo Miss 1]

hehe Pois eh Marcio... agora o comando funciona belezao problema é pra desincripta agora... hehehee qto a tamanho rs ele fiko meio grandinho rs....mah faze oke naum tenho outra ideia legal pra fazer issu???qto a desencripta... teria alguma dica?

[marcio.theis 3]

Dei uma olhada na net, encontrei esta função:

 

function Crypt(Action, Src: String): String;var	Range, TmpSrcAsc, SrcAsc, SrcPos, OffSet, KeyPos, KeyLen: Integer;	Dest, Key: String;beginif (Src = '') Then	Result:=''else	begin	Key:='YUQL23KL23DF90WI5E1JAS467NMCXXL6JAOAUWWMCL0AOMM4A4VZYW9KHJUI2347EJHJKDF3424SKL K3LAKDJSL9RTIKJ';	Dest:='';	KeyLen:=Length(Key);	KeyPos:=0;	Range:=256;	if (Action = UpperCase('C')) then		begin		Randomize;		OffSet:=Random(Range);		Dest:=Format('%1.2x',[OffSet]);		for SrcPos:=1 to Length(Src) do			begin			Application.ProcessMessages;			SrcAsc:=(Ord(Src[SrcPos]) + OffSet) Mod 255;			if KeyPos < KeyLen then				KeyPos:=KeyPos + 1			else				KeyPos:=1;			SrcAsc:=SrcAsc Xor Ord(Key[KeyPos]);			Dest:=Dest + Format('%1.2x',[SrcAsc]);			OffSet:=SrcAsc;			end;		end	else		if (Action = UpperCase('D')) then			begin			OffSet:=StrToInt('$'+ copy(Src,1,2));			SrcPos:=3;			repeat				SrcAsc:=StrToInt('$'+ copy(Src,SrcPos,2));				if (KeyPos < KeyLen) then					KeyPos:=KeyPos + 1				else					KeyPos:=1;				TmpSrcAsc:=SrcAsc Xor Ord(Key[KeyPos]);				if TmpSrcAsc <= OffSet then					TmpSrcAsc:=255 + TmpSrcAsc - OffSet				else					TmpSrcAsc:=TmpSrcAsc - OffSet;				Dest:=Dest + Chr(TmpSrcAsc);				OffSet:=SrcAsc;				SrcPos:=SrcPos + 2;			until (SrcPos >= Length(Src));		end;	Result:=Dest;	end;end;

Para criptografar você deve fazer:

Crypt('C','TEXTO_DESEJADO');

Para descriptografar você deve fazer:

Crypt('D','TEXTO_DESEJADO');

Se quiser pode fazer algumas alterações ainda no fonte...

[Rodrigo Miss 1]

vlw Marcio

[Rodrigo Miss 1]

usei o esquema de criptografia q você postou e agora ta dando o seguinte:Qdo vo inserir um novo usario, e informo "RODRIGO" no campo nome... qdo saio do campo Usuario ele me da a seguinte mensagem:'$RO' is not a valid integer valuec informar usuario '154' ele passa beleza.... so q no momento de logar ele naum Desincriptografa certo;..Ps: No banco o campo ta como TExto tamanho 100... e no evento onExit do campo naum tm nda...tm ideia do q seja

[marcio.theis 3]

Testei aqui e funcionou perfeitamente, deve de ser problemas ai...