Untuk mengetahui salah satu karakteristik suatu bahasa dapat digunakan cara menghitung distribusi frekuensi huruf. Frekuensi huruf akan memberikan informasi kepada kita bahasa yang dipakai. Distribusi frekuensi sangat berharga sebagai upaya untuk melakukan penyerangan terhadap suatu algoritma kriptografi. Algoritma kriptografi klasik banyak dipecahkan dengan bantuan distribusi frekuensi huruf.

Berikut adalah contoh program untuk memperoleh distribusi frekuensi suatu bahasa.

Gambar 1. Memasukan artikel berbahasa Inggris.

Gambar 2. Untuk mendapatkan distribusi frekuensi huruf dalam bahasa inggris tekan tombol "Count It".

Untuk mengetahui distribusi bahasa lainnya (terutama yang menggunakan huruf latin), masukan artikel berbahasa yang diinginkan kemudian tekan tombol “Count It”.

Contoh berikutnya adalah mencari distribusi frekuensi huruf dari bahasa Indonesia.

Gambar 3. Distribusi frekuensi huruf dari bahasa Indonesia.

Source Code-nya adalah sbb :

// CharCounterDlg.cpp : implementation file
//

#include "stdafx.h"
#include "CharCounter.h"
#include "CharCounterDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif

struct dist_freq_huruf {
char hrf;
unsigned long freq;
} dist_freq[26];

// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
CAboutDlg();

// Dialog Data
enum { IDD = IDD_ABOUTBOX };

protected:
virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support

// Implementation
protected:
DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()

// CCharCounterDlg dialog

CCharCounterDlg::CCharCounterDlg(CWnd* pParent /*=NULL*/)
: CDialog(CCharCounterDlg::IDD, pParent)
, m_txtInput(_T(""))
{
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CCharCounterDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
DDX_Text(pDX, TXT_INPUT, m_txtInput);
}

BEGIN_MESSAGE_MAP(CCharCounterDlg, CDialog)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
//}}AFX_MSG_MAP
ON_BN_CLICKED(BTN_CLOSE, &CCharCounterDlg::OnBnClickedClose)
ON_EN_CHANGE(TXT_INPUT, &CCharCounterDlg::OnEnChangeInput)
ON_BN_CLICKED(BTN_COUNT, &CCharCounterDlg::OnBnClickedCount)
END_MESSAGE_MAP()

// CCharCounterDlg message handlers

BOOL CCharCounterDlg::OnInitDialog()
{
CDialog::OnInitDialog();

// Add "About..." menu item to system menu.

// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
BOOL bNameValid;
CString strAboutMenu;
bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX);
ASSERT(bNameValid);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
}

// Set the icon for this dialog.  The framework does this automatically
//  when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE);            // Set big icon
SetIcon(m_hIcon, FALSE);        // Set small icon

UpdateData(TRUE);

return TRUE;  // return TRUE  unless you set the focus to a control
}

void CCharCounterDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CCharCounterDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;

// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}

// The system calls this function to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CCharCounterDlg::OnQueryDragIcon()
{
return static_cast<HCURSOR>(m_hIcon);
}

void CCharCounterDlg::OnBnClickedClose()
{
OnCancel();
}

void CCharCounterDlg::OnEnChangeInput()
{
UpdateData(TRUE);

unsigned long len = m_txtInput.GetLength();
unsigned long TotalChar = 0;
CString CharsTot;

for (unsigned long i=0; i < len ; i++)
{
char ch = (char) m_txtInput.GetAt(i);

if (ch >= 'A' && ch <= 'Z') TotalChar++;
if (ch >= 'a' && ch <= 'z') TotalChar++;
}
CharsTot.Format(_T("%ld"), TotalChar);
SetDlgItemText(LBL_JMLCHAR, CharsTot);
}

void swap(dist_freq_huruf *x, dist_freq_huruf *y)
{
struct dist_freq_huruf temp;

temp.freq = x->freq;
temp.hrf = x->hrf;

x->freq   = y->freq;
x->hrf    = y->hrf;

y->freq   = temp.freq;
y->hrf    = temp.hrf;
}

int choose_pivot(int i,int j )
{
return((i+j) /2);
}

void quicksort(dist_freq_huruf *list, int m, int n)
{
int i,j,k;
struct dist_freq_huruf key;

if( m < n)
{
k = choose_pivot(m,n);
swap(&list[m], &list[k]);
key = list[m];
i = m+1;
j = n;

while(i <= j)
{
while((i <= n) && (list[i].freq <= key.freq)) i++;
while((j >= m) && (list[j].freq >  key.freq)) j--;
if( i < j) swap(&list[i], &list[j]);
}

// swap two elements
swap(&list[m], &list[j]);

// recursively sort the lesser list
quicksort(list,   m, j-1);
quicksort(list, j+1,   n);
}
}

void CCharCounterDlg::OnBnClickedCount()
{
const int MAX_ELEMENTS = 26;

UpdateData(TRUE);

struct dist_freq_huruf dist_freq[26];

unsigned long len = m_txtInput.GetLength();
unsigned long Total[26];
CString CharsTot;

for (int i = 0; i < 26; i++)
{
dist_freq[i].hrf  ='A' + i;
dist_freq[i].freq = 0;
Total[i] = 0;
}

for (unsigned long i=0; i < len ; i++)
{
char ch = (char) m_txtInput.GetAt(i);

if ((ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z'))
{
switch (ch)
{
case 'A':
case 'a':
dist_freq[0].freq += 1;
break;
case 'B':
case 'b':
dist_freq[1].freq += 1;
break;
case 'C':
case 'c':
dist_freq[2].freq += 1;
break;
case 'D':
case 'd':
dist_freq[3].freq += 1;
break;
case 'E':
case 'e':
dist_freq[4].freq += 1;
break;
case 'F':
case 'f':
dist_freq[5].freq += 1;
break;
case 'G':
case 'g':
dist_freq[6].freq += 1;
break;
case 'H':
case 'h':
dist_freq[7].freq += 1;
break;
case 'I':
case 'i':
dist_freq[8].freq += 1;
break;
case 'J':
case 'j':
dist_freq[9].freq += 1;
break;
case 'K':
case 'k':
dist_freq[10].freq += 1;
break;
case 'L':
case 'l':
dist_freq[11].freq += 1;
break;
case 'M':
case 'm':
dist_freq[12].freq += 1;
break;
case 'N':
case 'n':
dist_freq[13].freq += 1;
break;
case 'O':
case 'o':
dist_freq[14].freq += 1;
break;
case 'P':
case 'p':
dist_freq[15].freq += 1;
break;
case 'Q':
case 'q':
dist_freq[16].freq += 1;
break;
case 'R':
case 'r':
dist_freq[17].freq += 1;
break;
case 'S':
case 's':
dist_freq[18].freq += 1;
break;
case 'T':
case 't':
dist_freq[19].freq += 1;
break;
case 'U':
case 'u':
dist_freq[20].freq += 1;
break;
case 'V':
case 'v':
dist_freq[21].freq += 1;
break;
case 'W':
case 'w':
dist_freq[22].freq += 1;
break;
case 'X':
case 'x':
dist_freq[23].freq += 1;
break;
case 'Y':
case 'y':
dist_freq[24].freq += 1;
break;
case 'Z':
case 'z':
dist_freq[25].freq += 1;
break;
default:
break;
}
}
}

quicksort(&(*dist_freq), 0, MAX_ELEMENTS-1);

CharsTot.Format(_T("%ld"), dist_freq[25].freq);
SetDlgItemText(LBL_STATISTIKA, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[25].hrf);
SetDlgItemText(LBL_STATA, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[24].freq);
SetDlgItemText(LBL_STATISTIKB, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[24].hrf);
SetDlgItemText(LBL_STATB, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[23].freq);
SetDlgItemText(LBL_STATISTIKC, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[23].hrf);
SetDlgItemText(LBL_STATC, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[22].freq);
SetDlgItemText(LBL_STATISTIKD, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[22].hrf);
SetDlgItemText(LBL_STATD, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[21].freq);
SetDlgItemText(LBL_STATISTIKE, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[21].hrf);
SetDlgItemText(LBL_STATE, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[20].freq);
SetDlgItemText(LBL_STATISTIKF, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[20].hrf);
SetDlgItemText(LBL_STATF, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[19].freq);
SetDlgItemText(LBL_STATISTIKG, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[19].hrf);
SetDlgItemText(LBL_STATG, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[18].freq);
SetDlgItemText(LBL_STATISTIKH, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[18].hrf);
SetDlgItemText(LBL_STATH, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[17].freq);
SetDlgItemText(LBL_STATISTIKI, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[17].hrf);
SetDlgItemText(LBL_STATI, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[16].freq);
SetDlgItemText(LBL_STATISTIKJ, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[16].hrf);
SetDlgItemText(LBL_STATJ, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[15].freq);
SetDlgItemText(LBL_STATISTIKK, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[15].hrf);
SetDlgItemText(LBL_STATK, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[14].freq);
SetDlgItemText(LBL_STATISTIKL, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[14].hrf);
SetDlgItemText(LBL_STATL, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[13].freq);
SetDlgItemText(LBL_STATISTIKM, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[13].hrf);
SetDlgItemText(LBL_STATM, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[12].freq);
SetDlgItemText(LBL_STATISTIKN, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[12].hrf);
SetDlgItemText(LBL_STATN, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[11].freq);
SetDlgItemText(LBL_STATISTIKO, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[11].hrf);
SetDlgItemText(LBL_STATO, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[10].freq);
SetDlgItemText(LBL_STATISTIKP, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[10].hrf);
SetDlgItemText(LBL_STATP, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[9].freq);
SetDlgItemText(LBL_STATISTIKQ, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[9].hrf);
SetDlgItemText(LBL_STATQ, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[8].freq);
SetDlgItemText(LBL_STATISTIKR, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[8].hrf);
SetDlgItemText(LBL_STATR, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[7].freq);
SetDlgItemText(LBL_STATISTIKS, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[7].hrf);
SetDlgItemText(LBL_STATS, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[6].freq);
SetDlgItemText(LBL_STATISTIKT, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[6].hrf);
SetDlgItemText(LBL_STATT, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[5].freq);
SetDlgItemText(LBL_STATISTIKU, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[5].hrf);
SetDlgItemText(LBL_STATU, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[4].freq);
SetDlgItemText(LBL_STATISTIKV, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[4].hrf);
SetDlgItemText(LBL_STATV, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[3].freq);
SetDlgItemText(LBL_STATISTIKW, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[3].hrf);
SetDlgItemText(LBL_STATW, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[2].freq);
SetDlgItemText(LBL_STATISTIKX, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[2].hrf);
SetDlgItemText(LBL_STATX, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[1].freq);
SetDlgItemText(LBL_STATISTIKY, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[1].hrf);
SetDlgItemText(LBL_STATY, CharsTot);

CharsTot.Format(_T("%ld"), dist_freq[0].freq);
SetDlgItemText(LBL_STATISTIKZ, CharsTot);
CharsTot.Format(_T("%c"), dist_freq[0].hrf);
SetDlgItemText(LBL_STATZ, CharsTot);
}

Steganografi adalah seni penyembunyian pesan rahasia ke dalam pesan lainnya sedemikian rupa sehingga orang lain tidak mengetahui bahwa di dalam pesan tersebut mengandung sesuatu pesan rahasia.

Kata steganografi (steganography) berasal dari bahasa Yunani yaitu steganos yang artinya tersembunyi atau terselubung dan graphein, yang artinya menulis, sehingga kurang lebih artinya adalah “menulis tulisan yang tersembunyi atau terselubung” (Sellars, 1996).

Banyak sekali teknik yang digunakan sebagai metoda berkomunikasi rahasia dengan Steganografi.

Teknik-tekniknya antara lain tinta yang tidak tampak, microdots, pengaturan kata, tanda tangan digital, jalur tersembunyi dan komunikasi spektrum lebar.

Sebagai contoh, pesan rahasia yang akan disembunyikan adalah “PILIH NOMOR TUJUH”. Salah satu contoh kalimat yang digunakan untuk menyembunyikan pesan rahasia adalah sebagai berikut :

“pedagang intan lamongan inginkan himpunan nasional omongin masalah omzet rata-rata tahunan untuk jaga unitas/kesatuan harga”

Sekilas apabila kita membaca pesan tersebut di atas, nampak bahwa pesan merupakan bagian dari sepenggal berita. Tetapi apabila kita amati pada setiap awal kata akan membentuk pesan rahasia yang tersembunyi . pedagang intan lamongan inginkan himpunan nasional omongin masalah omzet rata-rata tahunan untuk jaga unitas/kesatuan harga. Awal kata (huruf cetak tebal) membentuk pesan “PILIH NOMOR TUJUH”.

Gambar 1. Hasil dari perintah nslookup.

Gambar 2. Lanjutan hasil dari perintah nslookup.

Gambar 3. Bagian terakhir lanjutan hasil dari perintah nslookup.

Setelah perintah host diperoleh sub-sub Domain yang terdapat pada ITB, sebagai berikut.

nslookup merupakan sebuah utility yang digunakan untuk mencari alamat IP dari suatu nama domain maupun sebuah host dari sebuah jaringan. Pada awalnya utility nslookup juga dilakukan dengan cara mengetikkan perintah melalui command line interface. Namun pada perkembangannya, utility nslookup-pun dapat dilakukan dengan menggunakan aplikasi berbasis web.

host merupakan sebuah utility yang digunakan untuk mendapatkan alamat IP dari suatu nama host atau sebaliknya mendapatkan suatu nama host dari suatu alamat IP. Sama seperti whois dan nslookup, utility host-pun sebenarnya merupakan sebuah utility yang digunakan dengan cara mengetikkan perintah melalui command line interface.

Berikut adalah contoh hasil-hasil penggunaan utility whois dan nslookup (menggunakan aplikasi berbasis web) . Contoh yang diambil adalah web page milik www.detik.com.

Gambar 1. Hasil perintah WhoIs pada aplikasi web.

Gambar 2. Lanjutan hasil dari perintah WhoIs.

Gambar 3. Hasil perintah nslookup pada aplikasi Web.

Gambar 4. Lanjutan hasil perintah nslookup.

Gambar 5. Bagian terakhir lanjutan hasril dari perintah nslookup.

Contoh lain yang diambil adalah web page milik www.okezone.com.

Gambar 6. Hasil dari perintah WhoIs.

Gambar 7. Lanjutan hasil dari perintah WhoIs

Gambar 8. Hasil dari perintah nslookup.

Gambar 9. Lanjutan hasil dari perintah nslookup.

Berikut adalah salah satu contoh membuat software yang salah. Sekilas aplikasi tidak bermasalah, apabila masukan yang diberikan secara kebetulan tidak melebihi alokasi memory yang disediakan oleh pembuat software aplikasi. Namun apabila masukan yang diberikan melebihi batas alokasi memory yang diberikan akan menyebabkan error pada software aplikasi.

Gambar 1. Proses Inputan data yang secara kebetulan sesuai dengan alokasi memory yg telah disiapkan.

Gambar 2. Inputan dapat disimpan.

Gambar 3. Proses Input data yang diperkirakan melebih kapasitas memory yang disediakan.

Gambar 4. Setelah tombol save ditekan, aplikasi tidak dapat menyimpan data. Aplikasi menampilkan error dan langsung ditutup oleh Operating Sytem.

File FlatDBaseDlg.h :

//************************************************************************
//
// FlatDBaseDlg.h : header file
//
//************************************************************************

#pragma once

// CFlatDBaseDlg dialog
class CFlatDBaseDlg : public CDialog
{
// Construction
public:
CFlatDBaseDlg(CWnd* pParent = NULL); // standard constructor

// Dialog Data
enum { IDD = IDD_FLATDBASE_DIALOG };

struct DBSiswa
{
char Posisi[4];
char NIM[12];
char Nama[255];
char Alamat[255];
char Kota[255];
char Umur[3];
} SiswaITB;

protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

// Implementation
protected:
HICON m_hIcon;

// Generated message map functions
virtual BOOL OnInitDialog();
afx_msg void OnSysCommand(UINT nID, LPARAM lParam);
afx_msg void OnPaint();
afx_msg HCURSOR OnQueryDragIcon();
DECLARE_MESSAGE_MAP()

public:
afx_msg void OnBnClickedAdd();
afx_msg void EnDisabledControl(BOOL Enabled);
afx_msg int ReadCurrentRecord(int RecNum, FILE *FileDB);
afx_msg void ShowCurrentRecord();
afx_msg void ShowEmptyRecord();
afx_msg void SaveCurrentRecord(int RecNum, FILE *FileDB);

int CurPosRec; FILE *FileDBase;

CString m_strNIM; CString m_strALAMAT;
CString m_strNAMA; CString m_strKOTA;
CString m_strUMUR;
};

File FlatDBaseDlg.cpp :

// *********************************************************************************
//
// FlatDBaseDlg.cpp : implementation file
//
// *********************************************************************************

#include "stdafx.h"
#include "FlatDBase.h"
#include "FlatDBaseDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif

// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
CAboutDlg();

// Dialog Data
enum { IDD = IDD_ABOUTBOX };

protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support

// Implementation
protected:
DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()

// CFlatDBaseDlg dialog

CFlatDBaseDlg::CFlatDBaseDlg(CWnd* pParent /*=NULL*/)
: CDialog(CFlatDBaseDlg::IDD, pParent)
, m_strNIM (_T(""))
, m_strNAMA (_T(""))
, m_strALAMAT(_T(""))
, m_strKOTA (_T(""))
, m_strUMUR (_T(""))
{
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CFlatDBaseDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
DDX_Text(pDX, IDC_NIM, m_strNIM);
DDX_Text(pDX, IDC_NAMA, m_strNAMA);
DDX_Text(pDX, IDC_ALAMAT, m_strALAMAT);
DDX_Text(pDX, IDC_KOTA, m_strKOTA);
DDX_Text(pDX, IDC_UMUR, m_strUMUR);
}

BEGIN_MESSAGE_MAP(CFlatDBaseDlg, CDialog)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
//}}AFX_MSG_MAP
ON_BN_CLICKED(BTN_ADD, &CFlatDBaseDlg::OnBnClickedAdd)
END_MESSAGE_MAP()

char * Convert2Char (CString InString)
{
char *CharStr;

CharStr = (char *) malloc (InString.GetLength());
for (int i=0; i<InString.GetLength(); i++)
CharStr[i] = (char) InString.GetAt(i);
return CharStr;
}

int DBFile_Exist(LPCWSTR lpSource)
{
WIN32_FIND_DATA fd;
::memset(&fd, 0, sizeof(WIN32_FIND_DATA));

HANDLE hFile = ::FindFirstFile(lpSource, &fd);

// Not exists.
if (hFile == INVALID_HANDLE_VALUE)
{ return 0; }

// Exists, but file or directory?
if (fd.dwFileAttributes == (fd.dwFileAttributes | FILE_ATTRIBUTE_DIRECTORY))
{
// Exists but there's no file with this name, so it's a directory.
::FindClose(hFile); return 0;
}
else
{
// Exists and is not a directory, so it's a file.
::FindClose(hFile); return 1;
}
}

CString DBFile_Dir (CString fileFullPath)
{
int i = 0, j = 0, k = 0;
while (i > -1)
{
k = i;
i = fileFullPath.Find('\\', j);
j = i + 1;
}
return fileFullPath.Left(k);
}

// CFlatDBaseDlg message handlers
BOOL CFlatDBaseDlg::OnInitDialog()
{
CDialog::OnInitDialog();

// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);

CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
BOOL bNameValid;
CString strAboutMenu;
bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX);
ASSERT(bNameValid);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
}

// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon

// TODO: Add extra initialization here
EnDisabledControl(false);

TCHAR szPath[MAX_PATH];
CString DBFile;
FileDBase = NULL;

GetModuleFileName(NULL, szPath, MAX_PATH);
DBFile.Format(_T("%s"), szPath);
DBFile = DBFile_Dir (DBFile) + L"\\" + L"DBFileSiswaITB.dat";

if(DBFile_Exist(DBFile))
{
_wfopen_s(&FileDBase, DBFile, L"rb+");
if (FileDBase == NULL)
{
MessageBox(L"File Database ada tetapi tidak dapat dibuka!",
L"FLatDBase", MB_OK | MB_ICONERROR);
}
else
{
CurPosRec = 0;
if (ReadCurrentRecord(CurPosRec, FileDBase) == 1)
ShowCurrentRecord();
}
}
else
{
_wfopen_s(&FileDBase, DBFile, L"wb+");
if (FileDBase == NULL)
{
MessageBox(L"Aplikasi FlatDBase tidak dapat membuat file Database!",
L"FLatDBase", MB_OK | MB_ICONERROR);
}
else
{ CurPosRec = 0; ShowEmptyRecord(); }
}

return TRUE; // return TRUE unless you set the focus to a control
}

void CFlatDBaseDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{ CDialog::OnSysCommand(nID, lParam); }
}

// If you add a minimize button to your dialog, you will need the code below
// to draw the icon. For MFC applications using the document/view model,
// this is automatically done for you by the framework.

void CFlatDBaseDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting

SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;

// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}

// The system calls this function to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CFlatDBaseDlg::OnQueryDragIcon()
{
return static_cast<HCURSOR>(m_hIcon);
}

void CFlatDBaseDlg::EnDisabledControl(BOOL EnDisabled)
{
GetDlgItem(IDC_NIM)->EnableWindow(EnDisabled);
GetDlgItem(IDC_NAMA)->EnableWindow(EnDisabled);
GetDlgItem(IDC_ALAMAT)->EnableWindow(EnDisabled);
GetDlgItem(IDC_KOTA)->EnableWindow(EnDisabled);
GetDlgItem(IDC_UMUR)->EnableWindow(EnDisabled);
}

int CFlatDBaseDlg::ReadCurrentRecord(int RecNum, FILE *FileDB)
{
fread(&SiswaITB, sizeof(SiswaITB), 1, FileDB);
//if (ferror(FileDB)) return(-1);
if (feof(FileDB)) return(-1);
else
{
// if (SiswaITB.Posisi != RecNum) return(0);
// else return(1);
return(1);
}

}

BOOL IsTextChar(unsigned int ch)
{
if (ch >= 'A' && ch <= 'Z')
return ch;
if (ch >= 'a' && ch <= 'z')
return ch;
if (ch >= '0' && ch <= '9')
return ch;
if (ch == '+')
return ch;
if (ch == '/')
return ch;
if (ch == ':')
return ch;
if (ch == '\"')
return ch;
if (ch == '\'')
return ch;
if (ch == '!')
return ch;
if (ch == '@')
return ch;
if (ch == '#')
return ch;
if (ch == '$')
return ch;
if (ch == '%')
return ch;
if (ch == '^')
return ch;
if (ch == '&')
return ch;
if (ch == '*')
return ch;
if (ch == '(')
return ch;
if (ch == ')')
return ch;
if (ch == '=')
return ch;
if (ch == '{')
return ch;
if (ch == '}')
return ch;
if (ch == '\\')
return ch;
if (ch == '|')
return ch;
if (ch == ',')
return ch;
if (ch == '.')
return ch;
if (ch == 0x20)
return ch;

return '';
}

void CFlatDBaseDlg::ShowCurrentRecord()
{
char *tmpNIM, *tmpNAMA, *tmpALAMAT, *tmpKOTA, *tmpUMUR;

tmpNIM = (char *) malloc (12);
for (int i=0; i < 12; i++) tmpNIM[i] = IsTextChar(SiswaITB.NIM[i]);
m_strNIM = tmpNIM;

tmpNAMA = (char *) malloc (255);
for (int i=0; i < 255; i++) tmpNAMA[i] = IsTextChar(SiswaITB.Nama[i]);
m_strNAMA = tmpNAMA;

tmpALAMAT = (char *) malloc (255);
for (int i=0; i < 255; i++) tmpALAMAT[i] = IsTextChar(SiswaITB.Alamat[i]);
m_strALAMAT = tmpALAMAT;

tmpKOTA = (char *) malloc (255);
for (int i=0; i < 255; i++) tmpKOTA[i] = IsTextChar(SiswaITB.Kota[i]);
m_strKOTA = tmpKOTA;

tmpUMUR = (char *) malloc (3);
for (int i=0; i < 3; i++) tmpUMUR[i] = IsTextChar(SiswaITB.Umur[i]);
m_strUMUR = tmpUMUR;

UpdateData(FALSE);
}

void CFlatDBaseDlg::SaveCurrentRecord(int RecNum, FILE *FileDB)
{
char *strUmur = NULL;

strUmur = (char *) malloc (5);
if (strUmur == NULL)
{
MessageBox(L"Tidak cukup memory untuk menjalankan aplikasi FlatDBase!",
L"FlatDBase", MB_OK | MB_ICONERROR);
if (FileDB) fclose(FileDB);
return;
}
else
{
CString CMsg;
char *tmpNIM, *tmpNAMA, *tmpALAMAT, *tmpKOTA, *tmpUMUR;

UpdateData(TRUE);

tmpNIM = (char *) malloc (m_strNIM.GetLength()+1);
tmpNIM = Convert2Char(m_strNIM);
tmpNIM[m_strNIM.GetLength()] = '';

tmpNAMA = (char *) malloc (m_strNAMA.GetLength()+1);
tmpNAMA = Convert2Char(m_strNAMA);
tmpNAMA[m_strNAMA.GetLength()] = '';

tmpALAMAT = (char *) malloc (m_strALAMAT.GetLength()+1);
tmpALAMAT = Convert2Char(m_strALAMAT);
tmpALAMAT[m_strALAMAT.GetLength()] = '';

tmpKOTA = (char *) malloc (m_strKOTA.GetLength()+1);
tmpKOTA = Convert2Char(m_strKOTA);
tmpKOTA[m_strKOTA.GetLength()] = '';

tmpUMUR = (char *) malloc (m_strUMUR.GetLength()+1);
tmpUMUR = Convert2Char(m_strUMUR);
tmpUMUR[m_strUMUR.GetLength()] = '';

sprintf_s(SiswaITB.Posisi,3, "%d", RecNum);
SiswaITB.Posisi[3] = '';

for (int i=0; i < m_strNIM.GetLength(); i++) SiswaITB.NIM[i] = tmpNIM[i];
for (int i=0; i < m_strNAMA.GetLength(); i++) SiswaITB.Nama[i] = tmpNAMA[i];
for (int i=0; i < m_strALAMAT.GetLength(); i++) SiswaITB.Alamat[i] = tmpALAMAT[i];
for (int i=0; i < m_strKOTA.GetLength(); i++) SiswaITB.Kota[i] = tmpKOTA[i];
for (int i=0; i < m_strUMUR.GetLength(); i++) SiswaITB.Umur[i] = tmpUMUR[i];

fwrite(&SiswaITB, sizeof(SiswaITB), 1, FileDB);
if (ferror(FileDB))
{
MessageBox(L"Error pada saat menulis file.", L"FlatDBase", MB_OK | MB_ICONERROR);
if (FileDB) fclose(FileDB);
}
}
}

void CFlatDBaseDlg::ShowEmptyRecord()
{
m_strNIM = "";
m_strNAMA = "";
m_strALAMAT = "";
m_strKOTA = "";
m_strUMUR = "";
}

void CFlatDBaseDlg::OnBnClickedAdd()
{
LPTSTR Btn_Caption;
Btn_Caption = (LPTSTR) malloc (10);
if (Btn_Caption == NULL)
{
MessageBox(L"Tidak cukup memory untuk menjalankan aplikasi FlatDBase!",
L"FlatDBase Error", MB_OK | MB_ICONWARNING);
return;
}
else
{
GetDlgItem(BTN_ADD)->GetWindowTextW(Btn_Caption, 10);
Btn_Caption[6] = '';
CString CBtn_Caption(Btn_Caption);
if ( CBtn_Caption.MakeUpper() == "ADD" )
{
EnDisabledControl(true);
GetDlgItem(IDC_NIM)->SetFocus();
GetDlgItem(BTN_ADD)->SetWindowTextW(L"Save");
}
else
{
CurPosRec++;
SaveCurrentRecord(CurPosRec, FileDBase);
EnDisabledControl(false);
GetDlgItem(BTN_ADD)->SetWindowTextW(L"Add");
}
}
}

Kebutuhan Teknologi Informasi menuntut adanya perencanaan dan penerapan infrastruktur teknologi yang sesuai dengan proses bisnis organisasi.  Banyaknya vendor yang menyediakan jasa layanan TI baik software maupun hardware harus disikapi dengan bijak.  Setiap vendor memiliki  kelebihan dan kekurangan masing-masing yang saling melengkapi. Dalam hal memilih vendor saya sependapat dengan apa yang disampaikan oleh Steve Taylor dan Jim Mezler bahwa bisnis tidak boleh terjebak oleh perangkap dan janji-janji oleh single vendor TI manapun. Bisnis dapat digantungkan kepada vendor yang menawarkan solusi jaringan yang saling terintegrasi dan dibangun pada standar yang open. Memilih lebih dari satu vendor yang dapat saling terintegrasi jauh lebih baik ketimbang terjebak dengan memilih hanya satu vendor saja.

Kelebihan dengan menggunakan multi vendor adalah : dapat memilih vendor yang mempunyai harga yang kompetitif dan menggabungkan kelebihan serta menutupi kekurangan masing-masing vendor yang dipilih sehingga menjadi suatu kekuatan sesuai yang direncanakan.

Kelemahan dengan menggunakan multi vendor adalah : kesulitan dalam menentukan vendor-vendor mana yang benar-benar dapat saling terintegrasi, kesulitan dalam menentukan kebutuhan sumber daya manusia, kesulitan dalam pemeliharaan.

Referensi :

1. Milberg, Ken. Choosing network equipment vendors: Multi-vendor vs. single-source. Maret 2008. http://searchnetworkingchannel.techtarget.com/tip/0,289483,sid100_gci1305061,00.html.
2. Taylor, Steve and Mezler, Jim. Single, dual or multivendor sourcing – which works better? Januari 2008. http://www.networkworld.com/ newsletters/frame/2008/0107wan1.html?page=1.
3. Turban, E., Leidner, D., Mclean, E., and Wetherbe, J. 2008. Information Technology for Management 6th ed – Transforming Organizations in the Digital Economy. Jon Wiley & Sons, Inc.