Encriptar

[LUCHO]

Quisiera saber como encriptar palabras

[ecfisa]

Hola LUCHO.

Existen muchos algorítmos de cifrado (http://es.wikipedia.org/wiki/Cifrado_(criptograf%C3%ADa)), desde los mas simples de transposición y sustitución, los de manipulación de bits, etc, etc.

Aqui tenes unos enlaces a algunos algorítmos populares de cifrado:
Triple DES (http://es.wikipedia.org/wiki/Triple_DES)
AES (http://es.wikipedia.org/wiki/Advanced_Encryption_Standard)
MD5 (http://es.wikipedia.org/wiki/MD5)
SHA (http://es.wikipedia.org/wiki/Secure_Hash_Algorithm)
Blowfish (http://es.wikipedia.org/wiki/Blowfish)
RSA (http://es.wikipedia.org/wiki/RSA)
Depende de el uso que vayas a darle elegir el adecuado...

Saludos :)

[nlsgarcia]

LUCHO,


...Quisiera saber como encriptar palabras...


Revisa este código

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// Encripta y Desencripta un String con una Clave por medio de Funciones Lógicas
function EnDeCrypt(const Value, Key : String) : String;
var
i : Integer;
KeyAlt : Integer;

begin

KeyAlt := Length(Key);

for i := 1 to Length(Key) do
KeyAlt := KeyAlt xor Ord(Key);

Result := Value;
for i := 1 to Length(Value) do
begin
Result[i] := chr(not(ord(Value[i]) xor Ord(KeyAlt)));
end

end;

// Encripta un String con una Clave
procedure TForm1.Button1Click(Sender: TObject);
var
Data : String;
Key : String;

begin
Data := Edit1.Text;
Key := Edit2.Text;
Edit3.Text := EnDeCrypt(Data,Key);
end;

// Desencripta un String con una Clave
procedure TForm1.Button2Click(Sender: TObject);
var
DataEnc : String;
Key : String;

begin
DataEnc := Edit3.Text;
Key := Edit2.Text;
Edit4.Text := EnDeCrypt(DataEnc,Key);
end;

end.

El código anterior en un ejemplo básico de [I]Encriptación y Desencriptación de un String con una Clave por medio de las funciones lógicas Not y Xor.

El ejemplo anterior esta disponible en el link : http://terawiki.clubdelphi.com/Delphi/Ejemplos/Varios/?download=EnDeCrypt.rar

Te sugiero revisar estos links:

The CrypTool Portal : http://www.cryptool.org/en/

Cifrar texto con AES-256 : http://delphi.jmrds.com/?q=node/44

Delphi Encryption Compendium (DEC) : http://code.google.com/p/delphidec/


Espero sea útil :)

Nelson.

[Casimiro Notevi]

Quisiera saber como encriptar palabras


Y no olvides poner títulos descriptivos a tus preguntas, gracias ;)

[ozsWizzard]

Poniéndome un poco tiquismiquis.

¿Encriptar es meter cosas en una cripta?, hasta donde yo sé, encriptar no existe, a lo mejor lo que quieres es cifrar una palabra. ;)

[nlsgarcia]

ozsWizzard,


...encriptar no existe...
Es correcto ^\||/ :)

La Real Academia Española no reconoce los términos Encriptar y Desencriptar, lo correcto es usar los términos Cifrar y Descifrar o sus sinónimos Codificar y Decodificar, sin embargo en el mundo de la informática se usa ampliamente toda la anterior terminología, lo cual obliga en términos prácticos más que académicos su utilización, sin eximir del conocimiento del mismo.

Espero sea útil :)

Nelson.