comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Algoritmo de Encryptacion de String

  • 3 Respuestas
  • 2543 Vistas

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

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« 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[x]);
  7.     for x := 1 to length(text) do
  8.       begin
  9.         aux := Ord(text[x]) + iPass + x;
  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[x]);
  7.     for x := 1 to length(text) do
  8.       begin
  9.         aux := Ord(text[x]) - iPass - x;
  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.
    • Ver Perfil
    • Email
  • Skype: cronos.labs
« Respuesta #1 en: Julio 14, 2012, 02:51:08 am »
Se agradece mucho :)
Saludos,, Cronos.-

Desconectado UpecBlack

  • *
  • Underc0der
  • Mensajes: 69
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #2 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
« Respuesta #3 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!

 

¿Te gustó el post? COMPARTILO!



[Delphi] DH String Generator 0.3

Iniciado por BigBear

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