b64 test

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
30
31
32
33
34
35
36
37
38
39
{$mode objfpc}
{$h+}
program b64;
 
uses classes,base64; 
Function EncodeBase64(S : String) : String;
 
Var
  S1,S2 : TStringStream; 
begin
  S1:=TStringStream.Create(S);
  Try
    S1.Position:=0;    S2:=TStringStream.Create('');
    Try
      With TBase64EncodingStream.Create(S2) do
        Try
          CopyFrom(S1,S1.Size);        Finally
          Free;
        end;
      Result:=S2.DataString;
    finally      S2.Free;
    end;
 finally
   S1.Free;
 end;end;
 
Var
  S : String;
 begin
  S:='String to be encoded';
  Writeln('"',S,'" -> "',EncodeBase64(S),'"');
end.

1 comentarios en "b64 test"

roberto

2010-04-11 08:52:49

{$mode objfpc}
{$h+}
program b64;

uses classes,base64;
Function EncodeBase64(S : String) : String;

Var
S1,S2 : TStringStream;
begin
S1:=TStringStream.Create(S);
Try
S1.Position:=0; S2:=TStringStream.Create('');
Try
With TBase64EncodingStream.Create(S2) do
Try
CopyFrom(S1,S1.Size); Finally
Free;
end;
Result:=S2.DataString;
finally S2.Free;
end;
finally
S1.Free;
end;end;

Var
S : String;
begin
S:='String to be encoded';
Writeln('"',S,'" -> "',EncodeBase64(S),'"');
end.

¿Has encontrado algún error? ¿Tienes la solución? Dejame tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por personas con únicamente conocimiento básico del lenguaje, no de programación.

Otro punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Otro punto importante para muchos que crees que te he ignorado: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el con lo siguiente:

Me reservo el derecho de alterar, publicar o no los comentarios así como también cambiar mis condiciones en el momento que yo lo requiera.

¿Si estas de acuerdo? Adelante! que ya te he quitado bastante tiempo leyendo esta basura :)

Deja un comentario

Suscribirse a los comentarios.