Somebody would have a routine of cryptograph?
lazarus / 8-Other

----------------------------------------------------------------------
Onjahyr-BR · 2006-09-08 13:27

Olá.....

Alguém teria uma rotina pronta de criptografia? Não precisa ser coisa
complexa não, é só para deixar o texto ilegível a olho nú!!!

Agradecido.

----------------------------------------------------------------------
felipemdc · 2006-10-08 17:38

Well, you could just write your own routine. Here is the simplest one
in the world:

http://en.wikipedia.org/wiki/ROT13

Just make a loop going from 1 to Length(MyString) and change each
latter.

Based on this first experience you can create a more advanced
algorithim

----------------------------------------------------------------------
felipemdc · 2006-10-08 17:53

Ok, just to show that I am a nice guy here is a function that
implements ROT-13:

// Perform ROT13 function on a string
function sRot13 (S: string): string;

function sRot13 (S: string): string;
const
  upperAZ: array ['A'..'Z'] of Char = 'NOPQRSTUVWXYZABCDEFGHIJKLM';
  loweraz: array ['a'..'z'] of Char = 'nopqrstuvwxyzabcdefghijklm';
var
  i: Integer;
  s1: string;
begin
  s1 := '';
  for i := 1 to Length(S) do
  begin
    if s in ['A'..'Z'] then
      s1 := s1 + upperAZ[s]
    else if s in ['a'..'z'] then
      s1 := s1 + loweraz[s]
    else
      s1 := s1 + s;
  end;
  Result := s1;
end;

----------------------------------------------------------------------
Onjahyr-BR · 2006-10-08 22:30

tks

----------------------------------------------------------------------
felipemdc · 2006-10-12 19:19

I just came across this set of cripto components for Lazarus:

http://wiki.lazarus.freepascal.org/DCPcrypt

----------------------------------------------------------------------
Onjahyr-BR · 2006-10-12 19:24

I already use this, but only for archives, script the example does not
say as to make.