Our Blog

You Are Here Home Our Blog
27 Mei
Admin, in Blog 0

>CHIPERTEXT merupakan metode enkripsi dengan menggeser deretan karakter yang sudah ditentukan. Disini saya mengambil contoh yang sederhana untuk penerapannya. Beberapa software yang diproteksi dengan serial number menggunakan metode ini untuk kombinasinya. Software yang didistribusikan shareware, trialware maupun Evaluation version menggunakan metode kombinasi serial number untuk melindungi software yang dibuat. Versi Shareware dan EValution version mungkin saja menggunakan Nag Screen atau mungkin ada fungsi dari software yang tidak dapat digunakan jika tidak di register dengan serial number yang tepat.Ada beberapa metode serial number yang digunakan :Input Karakter.merupakan inputan karakter yang nantinya di enkripsi sehingga menghasilkan kode enkripsi.Deretan Karakter merupakan Kunci yang akan digeser.dari inputan diatas maka digeser berdasarkan deretan karakter.Kunci Penggeser, kita ambil serial number dari volume drive C:.nilai serial number dari volume drive C biasanya bilangan hexadesimal sehingga perlu dirubah ke bilangan ascii.Output Karakter.hasil dari proses berupa kode kombinasi serial number.Kita mulai dengan contoh aplikasinya :* Inputan karakter misalnya : BALI HACK* Kita mengambil contoh deretan kunci yang digeser sebagai berikut :BALIHACKmailto:BALIHACK%60a~bD!c@d#E$e%f^F&g*h(G)i-jJ=k+lMm{n}N;o:p* Kunci penggesernya adalah serial number drive C: misalkan 2941-13F8kemudian kita terjemahkan ke kode ascii 294113F8 = 5057524949517056.* Mari kita mulai manggeser :B digeser 6 karakter menjadi AA digeser 9 karakter menjadi AL digeser 7 karakter menjadi KI digeser 0 karakter menjadi aH digeser 9 karakter menjadi `A digeser 5 karakter menjadi IC digeser 7 karakter menjadi aK digeser 6 karakter menjadi @Sehingga BALIHACK di enkripsi menjadi AAKa`Ia@, kode tersebutlah merupakan serial number yang dihasilkan. Metode tersebut merupakan metode sederhana, anda dapat mengembangkannya sendiri. Misalkan anda membuatkan tabel kunci atau anda menggunakan serial port I/O sebagai nilai penggeser(tentunya anda harus mengerti bilangan biner) dan lainya sebagainya.source code dengan menggunakan delphi//dibuat oleh balihack.or.id (spc).//anda dapat memodifikasi sesuai dengan keinginan anda//mohon kirimkan hasil modifikasi anda ke email best_ajum@yahoo.comunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;Edit2: TEdit;Edit3: TEdit;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Edit4: TEdit;Timer1: TTimer;procedure Button1Click(Sender: TObject);procedure FormActivate(Sender: TObject);procedure Timer1Timer(Sender: TObject);private{ Private declarations }function GetChar(chSource: Char; Dictionary: string; intShift: integer): Char;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}function Tform1.GetChar(chSource: Char; Dictionary: string; intShift: integer): Char;vari, j: Integer;beginResult := chSource;i := 1;j := Length(Dictionary);while (i Length(edit3.Text)) thenj := 1;end;end;procedure TForm1.FormActivate(Sender: TObject);var VolumeSerialNumber: DWORD;MaximumComponentLength: DWORD;FileSystemFlags: DWORD;//SerialNumber: string;jawab,i : integer;hasil,str : string;beginGetVolumeInformation('C:',nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0);str:=IntToHex(HiWord(VolumeSerialNumber), 4) +//'-' +IntToHex(LoWord(VolumeSerialNumber), 4);edit2.Text:=IntToHex(HiWord(VolumeSerialNumber), 4) +'-' +IntToHex(LoWord(VolumeSerialNumber), 4);//showmessage(str);for i:=1 to length(str) dobeginhasil:=copy(str,1,length(str));if (hasil[i] in ['a'..'z']) thenjawab:=ord(hasil[i])elseif (hasil[i] in ['A'..'Z']) thenjawab:=ord(hasil[i])elseif (hasil[i] in ['0'..'9']) thenjawab:=ord(hasil[i])elseif (hasil[i] in [' ','!','"','#','$','%','&','(',')','*','+',',','-','.','/',':',';','','?','@','[',']','^','_','`','{','','}','~'] ) thenjawab:=ord(hasil[i])elsebeginjawab:=39;end;edit3.Text:=edit3.Text+inttostr(jawab);end;end;end.Andalah yang tahu apa yang harus anda lakukan setelah membaca artikel ini, anda membuangnya, menyimpan, menggunakan atau lainnya. Positif atau Negatif. Terimakasih buat semua anak-anak moron brother, keep a live for our land. Terima kasih buat capil yg selalu ngeganggu tidur siang aku.!Ditulis oleh spc(semarapura punk crew)

Comment Closed

 

Add Comment

 
Your email address will not be published.

Recent Post

 

Archives

 

My Site

Hidup punya banyak pilihan dng hal-hal baik dan buruknya masing2. Tentukan pilihanmu, lakukan yg terbaik.

 

Categories

 

Tag Clouds

 

Did you know ?

negara Republik Siprus memiliki lagu kebangsaan yang sama dengan lagu kebangsaan Yunani.
Selain itu, lagu kebangsaan yang berjudul "Imnos is tin Eleftherian" itu merupakan lagu kebangsaan terpanjang di dunia, yang terdiri atas 158 bait, dan setiap bait terdapat 8 baris.