virüs tarama

[Lord_Ares]

merhaba
bitdefender gibi online virüs taramsı yapan bir siteyi kullanarak kendi programımda virüs traması nasıl yaparım.
fikri olan varmı.

teşekkürler

[mkysoft]

Adresinin hatırlayamadım ama web üzerinden çalışan bir site vardı. Dosyayı upload ediyorsunuz o size temiz olup olmadığını söylüyor, bu şekilde olabilir belki.

[maqro]

http://www.kaspersky.com/scanforvirus buradan tarama yapabiliyorsun.

mantık olarakta şöyle bir fikir verebilirim. forma bir bowser koyup dosya yolunu sayfadaki edit içine post edip submit butonuna tıklama yapabilirsin.

karşılık gelen sayfanın kaynağından istatistik bölümünü alıp forma yazdırabilirsin.

[binarykod]

Adresinin hatırlayamadım ama web üzerinden çalışan bir site vardı. Dosyayı upload ediyorsunuz o size temiz olup olmadığını söylüyor, bu şekilde olabilir belki.

www.virustotal.com

[ikutluay]

direkt bir çözüm değil ama alternatif önerisidir.

clam av engine için kendiniz bir gui yazarak direkt kodunuzdan virüs temizlemekte mümkündür. ancak virüs db güncelemme vs işlerede dikkat etmek şartıyla. Clam av güzel bir enginedir. sitesinde gördüğüm kadarıyla süperonline bunu kullanıyor (1 milyondan fazla mail box için)

[mkysoft]

ClamAV sadece tespit amacıyla çalışır, temizleme özelliği yoktur. Virüslü dosyaları direk siler. Dikkat etmenizde fayda var.

[Lord_Ares]

arkadaşlar bitdefender sitesinideki online scan olayını kendi programımda kullanmak istiyordum. Bunu yapmak için iki fikrim vardı.
1.ilgili sayfayı açık sayfadaki buttonlara onclik göndermek. Fakat bu işe yaramadı çünkü karşıdan bir dosya yüklemesi yapmak gerektiğinde kontrol windowsa geçiyor ve benim programım kontrol dışı kalıyordu. (yada ben yapamamış olabilirim )
2. bitdefender online scan kısmını eğer bir kez kulanmışsanız. bilgisyarınıza bazı activex dosyaları yüklenmiş oluyor. bunları kullanarak yapabilirmiyim diye baktım.

windowsa yüklenen activex dosyasını delphiye import activex diyerek yükledim. BDSCANONLINE_TLB dosyasını oluşturdu. bunu nasıl kullanabilirm yardım edebilirmisiniz.
teşekkürler.

BDSCANONLINE_TLB dosyasının içeri şöyle ;


unit BDSCANONLINELib_TLB;

// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 02.11.2008 16:23:43 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:\WINDOWS\Downloaded Program Files\oscan82.ocx (1)
// LIBID: {72193DC5-A901-4929-A0A9-2952E1162811}
// LCID: 0
// Helpfile: C:\WINDOWS\Downloaded Program Files\BDSCANONLINE.hlp
// HelpString: BDSCANONLINE ActiveX Control module
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;



// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
BDSCANONLINELibMajorVersion = 1;
BDSCANONLINELibMinorVersion = 0;

LIBID_BDSCANONLINELib: TGUID = '{72193DC5-A901-4929-A0A9-2952E1162811}';

DIID__DBDSCANONLINE: TGUID = '{73095923-0129-4F2E-9B97-C76BC678B4ED}';
DIID__DBDSCANONLINEEvents: TGUID = '{BC583EE7-EDBD-4071-9216-E8CBD4D16A1B}';
CLASS_BDSCANONLINE: TGUID = '{5D86DDB5-BDF9-441B-9E9E-D4730F4EE499}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_DBDSCANONLINE = dispinterface;
_DBDSCANONLINEEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
BDSCANONLINE = _DBDSCANONLINE;


// *********************************************************************//
// DispIntf: _DBDSCANONLINE
// Flags: (4096) Dispatchable
// GUID: {73095923-0129-4F2E-9B97-C76BC678B4ED}
// *********************************************************************//
_DBDSCANONLINE = dispinterface
['{73095923-0129-4F2E-9B97-C76BC678B4ED}']
function InitX(const bstrLocation: WideString): WordBool; dispid 4;
procedure SetScanTarget(bEntireComputer: WordBool); dispid 1;
function StartX: WordBool; dispid 2;
function SetScanOptions: WordBool; dispid 3;
property plugins: WideString dispid 6;
property product: WideString dispid 5;
end;

// *********************************************************************//
// DispIntf: _DBDSCANONLINEEvents
// Flags: (4096) Dispatchable
// GUID: {BC583EE7-EDBD-4071-9216-E8CBD4D16A1B}
// *********************************************************************//
_DBDSCANONLINEEvents = dispinterface
['{BC583EE7-EDBD-4071-9216-E8CBD4D16A1B}']
end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TBDSCANONLINE
// Help String : BDSCANONLINE Control
// Default Interface: _DBDSCANONLINE
// Def. Intf. DISP? : Yes
// Event Interface: _DBDSCANONLINEEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TBDSCANONLINE = class(TOleControl)
private
FIntf: _DBDSCANONLINE;
function GetControlInterface: _DBDSCANONLINE;
protected
procedure CreateControl;
procedure InitControlData; override;
public
function InitX(const bstrLocation: WideString): WordBool;
procedure SetScanTarget(bEntireComputer: WordBool);
function StartX: WordBool;
function SetScanOptions: WordBool;
property ControlInterface: _DBDSCANONLINE read GetControlInterface;
property DefaultInterface: _DBDSCANONLINE read GetControlInterface;
published
property Anchors;
property plugins: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
property product: WideString index 5 read GetWideStringProp write SetWideStringProp stored False;
end;

procedure Register;

resourcestring
dtlServerPage = 'Standard';

dtlOcxPage = 'Standard';

implementation

uses ComObj;

procedure TBDSCANONLINE.InitControlData;
const
CControlData: TControlData2 = (
ClassID: '{5D86DDB5-BDF9-441B-9E9E-D4730F4EE499}';
EventIID: '';
EventCount: 0;
EventDispIDs: nil;
LicenseKey: nil (*HR:$80004005*);
Flags: $00000000;
Version: 401);
begin
ControlData := @CControlData;
end;

procedure TBDSCANONLINE.CreateControl;

procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as _DBDSCANONLINE;
end;

begin
if FIntf = nil then DoCreate;
end;

function TBDSCANONLINE.GetControlInterface: _DBDSCANONLINE;
begin
CreateControl;
Result := FIntf;
end;

function TBDSCANONLINE.InitX(const bstrLocation: WideString): WordBool;
begin
Result := DefaultInterface.InitX(bstrLocation);
end;

procedure TBDSCANONLINE.SetScanTarget(bEntireComputer: WordBool);
begin
DefaultInterface.SetScanTarget(bEntireComputer);
end;

function TBDSCANONLINE.StartX: WordBool;
begin
Result := DefaultInterface.StartX;
end;

function TBDSCANONLINE.SetScanOptions: WordBool;
begin
Result := DefaultInterface.SetScanOptions;
end;

procedure Register;
begin
RegisterComponents(dtlOcxPage, [TBDSCANONLINE]);
end;

end.

[Lord_Ares]

anlaşılan kimsenin fikri yok