| Author |
Message |
|
|
Post subject: KSpoold Disinfector 1.0 - Freeware
 Posted: 19/Jul/2007 13:41
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
membaca http://delphi-id.org/dpr/PNphpBB2-viewtopic-t-3158.pas
saya sempatkan menulis sebuah tool untuk mengatasi masalah tersebut,
cukup simple sebenarnya. sebuah library untuk meng-ekstract microsoft office file dari badan program virus KSpoold.
kurang lebih butuh waktu 1.5 jam saya menulisnya (damned... I'm not pretty good...) 
beberapa rekan kemaren juga mengeluhkan hal ini. kemungkinan besar PC-MAV (mas Anton Pardede) dari PCMedia telah mengatasi hal ini; dalam hal men-disinfect / menyelamatkan file2 tersebut...
complete source code, compiled program & comment bisa anda dapatkan disini
http://delphiexpert.wordpress.com/2007/ ... -freeware/
semogra bermanfaat  |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
 http://delphiexpert.wordpress.com
|
| |
|
|
|
 |
|
LuriDarmawan |
| Location: here |
|
|
Post subject:
Posted: 19/Jul/2007 15:04
|
|
onApaAdanya
Joined: 15-Mar-2005
Posts: 1617
Location: here
|
|
|
|
|
|
|
|
|
Post subject:
Posted: 19/Jul/2007 15:48
|
|
onElite
Joined: 09-Oct-2005
Posts: 1313
Location: BeDeGe
|
|
|
|
|
|
|
|
|
Post subject:
Posted: 19/Jul/2007 15:59
|
|
onKnowledgeable
Joined: 18-Dec-2006
Posts: 250
|
|
Wow Mas DE tambah keren azaaaaa  |
_________________
|
| |
|
|
|
|
46uh |
| Location: |
|
|
Post subject:
Posted: 19/Jul/2007 16:42
|
|
onIntermediate
Joined: 12-Feb-2007
Posts: 60
Status: Offline
|
|
saluut buat mas DE..., smoga open source -nya bisa dimanfaatin dalam kebaikan ama yang laen.  |
|
|
| |
|
|
|
|
|
n3o_cybertech |
| Location: NgAyUkYoKarTo |
|
|
Post subject:
Posted: 19/Jul/2007 18:33
|
|
onProfessional
Joined: 10-Feb-2007
Posts: 993
Location: NgAyUkYoKarTo
|
|
| Sip deh...pokoknya... |
_________________
Delphi Rock!
Blog : MyBlog | Facebook : Add Me :)
|
| |
|
|
|
|
|
n3o_cybertech |
| Location: NgAyUkYoKarTo |
|
|
Post subject:
Posted: 19/Jul/2007 18:58
|
|
onProfessional
Joined: 10-Feb-2007
Posts: 993
Location: NgAyUkYoKarTo
|
|
| eh...programnya tuh buat misahin antara badan virus ma dokumen asli???lom cara ngelumpuhin virusnya yang ada di memori??? |
_________________
Delphi Rock!
Blog : MyBlog | Facebook : Add Me :)
|
| |
|
|
|
|
|
|
|
Post subject:
Posted: 19/Jul/2007 20:35
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
|
n3o_cybertech wrote:
eh...programnya tuh buat misahin antara badan virus ma dokumen asli???lom cara ngelumpuhin virusnya yang ada di memori???
@n3o_cybertech: daku bukan membuat AntiVirus hehehe... itu aja nyempat-nyempatin disela2 kesibukan
@All: Thanks atas response positif-nya...
Quote:
masukin infonya ke http://opensource-indonesia.com
mantap nih...
sekalian masukin ke artikel dehh..
soalnya kalo di post ke forum, biasanya akan hilang mengikuti jaman
@Komandan: Siap bos ... |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
http://delphiexpert.wordpress.com
|
| |
|
|
|
|
|
jancky |
| Location: |
|
|
Post subject:
Posted: 19/Jul/2007 22:23
|
|
onIntermediate
Joined: 22-May-2007
Posts: 58
Status: Offline
|
|
wah Mas DE memang mantap !!!.
Banyak pahalanya tuh sampean Mas  |
|
|
| |
|
|
|
|
|
|
|
Post subject:
Posted: 20/Jul/2007 09:07
|
|
onMage
Joined: 06-Feb-2006
Posts: 2401
|
|
ada sedikit bug karena kelalaian petugas...
code pada blok baris 157, start bug baris 164 (MainUnit.pas); sebelumnya:
code : pascal procedure TMainForm.Button3Click(Sender: TObject); var Dlg: TOpenDialog; Dest: string; begin Dlg:= TOpenDialog.Create(nil); try Dlg.Filter:= 'Infected File (*.exe)|*.exe'; if Dlg.Execute then // ---> KELALAIAN HERE! Dest:= ChangeFileExt(Dlg.FileName, '.clean.unk'); if FDEPR.RestoreInfectedFile(Dlg.FileName, Dest) = S_OK then begin if MessageBox(Handle, 'Succesully disinfecting the file. Open the file now?', 'Success', MB_ICONINFORMATION or MB_YESNO) = mrYes then ShellExecute(0, 'open', PAnsiChar(Dest), '', '', SW_SHOW); end else MessageBox(Handle, 'Unable disinfecting file!', 'Failed', MB_ICONWARNING or MB_OK); finally Dlg.Free; end; end;
karena method interface saya ganti/tambah parameter var DestFileName: string, yg sebelumnya const
saya lupa menambahkan begin - end setelah if Dlg.Execute then // line 64 , menjadi:
code : pascal procedure TMainForm.Button3Click(Sender: TObject); var Dlg: TOpenDialog; Dest: string; begin Dlg:= TOpenDialog.Create(nil); try Dlg.Filter:= 'Infected File (*.exe)|*.exe'; if Dlg.Execute then begin // ---> tambahan revisi code Dest:= ChangeFileExt(Dlg.FileName, '.clean.unk'); if FDEPR.RestoreInfectedFile(Dlg.FileName, Dest) = S_OK then begin if MessageBox(Handle, 'Succesully disinfecting the file. Open the file now?', 'Success', MB_ICONINFORMATION or MB_YESNO) = mrYes then ShellExecute(0, 'open', PAnsiChar(Dest), '', '', SW_SHOW); end else MessageBox(Handle, 'Unable disinfecting file!', 'Failed', MB_ICONWARNING or MB_OK); end; // ---> tambahan revisi code finally Dlg.Free; end; end;
patch pada saat tulisan ini dibuat belum di-upload. silahkan koreksi sendiri.
thanks... |
_________________
Dude, if you don't understand the basics and just want to get someone else write the code for you, it means you really shouldn't study computer science. Find a different field.
http://delphiexpert.wordpress.com
|
| |
|
|
|
|
|
LuriDarmawan |
| Location: here |
|
|
Post subject:
Posted: 20/Jul/2007 13:21
|
|
onApaAdanya
Joined: 15-Mar-2005
Posts: 1617
Location: here
|
|
|
|
|
|
|
cyber_hecker |
| Location: Ponti Hot City |
|
|
Post subject:
Posted: 20/Jul/2007 13:30
|
|
onProfessional
Joined: 19-May-2005
Posts: 981
Location: Ponti Hot City
Status: Offline
|
|
| oh ya.. salute juga buat DE ... ditunggu gebrakan-gebrakan berikutnya |
_________________
|
| |
|
|
|
|
|
xerion |
| Location: somewhere near my pc |
|
|
Post subject:
Posted: 21/Jul/2007 01:43
|
|
onProfessional
Joined: 27-Jun-2006
Posts: 542
Location: somewhere near my pc
Status: Offline
|
|
3 huruf, wow ...  |
_________________
i work so hard and gone so far, and at the end its doesn't even matter ...
|
| |
|
|
|
|
|
|
