Categories

Powered by Blogger.
Showing posts with label WINDOWS. Show all posts
Showing posts with label WINDOWS. Show all posts

Friday, April 18, 2014

Cara Melindungi Program Dengan Dongle

Cara Melindungi Program Dengan Dongle yang akan saya bahas dalam postingan kali ini adalah salah satu cara atau metode untuk melindungi program dari pembajakan, atau mencegah program yang dengan susah payah kita buat bias di perbanyak oleh orang lain yang tidak bertanggung jawab. Prinsipnya adalah Program tidak akan dapat dipergunakan kalau belum atau tidak ada dongle yang terpasang pada komputeratau laptop yang telah diinstali program buatan kita. Sebelum saya lanjutkan menjelaskan tentang Cara Melindungi Program Dengan Dongle , ada baiknya kita harus mengetahui apa yang dimaksud dengan dongle.
Dongle adalah sebuah perangkat keras atau hardware dalam bentuk USB interface yang berfungsi untuk melindungi program dari pembajakan, melindungi yang dimaksud disini adalah jika tidak ada dongle ini maka program tidak akan bias digunakan, perlindungan bisa dengan menggunakan fungsi enkripsi  yang sudah tertanam dalam dongle tersebut, atau bisa dengan menyimpan kode kode tertentu didalam dongle yang nantinya akan dibaca oleh program aplikasi, jika kodenya sesuai maka program bisa digunakan tetapi jika kodenya tidak cocok maka program tidak bisa digunakan.
Cara Melindungi Program Dengan Dongle yang saya bahas disini adalah dengan cara menyimpan kode tertentu didalam dongle, prinsipnya hampir sama dengan serial nomer, dimana setiap program dijalankan maka program akan mencari atau membaca serial nomer yang sudah kita tanam didalam dongle. Jika serial nomer yang dibaca tidak sesuai maka program tidak dapat dijalankan. Dan tentunya dalam pembuatan nomer nomer yang kita simpan dalam dongle ini kita sertakan perlindungan berupa teknik enkripsi dan teknik keamanan lainnya yang sudah disediakan dalam fungsi fungsi dongle itu sendiri. Setiap merek dongle tentunya memiliki teknik dan caranya sendiri.
Ada hal penting yang perlu diperhatikan dalam Cara Melindungi Program Dengan Dongle ini yaitu apakah merek dongle yang kita beli sudah menyediakan SDK ( Software Developer Kit ) untuk bahasa Pemrograman yang akan kita gunakan, karena kalau tidak ada SDK untuk bahasa pemrograman yang kita gunakan, kita tidak akan bisa melakukan apa apa terhadap dongle tesebut.
Demikian postingan saya kali ini tentang Cara Melindungi Program Dengan Dongle  semoga bermanfaat bagi semua pencinta bahasa pemrograman.
»»  READMORE...

Saturday, August 31, 2013

Cara Mengetahui Serial Number Motherboard dengan Delphi

Cara Mengetahui  Serial Number Motherboard dengan Delphi  adalah suatu yang sangat penting untuk diketahui dalam kaitannya dengan Cara Melindungi Program Dari Pembajakan. Karena dengan memanfaatkan Serial Number pada Motherboard pada computer kita sebagai programmer Delphi dapat menciptakan Serial number yang unik untuk masing masing computer yang berbeda, mengenai hal ini dapat anda baca di  Cara Melindungi Program Dengan Serial Number.  Adapun  Cara Mengetahui  Serial Number Motherboard dengan Delphi adalah dengan membuat sebuah Function  ( Fungsi pada Delphi). Namun sebelum membuat Function , Anda  harus  mengimport Microsoft WMIScripting Library , Dengan cara  masuk ke menu  Component-Import Component Kemudian Pilih  Import type library. Perhatikan gambar berikut:


Akan muncul window dialog pilihan, Kemudian Pilih  Import type library.kemudian tekan Next sampai muncul lagi windows dialog seperti berikut:
Pilih Microsoft WMIScripting Library kemudian klik Next - Next dan seterusnnya dan dilanjutkan dengan Proses seperti  Proses Install Komponen. Proses ini akan menghasilkan sebuah unit  bernama

WbemScripting_TLB.dcu tersimpan di folder library delphi anda bersama unit unit lainnya
Langkah Selanjutnya adalah membuat unit seperti berikut ini:

 yang ini buat di Copy Paste:

uses
  ActiveX,
  WbemScripting_TLB;

{$R *.dfm}

Function  Baca_SN_Mainboard:string;
var
  WMIServices : ISWbemServices;
  Root        : ISWbemObjectSet;
  Item        : Variant;
begin
  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select SerialNumber From Win32_BaseBoard','WQL', 0, nil);
  Item := Root.ItemIndex(0);
  Result:=VarToStr(Item.SerialNumber);
end;



Cara Pakenya tinggal panggil Functionnya misalnya seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=BacaSNMainboard;
end;



Demikian Postingan saya kali ini tentang Cara Mengetahui  Serial Number Motherboard dengan Delphi  semoga bermanfaat bagi semua programmer delphi. Jika ada pertanyaan jangan ragu bertanya pada kolom komentar. Jika ada kritik dan saran dipersilahkan juga menulisnya pada kolom komentar.

Salam Delphi.

»»  READMORE...

Sunday, August 25, 2013

Cara Melindungi Program dari pembajakaan

Cara Melindungi Program dari pembajakaan. Adalah hal wajib yang harus diketahui oleh seorang programmer. Agar program yang dibuat  buat tetap daapat memberikan penghasilan bagi programmer. Artinya setiap orang yang ingin menggunakan programm yang kita buat harus membelinya dari kita.
Seandainya kita tidak melindungi program kita, sudah pasti bisa diperbanyak oleh orang lain, sehingga kita sebagai programer tidak lagi mendapatkan penghasilan dari program buatan kita.    
 
Secara garis besar ada dua Cara Melindungi Program dari pembajakan yaitu Cara Melindungi Program dengan Serial Nomer dan Cara Melindungi program dengan Dongle.
Cara Melindungi Program dengan serial nomer adalah mewajibkan setiap user yang akan menggunakan program kita harus memasukan serial nomer tertentu yang kita tentukan kedalam program, Jika Serial nomernya tidak cocok maka program tidak bisa dijalankan. Untuk lebih jelasnya silahkan lihat dalam postingan ini. <Klik Disini Untuk Melihat Postingannya>
Cara Melindungi program dengan Dongle adalah melindungi program dengan menggunakan alat berupa USB device, bentuknya seperti Flash Disk, dimana setiap user ingin menjalankan program harus menancapkan usb dongle tersebut ke komputernya. Jadi kalau usb dongle tersebut tidak ada maka program tidak bisa dijalankan. Untuk lebih Jelasnya tentang Cara Melindungi Program dengan dongle dapat dilihat dalam postingann berikut ini.<Klik Disini Untuk Melihat Postingannya>
Demikian Sedikit Penjelasan Tentang Cara Melindungi Program dari pembajakaan  Semoga bermanfaat dan dapat diterapkan dalam pembuatan program bagi pecinta Pemrograman Delphi.
»»  READMORE...

Sunday, August 11, 2013

CARA MELINDUNGI PROGRAM DENGAN SERIAL NUMBER

Sebagai seorang programmer, tentu kita tidak ingin program yang kita buat bisa dicopy seenaknya oleh orang lain, bagi orang yang ingin menggunakan program buatan kita tentunya harus membayar/membeli kepada kita . Terutama jika kita membuat program yang sifatnya umum, misalnya Program aplikasi akuntasi, Inventory, Point Of Sale atau Program Kasir. Untuk mencegah agar program kita tidak bisa di Copy sembarang, atau disebarkan oleh orang lain, maka kita harus melindungi program kita. Jadi setiap ada orang yang ingin menggunakan Program buatan kita, mereka harus memebelinya dari kita bukan dengan mengcopy dari orang yang pernah membeli sebelumnya. Umumnya ada dua cara melindungi program yaitu Melindungi Program Dengan Serial Number dan Melindungi Program Dengan Dongle ( sebuah alat sebesar FlashDisk ). Namun pada posting kali ini saya hanya akan menbahas tentang Cara Melindungi Program dengan Serial Number Saja. Sedangkan Melindungi Program dengan dongle akan dibahas pada postingan yang lain. Dalam postingan kali ini saya mencoba menjelaskan Cara Melindungi Program Dengan Serial Number dimana untuk komputer yang berbeda diperlukan serial number yang berbeda, jadi meskipun seseorang sudah menegathui satu serial number tetapi serial number tersebut tidak bisa digunakan pada komputer lainnya. Jadi Satu Serial Number hanya berlaku untuk satu komputer saja. 
 
Gambar 1.
Contoh Form Registrasi Menggunakan Serial Nomer (Kode Registrasi ) 
Cara Melindungi Program dengan Serial Number adalah sebagai berikut:
Untuk dapat memberikan serial number yang hanya berlaku pada satu komputer saja maka kita harus mengetahui sesuatu yang sifatnya unik dalam komputer tersebut, misalnya serial number Prosesor, serial number Motherboard atau serial number Hardiskdrivenya. Misalnya kita menggunakan serial number Harddisk. Kalau kita menggunakan Serial Number HarddiskDrive maka kita harus tahu bagaimana  Coding membaca serial number Harddisk dengan Delphi ( Nanti akan sayaberikan dibawah ).
Sekarang kita bahas logikanya dulu, lebih mudah dengan contoh berikut

Misalnya kita dapatkan Serial Number Hardisknya adalah 4239947770 , serial number ini kita simpan dalam variable Float/Real/double agar bisa kita tambahkan/kurangkan dengan bilangan. 

Untuk memberikan Serial Number Kepada Komputer ini , maka angka Serial Number diatas kita tambah/kurangkan  dengan bilangan tertentu yang tetap. Misalnya 898989. Agar lebih rumit bisa ditambahkan dengan cara lain, misalnya angka kedua dan kelima atau lainnya sesuaikan dengan kreatifitas kalian. 
   
 Hasil penambahan itulah yang kita gunakan sebagai serial Number 

Untuk Contoh diatas SN = 4239947770 + 898989 = 4240846759 

 Jadi SN Untuk ini adalah 4240846759 

Nah Saat Registrasi lakukan pemeriksaan serial number yang diinput , kita periksa jumlahnya apakah  sesuai, jika sesuai maka registrasi berhasil, jika tidak , berarti registrasi gagal. 

 Angka 898989 adalah angka khusus yang kita ciptakan sendiri, sesuai dengan kreativitas masing masing. 

Pada Contoh Form registrasi diatas , Kode Installasi adalah Serial Number Hardisk pada komputer dimana kita meregistrasi Program 

 Kode Registrasi adalah tempat Input Serial Numbernya. 

Jadi Kode Intallasi yang muncul akan berbeda beda untuk setiap komputer karena serial Number Hardisknya pasti berbeda beda.  

 Berikut adalah Coding Cara membaca Serial Number

Setelah memahami logika diatas mari kita lanjutkan Cara Melindungi Program dengan Serial Number sesuai langkah langkah berikut:

Langkah 1:
Hal pertama yang harus disiapkan adalah menulis dan membaca Registry Windows, karena Serial Number akan kita simpan dalam registry Windows. Jika belom paham tentang cara Menulis dan Membaca Registry Windows dengan Delphi silahkan baca disini . Disana akan dijelaskan Cara Menulis/Membaca Registry Windows dengan Delphi.  Pada Program yang kita buat, tambahkan satu menu untuk melakukan Registrasi dalam hal ini untuk memasukan Serial Nomer yang sesuai, kemudian kita menyimpannya kedalam Registry Windows. Misalnya seperti pada Gambar 1 diatas. Mengenai Pembuatan Serial Nomor, silahkan baca lagi bagian penjelasan logika diatas. Berikut ini contoh Listing menyimpan hasil registrasi kedalam registry Windows.

 If cSerial.text= inttostr(SerialNum+ 898989)then
       Begin
        try
            Reg.OpenKey('\Software\myStock_Sx\Registrasi',true);
            Reg.WriteString('HD',inttostr(serialnum));
            Reg.WriteString('Serial',cSerial.text);
         finally
            Reg.CloseKey;
          end;
          MessageDlg('Registrasi Berhasil !', mtInformation,[mbOk], 0);
          Close;
       End else
       Begin
          MessageDlg('Registrasi Yang Anda Masukkan Tidak Benar', mtWarning,[mbOk], 0);
          cserial.SetFocus;
       End;

If cSerial.text= inttostr(SerialNum+ 898989)then …   adalah untuk memeriksa apakah serial nomer yang dimasukan sudah sesuai dengan yang kita berikan, untuk lebih jelasnya baca lagi penjelasan logika diatas, angka 898989 adalah angka yang bisa anda buat sendiri sesuai kreativitas masing masing.



Langkah 2
Langkah kedua dalam Cara Melindungi Program Dengan Serial Number  adalah membuat pemeriksaan apakah program sudah di registrasi atau belum, caranya adalah tambahkan script pemeriksaan di Form Utama pada Even on Activate atau onCreate. Maksudnya agar pada saat program pertamakali dijalankan maka program akan memeriksa dulu apakah sudah diregistrasi ( sudah di input serian nomernya atau belum ) Jika Sudah Program bisa dilanjutkan, jika belum maka Program langsung di exit.


Berikut adalah Script Untuk Membaca Registrasi di Registry Windows

  try
    try
      Reg.OpenKey('\Software\myStock_Sx\Registrasi', false);
      cHD:=Reg.ReadString('HD');
      cSerial:=Reg.ReadString('Serial');
      except  on ERegistryException do
           Begin

              messagedlg( ‘Program Belum Teregistrasi, Harap Lakukan Registrasi  ', mtWarning,[mbOK], 0);

              Application.Terminate;  /// Jika Belum terregistrasi maka proses yang ini / Program langsung close

          End;
    end;
   finally
    Reg.CloseKey;
  end;

cHD adalah string untuk menyimpan Serial Nomer Hardisk yang kita simpan saat Registrasi
cSerial adalah string untuk menyimpan Serial Nomer yang kita simpan saat Registrasi

kemudian lakukan pemeriksaan seperti saat Registrasi seperti berikut :

If cSerial= inttostr(strtoint(cHD)+ 898989) then
 Begin
      Exit;   /// Jika Benar Maka proses keluar dari sini > Program Bisa Dilanjutkan
 End
 Else
    messagedlg( ‘Program Belum Teregistrasi, Harap Lakukan Registrasi  ', mtWarning,[mbOK], 0);
    Application.Terminate;  /// Jika Tidak Benar Maka Program langsung Exit
 End;


Kalau ada yang Kurang Jelas Bisa tuliskan pertanyaan di bagian Komentar
Semoga Bermanfaat.
»»  READMORE...