Skip to main content
1 de 6
user avatar
user avatar

Como codificar um array de bytes (string) em outra base, de forma a representar o resultado com os caracteres de A-Z e 0-9 no Delphi?

Quando se programa em e não se tem conhecimento de , o que você acha, na grande maioria, ao pesquisar em blogs, fóruns e demais é essa rotina:

function TRotinas.Crypt(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 := 'YUQL23KL23DF90WI5E1JAS467NMCXXL6JAOAUWWMCL0AOMM4A4VZYW9KHJUI2347EJHJKDF3424SKL K3LAKDJSL9RTIKJ';
  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;

Eu sou um desses que não sabe nada sobre e por isso uso muito essa rotina para alguns processos que preciso.

Em uma dessas necessidades de uso estou precisando reduzir o tamanho da string retornada por essa rotina e no momento está inviável trocar a rotina de .

Para o exemplo:

procedure TMainForm.btnCriptografarClick(Sender: TObject);
begin
  ShowMessage(Crypt('C', '♫ Hoje é quinta-feira, véspera de sexta! ♪'));
end; 

Tenho o resultado:

FDD6A3BA66E27BD0F625A55F8EC50A3C20B35CF42DCFA8FC4518C57BA34EF7548EB99843E937FC0967C419

Então, até mesmo por uma questão didática, como pode ser feito uma rotina de compactação de strings que o resultado dessa rotina use somente, no meu caso específico, os seguintes caracteres: de A-Z e 0-9? E como seria uma aplicação dessa lógica em ?

user3628