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.

Cifrado Basico [By Expermicid]

  • 3 Respuestas
  • 3050 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 05, 2012, 11:11:41 pm »
Hola a todos.

Despues de haber consultado a algunos usuarios ( entre ellos Metal ) decidi introducirne en Delphi.

Como primer programa traduci el Cifrado Basico que habia hecho en Vb6 a Delphi.

Cifrar:

Código: Delphi
  1. function Cifrar( text : string; num : Integer) : string;
  2.   var
  3.     i : Integer;
  4.     aux : string;
  5.   begin
  6.     aux := '';
  7.     for i := 1 to Length(text) do
  8.       begin
  9.         if ord(text[i]) mod 2 = 0 then
  10.           if num mod 2 = 0 then
  11.             aux := aux + chr(ord(text[i]) + num)
  12.           else
  13.             aux := aux + chr(ord(text[i]) - num)
  14.         else
  15.           if num mod 2 = 0 then
  16.             aux := aux + chr(ord(text[i]) - num)
  17.           else
  18.             aux := aux + chr(ord(text[i]) + num)
  19.       end;
  20.       Result := aux;
  21.   end;

Decifrar:

Código: Delphi
  1. function Descifrar(text : string; num : Integer) : string;
  2.   var
  3.     i : Integer;
  4.     aux : string;
  5.   begin
  6.     aux := '';
  7.     for i := 1 to Length(text) do
  8.       begin
  9.         if ord(text[i]) mod 2 = 0 then
  10.           aux := aux + chr(ord(text[i]) - num)
  11.         else
  12.           aux := aux + chr(ord(text[i]) + num)
  13.       end;
  14.       Result := aux;
  15.   end;



Saludos
« Última modificación: Abril 21, 2013, 01:12:41 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 06, 2012, 12:27:59 am »
Buenisimo, asique te desidiste pasar a delpho.. Buena eleccion!
Saludos,, Cronos.-

Desconectado Thow4EveR

  • *
  • Underc0der
  • Mensajes: 2
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #2 en: Octubre 09, 2012, 05:21:52 pm »
Hola amigo, como posso usar este codigo?

Memo1.Lines.Text := Encryptar(Memo2.Lines.Text);   isto?

Saludos!

Desconectado Pr0ph3t

  • *
  • Underc0der
  • Mensajes: 443
  • Actividad:
    0%
  • Reputación 0
  • © Underc0de Team
    • Ver Perfil
  • Skype: thebrowfc
« Respuesta #3 en: Octubre 09, 2012, 05:25:44 pm »
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.
Twitter: @The_Pr0ph3t
pr0ph3t@hotmail.es

 

¿Te gustó el post? COMPARTILO!



Curso básico de Delphi

Iniciado por Expermicid

Respuestas: 0
Vistas: 1464
Último mensaje Marzo 23, 2013, 11:31:09 pm
por Expermicid
Tutorial Basico de Delphi 7

Iniciado por Expermicid

Respuestas: 0
Vistas: 1437
Último mensaje Abril 27, 2013, 02:53:53 pm
por Expermicid
Cifrado RxBot

Iniciado por Expermicid

Respuestas: 0
Vistas: 1860
Último mensaje Julio 03, 2013, 06:36:21 pm
por Expermicid
Acorralador de Firmas [By Expermicid]

Iniciado por Expermicid

Respuestas: 1
Vistas: 1403
Último mensaje Enero 17, 2013, 01:40:14 pm
por ANTRAX
sSplitDirigido [By Expermicid]

Iniciado por Expermicid

Respuestas: 0
Vistas: 1449
Último mensaje Julio 09, 2012, 05:34:26 pm
por Expermicid