Waduh, Virus Delphi Mematikan Serang Windows

Peneliti dari perusahaan antivirus Sonicwall, juga beberapa vendor lainnya, termasuk Sophos, telah menemukan virus mematikan terbaru. Selasa (18/08) kemarin, mereka menemukan virus Win32.Induc yang ditulis untuk menginfeksi aplikasi yang dibangun menggunakan bahasa pemrograman Delphi. Hal tersebut disampaikan oleh Nick Bilogorskiy, manager peneliti dari Sonicwall. Sementara itu, bahasa Delphi sendiri biasanya digunakan untuk membuat aplikasi yang dijalankan di Windows, termasuk aplikasi database.

Menurut Bilogorskiy, ketika program buatan Delphi yang sudah terinfeksi, maka virus akan menyebarkan file executable-nya (.exe) sendiri seperti yang ada di source code-nya. Jika dalam komputer ditemukan instalasi berbasis Delphi, maka program tersebut akan mencoba menulis code ke SysConst.pas, yang kemudian di-compile ke SysConst.dcu (setelah menyimpan copy-an file SysConst.dcu aslinya ke SysConst.bak). File SysConst.dcu baru yang terinfeksi kemudian akan menambah code W32/Induc-A secara otomatis ke setiap file Delphi yang baru, yang kemudian akan di-compile oleh system.

“Malware tersebut hanya menyebarkan dirinya, tidak menghapus file ataupun melakukan sesutau yang lebih ‘jahat’. Namun, jika user membuat software berbasis Delphi dan memiliki source code ‘jahat’ tersebut, maka software yang dibuat itu masih bisa diblokir oleh antivirus. Walaupun begitu, sudah sebanyak 30 persen developer yang menggunakan Delphi pasti memilki code tersebut.” ungkap Bilogorskiy.

Borland Satukan Banyak Software

Borland telah merilis framework untuk menempatkan tool management pada proses pengembangan software. Ide dari Borland adalah untuk menyediakan kemampuan bagi para stakeholder bisnis, pengembang, project manager, dan eksekutif software ke dalam proses pengembangan.

Pengumuman Borland Management Solutions ini telah membantu sebuah perusahaan tool pengembangan di Santa Cruz, California. Pengembangan software management ini muncul setelah Delphi dan Turbo Pascal, namun belum jelas bagaimana pengembangan tersebut diterjemahkan dalam management layer di atas beberapa bantahan mengenai proses konstruksi kodenya.

“Kami ingin mentransform software, yang tidak memiliki track record terbaik, ke dalam proses bisnis management. Ini seperti sistem tracking FedEx untuk proyek IT.”, kata Rick Jackson, senior VP Borland. Dengan kata lain, Borland mengklaim bahwa pihaknya dapat mengukur dan memonitor proses pengembangan software tesebut yang tidak diduga sebelumnya. Framework tersebut akan menjadi tool pengembangan dan akan melebihi aplikasi produk lifecycle management yang ada di Borland, seperti Caliber atau tool model visual, Together.

Tool management telah disebarkan ke situs pelanggan yang cukup besar dan proses pengembangan dalam internal Borland. Chuck Maples, VP dari bagian pengembangan aplikasi dari Borland, mengatakan pihaknya akan menilai proyek pengembangan framework ini dengan melihat kinerja tim dan meminta statistic progress mereka, sehingga mungkin akan memakan waktu hingga dua mingu untuk mendapatkan semua informasi. Hal inilah yang menyebabkan framework untuk penyatuan informasi dan management pengembangan software ini belum memiliki harga pasti.

Framework ini akan dapat menyatukan data dari Microsoft Project, Borland Caliber, Borland StarTeam change and configuration management system, Borland Silk Central Test Manager dan HP Quality Center, dan kemudian membangun satu penyimpanan untuk menyimpan semua informasi tersebut, yang dapat digunakan nantinya oleh TeamDemand, TeamFocus, dan TeamAnalysis dari Borland. Pihak Borland berencana akan memperluas pasar framework ini seperti ke IBM Rational RequisitePro requirements manager, IBM Rational ClearCase change management, Doors Telelogic. Namun framework tidak bisa dipasang bila terdapat toolset Rational atau produk dalam toolset Visual Studio dari Microsoft karena akan bertabrakan. Interface management dari tiga tool management yang baru dapat membuat kesimpulan dari proyek framework ini dengan banyak elemen gambar.

Mengecek Keberadaan File

Untuk mengecek apakah suatu file ada dalam suatu direktori tertentu, Anda dapat menggunakan fungsi yang di sediakan Delphi.
Rumus fungsi:
FileExists(const FileName:string):boolean.
langkah pertama : letakan Button dan Edit di dalam Form
Langkah kedua: isikan program dengan listing program di bawah ini
Procedure Tfrom.Button1Click(Sender:TObject);
begin
if Edit1.Text = ' ' then
ShowMessage('isikankan nama file yang dicari')
else
begin
if FileExits(Edit1.Text) = true then // jika ada
ShowMessage('file " ' +Edit1.Text + ' " ada. ')
else // Jika tidak ada
showMessage('File " ' +Edit1.Text + ' " tidak dtemukan. ');
end;
end;
langakh ketiga : Klik Run
Selamat mecoba

Mengubah Background Toolbar Windows Explorer dgn Gambar Bitmap

Program ini menjelaskan tentang mengubah background toolbar windos Explorer dengan gambar bitmap. Yang dilakukan program ini sangat sederhana, yakni memberikan data value BackBitmapShell pada key HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbat dan nilainya merupakan path file bitmap yang digunakan.
Pada Fom rancang 2 Button dan poperty Dialog dengan mengambil OpenPictureDialog, dan juga EditText

Ini Listing program selengkapnya

Procedure Tform1.Button1Click(Sender:TObject);
begin
if OpenPictureDialog1.Execute then
Edit1.Text:=OpenPicutreDialog1.FileName;
end;

Procedure Tfrom1.Button2Click(Sender:TObject);
var Register:Tregister;
begin
Register:=Tregister.create;
Register.RootKey:=HKEY_CURRENT_USER;
try
try
Register.OpenKey('\Software\Microsoft\Internet Explorer\'+ 'Toolbar',True);
Register.WriteString('BackBitmapShell',Edit1.Text);
ShowMessage('Berhasil mengubah background toolbar'+#13+'Untuk melihat hasilnya,buka'+
' "Windows Explorer" baru.');
Except on ERegistryException do
ShowMessage('Gagal mengubah background toolbar explorer');
end;
Finally
Register.CloseKey;
Register.Free;
end;

Selamat mencoba>>>

Place Your Link here ... Link Exchange

Blog Delphi


Pasang banner/link kami,maka kami akan memasang link anda juga.
Copy kode dibawah ini, kemudian masukkan diblog anda
<br /> <br /><a href="http://hendr13.blogspot.com" target="_blank"><img src="http://code.google.com/p/delphi-nice-toolbar/logo?logo_id=1258716443" alt="Blog Delphi" /><br /></a><br /> <br /><br /> </a><br /><br />
setelah memasang kode itu, tolong isi komentar dibawah ini yang berisi judul dan alamat blog anda :)

Terima kasih...

Aplikasi Pengolahan Data Tamu pada Hotel xxx

Sore semuanya...

Sekarang aku mau berbagi program lagi nc... Emang sc ga terlalu bagus. Tapi lumayan lah buat referensi dalam belajar delphi. Kan kalo belajar itu mesti dari banyak guru biar ilmunya juga banyak...

Program ini udah dalam bentuk program lengkap plus laporannya dibuat pake' quick report jadi bagi temen-temen yang berminat download aj nc program yang ini.

Membuat menu pada form melalui sistem

Halo semua....

Hari ini aku mau buka-bukan lagi ah.. rencananya hari ini aku mau buka2an about Adding Items In SYSTEM Menu.. ( Cieileh....sok inggris ya... )
Jadi materi hari ini kita sama2 belajar cara menambahkan menu items pada form. intinya ini sama aja dengan kita membuat main menu, tapi bedanya kali ini kita ga pake apa2 cm pake listing doang.. jadi bagi yang berminat download aj nc program yang ini.
Trus pelajarin dc, dijamin pasti bisa kok.. Selamat mencoba y...