Hola a todos.
Despues de haber consultado a algunos usuarios ( entre ellos Metal ) decidi introducirne en Delphi.
Como primer programa traduci el Cifrado Basico (http://underc0de.org/foro/codigos-fuentes/cifrado-basico-(by-expermicid)/) que habia hecho en Vb6 a Delphi.
Cifrar:
function Cifrar( text : string; num : Integer) : string;
var
i : Integer;
aux : string;
begin
aux := '';
for i := 1 to Length(text) do
begin
if ord(text[i]) mod 2 = 0 then
if num mod 2 = 0 then
aux := aux + chr(ord(text[i]) + num)
else
aux := aux + chr(ord(text[i]) - num)
else
if num mod 2 = 0 then
aux := aux + chr(ord(text[i]) - num)
else
aux := aux + chr(ord(text[i]) + num)
end;
Result := aux;
end;
Decifrar:
function Descifrar(text : string; num : Integer) : string;
var
i : Integer;
aux : string;
begin
aux := '';
for i := 1 to Length(text) do
begin
if ord(text[i]) mod 2 = 0 then
aux := aux + chr(ord(text[i]) - num)
else
aux := aux + chr(ord(text[i]) + num)
end;
Result := aux;
end;
(http://i.imgur.com/epMes.gif)
Saludos
Buenisimo, asique te desidiste pasar a delpho.. Buena eleccion!
Saludos,, Cronos.-
Hola amigo, como posso usar este codigo?
Memo1.Lines.Text := Encryptar(Memo2.Lines.Text); isto?
Saludos!
No tienes permitido ver los links.
Registrarse o Entrar a mi cuenta
Hola amigo, como posso usar este codigo?
Memo1.Lines.Text := Encryptar(Memo2.Lines.Text); isto?
Saludos!
Si no sabes Delphi no lo intentes, rippear todos sabemos.