Como codificar uma string para a base 64? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como codificar uma string para a base 64?

 

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;
Facebook Comments

Posts Relacionados

  • Administrador
  • 575 views
  • 2 comentários
  • 16 de abril de 2015

2 respostas para “Como codificar uma string para a base 64?”

  1. soroboy disse:

    Muito Bom Post, parabéns. Gostaria de saber se tem como você postar um exemplo de descriptografia desta mesma formula. Desde ja agradeço

  2. 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/

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2017 Infus Soluções em Tecnologia - Todos os Direitos Reservados