Algoritmo de Encryptacion de String

  • 3 Respuestas
  • 3252 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
  • Skype: expermicid.xd
    • Ver Perfil

Algoritmo de Encryptacion de String

  • en: Julio 14, 2012, 02:12:26 am
Traduci este algoritmo del vb a delphi.

Es un algoritmo con key alfanumerica.

Encryptar

Código: Delphi
  1. function Encryptar( text : string; tPass : string) : string;
  2.   var
  3.     aux , x, iPass : Integer;
  4.   begin
  5.     for x := 1 to length(tPass) do
  6.       iPass := iPass + Ord(tPass<ul class="bbc_list"><li type="square">);[/li][/list]
  7.     for x := 1 to length(text) do
  8.       begin
  9.         aux := Ord(text</li><li type="square">) + iPass + x;[/li][/list]
  10.         while (aux > 255) do
  11.           aux := aux - 255;
  12.         Result := Result + Chr(aux);
  13.       end;
  14.   end;

Desencryptar

Código: Delphi
  1. function Desencryptar(text : string; tPass : string) : string;
  2.   var
  3.     aux , x, iPass : Integer;
  4.   begin
  5.     for x := 1 to length(tPass) do
  6.       iPass := iPass + Ord(tPass</li><li type="square">);[/li][/list]
  7.     for x := 1 to length(text) do
  8.       begin
  9.         aux := Ord(text</li><li type="square">) - iPass - x;[/li][/list]
  10.         while (aux < 0) do
  11.           aux := aux + 255;
  12.         Result := Result + Chr(aux);
  13.       end;
  14.   end;



Saludos
« Última modificación: Abril 21, 2013, 01:11:52 pm por Expermicid »

Desconectado Cronos

  • *
  • Underc0der
  • Mensajes: 1000
  • Actividad:
    0%
  • Reputación 1
  • Mientras mas se, me doy cuenta de lo poco que se.
  • Skype: cronos.labs
    • Ver Perfil
    • Email

Re:Algoritmo de Encryptacion de String

  • en: Julio 14, 2012, 02:51:08 am
Se agradece mucho :)
Saludos,, Cronos.-

Desconectado UpecBlack

  • *
  • Underc0der
  • Mensajes: 70
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil

Re:Algoritmo de Encryptacion de String

  • en: Agosto 03, 2012, 04:30:18 pm
y acepta simbolos en la encriptacion?? o se quedaria como esta el simbolo??  o es solo para letras?

Desconectado Thow4EveR

  • *
  • Underc0der
  • Mensajes: 2
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil

Re:Algoritmo de Encryptacion de String

  • en: Octubre 09, 2012, 05:13:20 pm
Ola amigo, como faço para usar?
Usei isto e não funcionou:

Memo1.Lines.Text := Encryptar(Edit1.Text);

Pode me ajudar?

Saludos!

 

[Delphi] DH String Generator 0.3

Iniciado por BigBear

Respuestas: 0
Vistas: 3232
Último mensaje Junio 10, 2016, 12:12:00 pm
por BigBear