Post Game

Sabtu 03 September 2016 - www.indoblog.me Ok Bray langsung saja disimak Tips atau Tutorial Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 sebenarnya tutorial ini juga bukanlah tutorial baru karena dari tahun tahun sebelumnya juga pernah di bagikan dan disini admin akan coba ulas kembali hanya untuk sekedar mengingatkan saja.

Ok program anti sniffer atau anti bongkar program yang kita buat dan dengan menerapkan tekhnik ini maka akan sedikit memberikan tingkat keamanan yang lebih baik terhadap project yang kita buat dan tidak mudah berpindah tangan ke tangan programmer lainnya yang hanya sekedar mengedit-edit dan bumm program milik kita sudah menjadi atas nama milik orang lain maka setidaknya dengan melakukan hal ini akan lebih memproteksi program yang kita buat lebih baik lagi.

Ok bagi sahabat sahabat delphier silahkan langsung saja dibuka program delphi anda delphi 7/indy9 dan silakan langsung dipraktekan.

1. Tambahkan 2 buah Timer ada di palette system lalu Timer 1 ubah propertiesnya seperti pada gambar dibawah ini:

Enabled:= True;

Interval:=10;

2. Lalu lanjut ke timer 2 lalu ubah propertiesnya seperti pada gambar dibawah ini:

Enabled:=False;

Interval:=1000;

3. Kemudian diatas implementation lalu silahkan masukan coding dibawah ini:

sniffer: TStringlist;

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;

procedure GetProcessList;

4. Kemudian lalu dibawah {$R *.dfm} silahkan tambahkan coding dibawah ini:

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;

var

  Title, ClassName: array[0..255] of Char;

begin

  GetWindowText(hWnd, Title, 255);

    GetClassName(hWnd, ClassName, 255);

  if IsWindowVisible(hWnd) then

    sniffer.Add(string(Title));

end;

procedure GetProcessList;

begin

  EnumWindows(@EnumWindowsProc, 0);

end;

5. Kemudian pada Form Create atau double klik form kosong dan masukan coding dibawah ini:

sniffer:= TStringList.Create;

6. Kemudian lalu silahkan double klik Timer 1 lalu masukan coding dibawah ini:

var i: Integer;

    d: Integer;

    list: TStringList;

begin

    list:= TStringList.Create;

    list.Text:= smartsniff+#13#10+ollydbg+#13#10+dump+#13#10+wireshark+#13#10+

                wincap+#13#10+popcap+#13#10+unpacker+#13#10+unupx+#13#10+cheat engine+#13#10+

                dede+#13#10+ce portable+#13#10+package sniffing;

    list.Text:= StringReplace(list.Text,|,#13#10,[rfReplaceAll]);

  try

    sniffer.Clear;

      GetProcessList;

    for i:= 0 to sniffer.Count -1 do begin

    for d:= 0 to list.Count - 1 do begin

      if Pos(list[d],LowerCase(sniffer[i])) <> 0

        then

          Timer2.Enabled := True; //Perintah Untuk Mengaktifkan Timer2

      end;

    end;

      finally

      list.Free;

  end;

7. Kemudian yang terakhir silahkan double klik Timer 2 lalu masukan coding dibawah ini:

Form1.Visible          := False;

  Timer1.Enabled      := False;

  Timer2.Enabled      := False;

  Application.MessageBox(Kamu Suka Ngintip Ya :D, Warning ...!!!, MB_ICONWARNING); //Pesan yang akan keluar.

  Application.Terminate; //Untuk Perintah Menutup Program Saja

 // winexec(shutdown -s -t 1 -f,sw_normal); //Untuk Perintah Melakukan Shutdown

 // winexec(shutdown -r -t 1 -f,sw_normal); //Untuk Perintah Melakukan Restart

8. Jika sudah beres silahkan RUN atau tekan f9 apakah ada yang error atau tidak lalu Perhatikan baris perintah ini:

Application.Terminate; silahkan anda bisa hapus dan ganti dengan winexec(shutdown -s -t 1 -f,sw_normal); jika anda ingin membuatnya langsung shutdown dan atau bisa diganti dengan yang winexec(shutdown -r -t 1 -f,sw_normal); jika anda ingin membuatnya restart.

Lihat Juga Bos: Cara Buat Injek Rolling Otomatis Paling Mantap Terbaru 2016

Dan untuk contoh source code jadinya silahkan download DISINI dan untuk passrarnya silahkan Copy Paste url lengkap postingan atau artikel ini saja dan sekian Cara Membuat Program Anti Sniffer Dengan Delphi 7 Terbaru 2016 semoga bermanfaat dan membantu dan wassalam.

 import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class FormLogin extends JFrame implements ActionListener {
    private JLabel label1, label2;
    private JTextField txtUser;
    private JPasswordField pwdPass;
    private JButton btnLogin, btnExit;

    public FormLogin(){
         super ("FormLogin");
   
         Container container = getContentPane();
         container.setLayout(new FlowLayout());
   
         label1 = new JLabel ("Username : ");
         label2 = new JLabel ("Password : ");
   
         txtUser = new JTextField(20);
         txtUser.setToolTipText("Input Username");
         pwdPass = new JPasswordField(20);
   
         btnLogin = new JButton ("Login");
         btnLogin.addActionListener(this);
         btnExit = new JButton ("Exit");
         btnExit.addActionListener(this);
   
         container.add(label1);
         container.add(txtUser);
         container.add(label2);
         container.add(pwdPass);
         container.add(btnLogin);
         container.add(btnExit);
   
         setSize (300,200);
         setVisible (true);
    }

    public static void main(String[] args) {
        FormLogin test = new FormLogin();
        test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
    }
    private String user = "",pass = "";
    public void actionPerformed (ActionEvent e){
        if (e.getSource() == btnLogin){
            user = txtUser.getText();
            pass = pwdPass.getText();
            if (user.equals("Syahfur") && pass.equals("Syahfur123")){
                JOptionPane.showMessageDialog(null, "Terima kasih anda telah berhasil login ");
                System.exit(0);
         
            }else{
                JOptionPane.showMessageDialog(null, "Username and password salah");
                txtUser.setText("");
                pwdPass.setText("");
                txtUser.requestFocus(true);
            }
        }else if (e.getSource() == btnExit){
            JOptionPane.showMessageDialog(null, "Anda sudah keluar");
            System.exit(0);
            }
        }
    }

nih hasilnya gan:

Selasa, 06 September 2016 - www.indoblog.me Ok Sobat blogger dan sobat delphier indonesia berikut adalah Tutorial sederhana Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 sebenarnya cara membaca dan mengethaui serial version os windows itu sangat mudah caranya, tetapi kita sekarang akan mencoba menjelaskan bagaimana kalau pendeteksian tersebut kita implementasikan ke sebuah program dan disini kita akan belajar menggunakan delphi atau pascal dan anda juga bisa menggunakan vb atau visual basic dll hanya saja setiap bahasa program pasti memiliki kekurangan dan keunggulan masing-masing.

Bagi sebagian programmer pemula atau programmer yang baru belajar hal-hal membuat program program sederhana ini memang sangat dibutuhkan sekali terutama bagi anda yang sedang menekuni dunia ini maka anda sudah sepantasnya sudah mengetahui bagaimana konfigurasi membaca registry system windows dengan delphi dan lain sebagainya.

Karena untuk pembuatan program ini adalah menggunakan registry system windows untuk pembacaannya , okelah biar tidak lama lagi silahkan langsung disimak saja tutorial cara membaca version os windows dibawah ini dan silahkan dipraktekan.

1. Pada langkah yang pertama silahkan bukan program delphi anda lalu kemudian silahkan tambahkan 1 buah label untuk pembacaannya.

2. Yang kedua kemudian silahkan tambahkan Uses Registry; dibawah implementation kemudian dibawah {$R *.dfm} tambahkan coding dibawah ini, untuk contohnya bisa sobat perhatikan gambar saja.

function GetWindowsVersion: string;

var

  VerInfo: TOsversionInfo;

  PlatformId, VersionNumber: string;

  Reg: TRegistry;

begin

  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);

  GetVersionEx(VerInfo);

  // Detect platform

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_LOCAL_MACHINE;

  case VerInfo.dwPlatformId of

        VER_PLATFORM_WIN32s:

          begin

                PlatformId := Windows 3.1;

          end;

        VER_PLATFORM_WIN32_WINDOWS:

          begin

                // Registry

                Reg.OpenKey(SOFTWAREMicrosoftWindowsCurrentVersion, False);

                PlatformId      := Reg.ReadString(ProductName);

                VersionNumber := Reg.ReadString(VersionNumber);

          end;

        VER_PLATFORM_WIN32_NT:

          begin

                Reg.OpenKey(SOFTWAREMicrosoftWindows NTCurrentVersion, False);

                PlatformId      := Reg.ReadString(ProductName);

                VersionNumber := Reg.ReadString(CurrentVersion);

          end;

  end;

  Reg.Free;

  Result := PlatformId + (version + VersionNumber + );

end;

3. Kemudian yang terakhir double klik Form Kosong atau klik saja formnya lalu masukan coding dibawah ini:

Label1.Caption := System: +GetWindowsVersion;

4. Yang terakhir silahkan tekan F9 atau RUN saja maka kira-kira hasilnya akan nampak seperti dibawah ini, bagaimana mudah bukan?

Ok dan bagi sahabat dan teman-teman semuanya yang kebetulan gagal membuatnya admin juga sudah siapkan contoh source codenya dan silahkan bisa diambil pada link DISINI dan silahkan dimplementasikan lagi mungkin akan anda gunakan dan gabungkan dengan program yang lainnya.

Tutorial Lainnya: Cara Membuat Aplikasi Enscryption Descryption Dengan Borland Delphi

Ok sobat terima kasih sudah membaca tips Cara Membuat Program Pendeteksian Versi Windows Dengan Delphi 7 Terbaru 2016 semoga masih bermanfaat untuk anda dan menjadi pelajaran dasar yang berharga buat anda semuanya terima kasih, Wassalam.