WONG BODOH NGAKU PINTER: bikin text enskripsi sederhana dengan delphi 7

text enkripsi yang sangat sederhana menguunakan delphi ..!! disini saya hanya memanipulasi text inputan dengan cara merubah per karakter menjadi desimal trus dirubah menggunakan operasi aritmatika sederhana lalu dirubah lagi menjadi karakter yg berbeda .. oke lansung saja lihat screenshot dibawah ..!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hasil,txt : string;
  pos : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
hasil:='';
txt:=Memo1.Text;
for pos:=1 to length(txt) do begin
hasil:=hasil+chr((ord(txt[pos])* 2)-3);
end;
memo2.Text:=hasil;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
hasil:='';
  txt :=Memo2.Text;
  for pos:=1 to length(txt) do begin
  hasil:=hasil+chr((ord(txt[pos])+ 3)div 2);
  end;
  Memo1.Text:=hasil;
end;

end.

donwload Source Code

WONG BODOH NGAKU PINTER

Selasa, 10 Juli 2012

bikin text enskripsi sederhana dengan delphi 7

Tidak ada komentar:

Posting Komentar