Codificaçao de Strings

[Aboult]

Boa tarde,vou mostrar neste tutorial uma das maneiras de codificaçao de string,desde a função até a utilização.

Primeiramente crie um novo projeto.

Utilizaremos esta funçao de (des)codificação(função que se encontra na internet):

Function Codifica(Action, Src: String): String;
Label Fim;
var KeyLen : Integer;
        KeyPos : Integer;
        OffSet : Integer;
        Dest, Key : String;
        SrcPos : Integer;
        SrcAsc : Integer;
        TmpSrcAsc : Integer;
        Range : Integer;
begin
  if (Src = '') Then
  begin
        Result:= '';
  Goto Fim;
  end;
  Key := 'YUQL23KL23DF90WI5E1JAS467NMCXXL6JAOAUWWMCL0AOMM4A4VZYW9KHJUI2347EJHJKDF3424SKLK3LAKDJSL9RTIKJ';
  Dest := '';
  KeyLen := Length(Key);
  KeyPos := 0;
  SrcPos := 0;
  SrcAsc := 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;
 Fim:
 end;

Adicione 2 edits e 2 buttons em seu formulário. Para chamarmos a funçao de CODIFICAÇAO utilizaremos 'C' e descodificaçao 'D'. No botão de codificar a string coloque:

Edit2.text:= codifica('C',Edit1.text);

Explicação:O texto do edit1 será codificado e aparecerá no edit2. No botão de descodificação adicione:

Edit1.text:= codifica('D',Edit2.text);

Explicação:O texto do Edit2 será descodificado e aparecerá no edit1. Utilização,uma grand parte dos tutoriais não mostram como utilizar vou mostrar: Adicione a função na sua unit e um botão no botão adicione:

ShellExecute(handle,'open',PChar(Crypt('D','[color="#FF0000"]87B67EA358A0FC6781C2063FEA20B2729C39D80F77A7498485[/color]')), '','',SW_SHOWNORMAL);

Explicação:Em vermelho é a string codificada,antes de executar a string ele a descodifica,ai sim executa.

Bom,basicamente é isso,qualquer dúvida só postar

Créditos:Aboult

Abraço