Quando se programa em delphi e não se tem conhecimento de criptografia, 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 criptografia 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 criptografia.
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 delphi?