Encrypt and Decrypt Image - BMP

Hallow semua...
gw punya source code simple untuk encrypt ato decrypt file gambar (untuk kasus sekarang kita pake file gambar bitmap). Tampilanya seperti ini:

Encrypt bitmap

Decrypt bitmap

Code untuk encrypt/decrypt button seperti ini:

PROCEDURE TForm1.Button2Click(Sender: TObject);
VAR
i : INTEGER;
j : INTEGER;
RandomValue : BYTE;
rowIn : pByteArray;
rowOut : pByteArray;
ScanlineByteCount: INTEGER;
BitmapResult : TBitmap;
BEGIN
/*
BitmapOriginal : tipe dile TBitmap dan di inisialisasi pada saat open file
*/
IF Assigned(BitmapResult)
THEN BitmapResult.Free;

BitmapResult := TBitmap.Create;
BitmapResult.Width := BitmapOriginal.Width;
BitmapResult.Height := BitmapOriginal.Height;
BitmapResult.PixelFormat := BitmapOriginal.PixelFormat;

IF BitmapOriginal.PixelFormat IN [pf1bit, pf4bit, pf8bit]
THEN BitmapResult.Palette := CopyPalette(BitmapOriginal.Palette);

ScanlineByteCount := ABS(Integer(BitmapOriginal.Scanline[1]) -
Integer(BitmapOriginal.Scanline[0]));

RandSeed := 79997;

FOR j := 0 TO BitmapOriginal.Height-1 DO
BEGIN
RowIn := BitmapOriginal.Scanline[j];
RowOut := BitmapResult.Scanline[j];

FOR i := 0 TO ScanlineByteCount-1 DO
BEGIN
RandomValue := Random(256);
RowOut[i] := RowIn[i] XOR RandomValue
END
END;

Image1.Picture.Graphic := BitmapResult;
END;

Selamat mencoba ya...keep writing..:D

Read More...

Windows API - Delphi

Memanfaatkan applikasi - applikasi bawaan dari windows merupakan hal yang sangat mudah dilakukan. Saat ini kita akan mencoba membuat applikasi sederhana menggunakan Borland Delphi 7, untuk memamnggil applikasi windows seperti notepad, calculator, dan paint.

Hal-hal yang perlu dilakukan untuk membuat applikasi sederhana tersebut adalah sebagai berikut:
1. Yang pasti kalian harus punnya borland delphi nya dulu ya... hahahaa
2. Buat project baru,
3. Buat 3 button, yang pertama button untuk panggil notepad, yang kedua untuk panggil calculator, dan yang ketiga adalah untuk panggil paint.
4. Kemudian masuk ke script (tekan F12)

5. Pada uses, tambahkan ShellApi
6. Pada Button notepad, tambahkan code berikut:
ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
7. Pada Button calculator, tambahkan code berikut:
ShellExecute(Handle, 'open', 'c:\Windows\system32\calculator.exe', nil, nil, SW_SHOWNORMAL) ;
8. Pada Button paint, tambahkan code berikut:
ShellExecute(Handle, 'open', 'c:\Windows\system32\mspaint.exe', nil, nil, SW_SHOWNORMAL) ;

Keterangan: kalo salah, berati exe file nya salah heee coba liat lagi aja di windowsnya...
Selamat mencoba...

Read More...

Minicom

Buat kalian - kalian yang butuh terminal emulator layaknya hyperterminal pada windows operating system, linux juga punnya, dan ga perlu susah-susah nyarinya..

Nama applikasinya adalah minicom.
*Minicom is a text-based modem control and terminal emulation program for Unix-like operating systems, originally written by Miquel van Smoorenburg, and modeled after the popular MS-DOS program Telix. Minicom includes a dialing directory, full ANSI and VT100 emulation, an (external) scripting language, and other features. Minicom is a menu-driven communications program. It also has an auto zmodem download
(*sumber wikipedia)

Gimana cara pakai dan nampilin program tersebut ??
ikuti langkah - langkah berikut :

1. Buka sebuah terminal/console, trus ketikin "minicom" (tanpa tanda kutip)

$ minicom

2. Setelah itu akan muncul tampilan sebagai berikut :

Welcome to minicom 2.00.0
OPTIONS: History Buffer, F-key Macros, Search History Buffer, I18n
Compiled on Mar 7 2005, 10:29:09.
Press CTRL-A Z for help on special keys

Kemudian, untuk melakukan settingan seperti serialportnya, terminalnya, baudrates, dan temen2 nya.. caranya tekan CTRL+A setelah itu tekan Z pada keyboard, akan muncul menu-menu yang bisa kalian mainkan heee...
Dengan begitu terminal emulator pada linux udah bisa dijalankan heee...
**** selamat mencoba ****

Read More...

Drag n Drop sederhana

Applikasi Drag n Drop sederhana
(java application - netbean)

Langkah – langkah yang harus dilakukan dalam membuat aplikasi DnD adalah sebagai berikut :

1. Buat project baru File->New Project..., pilih category General dan project Java Application, klik Next dengan nama appDrag&Drop, tanpa main class (uncheck create main class) kemudian klik Finish.
2. Tambahkan form (JFrame Form) ke dalam project tersebut dengan nama class “DragDrop” dan package “dnd”
3. Design form tersebut seperti gambar dibawah ini



Design tersebut terdiri dari jPanel, jLabel, dan jTextField.
4. Ubah ke mode design ke mode source (select View->Editor->Source).
5. Import beberapa kebutuhan yang diperlukan kedalam DragDrop.java dibawah package dnd;, seperti dibawah ini

import java.awt.*;
import javax.swing.JComponent;
import javax.swing.TransferHandler;
import java.awt.event.*;

6. Buat class baru didalam class DragDrop, yaitu DragMouseAdapter untuk meng-hadle aksi yang dilakukan oleh mouse (DnD)

private class DragMouseAdapter extends MouseAdapter {
public void mousePressed(MouseEvent e) {
JComponent c = (JComponent)e.getSource();
TransferHandler handler = c.getTransferHandler();
handler.exportAsDrag(c, e, TransferHandler.COPY);
}
}

7. Pada konstruktor (method DragDrop), tambahkan code dibawah ini

public DragDrop() {
initComponents();
jTextField1.setDragEnabled(true);
jLabel1.setTransferHandler(new TransferHandler("text"));
MouseListener listener = new DragMouseAdapter();
jLabel1.addMouseListener(listener);
}

8. Jalankan aplikasi dengan menekan tombol F6
9. Untuk mencoba aplikasi DnD, klik label Helllo, drag, dan drop pada textfield. Jika berhasil makan string Helllo akan ada pada textfield (ter-copy)

Read More...