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!
You are not allowed to view links.
You are not allowed to view links.
Register or Login or You are not allowed to view links.
Register or Login
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.