This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Algoritmo de Encryptacion de String

  • 3 Replies
  • 3640 Views

0 Members and 1 Guest are viewing this topic.

Offline Expermicid

  • *
  • Ex-Staff
  • *****
  • Posts: 458
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • View Profile

Algoritmo de Encryptacion de String

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

Es un algoritmo con key alfanumerica.

Encryptar

Code: (delphi) You are not allowed to view links. Register or Login
function Encryptar( text : string; tPass : string) : string;
  var
    aux , x, iPass : Integer;
  begin
    for x := 1 to length(tPass) do
      iPass := iPass + Ord(tPass[x]);
    for x := 1 to length(text) do
      begin
        aux := Ord(text[x]) + iPass + x;
        while (aux > 255) do
          aux := aux - 255;
        Result := Result + Chr(aux);
      end;
  end;

Desencryptar

Code: (delphi) You are not allowed to view links. Register or Login
function Desencryptar(text : string; tPass : string) : string;
  var
    aux , x, iPass : Integer;
  begin
    for x := 1 to length(tPass) do
      iPass := iPass + Ord(tPass[x]);
    for x := 1 to length(text) do
      begin
        aux := Ord(text[x]) - iPass - x;
        while (aux < 0) do
          aux := aux + 255;
        Result := Result + Chr(aux);
      end;
  end;



Saludos
« Last Edit: April 21, 2013, 01:11:52 pm by Expermicid »

Offline Cronos

  • *
  • Ex-Staff
  • *****
  • Posts: 935
  • Actividad:
    0%
  • Country: 00
  • Reputación 1
  • sudo su
    • View Profile
    • Email

Re:Algoritmo de Encryptacion de String

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

Offline UpecBlack

  • *
  • Underc0der
  • Posts: 70
  • Actividad:
    0%
  • Reputación 0
    • View Profile

Re:Algoritmo de Encryptacion de String

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

Offline Thow4EveR

  • *
  • Underc0der
  • Posts: 2
  • Actividad:
    0%
  • Reputación 0
    • View Profile

Re:Algoritmo de Encryptacion de String

  • on: October 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!