Muito bom exemplo para criptografias.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | function Encode64(S: string): string; const Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/'; var i: Integer; a: Integer; x: Integer; b: Integer; begin Result := ''; a := 0; b := 0; for i := 1 to Length(s) do begin x := Ord(s[i]); b := b * 256 + x; a := a + 8; while a >= 6 do begin a := a - 6; x := b div (1 shl a); b := b mod (1 shl a); Result := Result + Codes64[x + 1]; end; end; if (a > 0) then begin x := b shl (6 - a); Result := Result + Codes64[x + 1]; end; end; |
Exemplo de uso:
1 2 3 4 5 6 7 | procedure TForm1.Button1Click(Sender: TObject); var s : String; begin s := Encode64('Show Delphi'); ShowMessage(s); end; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Muito Bom Post, parabéns. Gostaria de saber se tem como você postar um exemplo de descriptografia desta mesma formula. Desde ja agradeço
Olá, sim, existe um post que mostra como fazer a descriptografia, utilizando a mesma técnica deste post.
http://showdelphi.com.br/dica-como-decodificar-strings-da-base-64-delphi/