PDA

View Full Version : TR/ATRAPS.Gen Trojan



virtual
28-07-2010, 10:40 AM
hi

Avira concidered that some of my programs (built with D7) are tojans , i know this is not true

but this is really annoying , some times i think to leave delphi Env

paul_nicholls
28-07-2010, 11:52 AM
hi

Avira concidered that some of my programs (built with D7) are tojans , i know this is not true

but this is really annoying , some times i think to leave delphi Env




LOL! Just get a better anti-virus program (I've never had any issues with Avast!)

cheers,
Paul

Traveler
28-07-2010, 08:43 PM
I heard about this before. I had to look it up but this (http://blog.eurekalog.com/check-your-delphis-installation-it-may-be-infected/) and this (http://delphi.about.com/od/humorandfun/f/w32-induc-a-delphi-virus.htm) talk about a virus that replaces SysConst.pas. Since your scanner comes up with a different name, it might not be related. Still, it may be worth checking out if that file has changed on your system.

virtual
29-07-2010, 12:00 PM
@Traveler , i know this virus , when delphi is infected by this virus then whenever u compile you will get a virus called Win32.Induc.a or something .

but my problem is caused by delphi compiler it self .

for example if i include this function , i'll get TR/ATRAPS.Gen Trojan



function init(a_hwnd:HWND):boolean;
var Pfd: TPixelFormatDescriptor;
iFormat: Integer;

begin
Result := false;
ZeroMemory(@Pfd, SizeOf(TPixelFormatDescriptor));
Dc := GetDc(a_hwnd);
Pfd.nSize := SizeOf( TPixelFormatDescriptor );
Pfd.nVersion := 1;
Pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
Pfd.iPixelType := PFD_TYPE_RGBA;
Pfd.cColorBits := 32;
Pfd.cDepthBits := 32;
Pfd.iLayerType := PFD_MAIN_PLANE;
iFormat := ChoosePixelFormat(Dc, @Pfd);

if not SetPixelFormat(Dc, iFormat, @Pfd) then
begin
Result:=False;
Exit;
end;
_glContext := wglCreateContext(Dc);
wglMakeCurrent(Dc, _glContext);

glClearColor(0.0, 0.0, 0.0, 0.0);
glShadeModel(GL_SMOOTH);
glClearDepth(1);
glEnable(GL_DEPTH_TEST);
glDepthFunc(GL_LEQUAL);
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);


Result:=True;
end;




but with this one , nothing wil happen


procedure Init();

var
PixelFormat: GLuint;
pfd : TPIXELFORMATDESCRIPTOR;
begin

ZeroMemory(@Pfd, SizeOf(TPixelFormatDescriptor));
g_hDC := GetDC( g_hWnd );
Pfd.nSize := SizeOf( TPixelFormatDescriptor );
Pfd.nVersion := 1;
Pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
Pfd.iPixelType := PFD_TYPE_RGBA;
Pfd.cColorBits := 32;
Pfd.cDepthBits := 32;
Pfd.iLayerType := PFD_MAIN_PLANE;

PixelFormat := ChoosePixelFormat( g_hDC, @pfd );
SetPixelFormat( g_hDC, PixelFormat, @pfd);
g_hRC := wglCreateContext( g_hDC );
wglMakeCurrent( g_hDC, g_hRC );


glClearColor( 0.0, 0.0, 0.0, 1.0 );
glEnable( GL_TEXTURE_2D );
glEnable( GL_DEPTH_TEST );

glMatrixMode( GL_PROJECTION );
glLoadIdentity();
gluPerspective( 45.0, 640.0 / 480.0, 0.1, 100.0);


end;

JSoftware
29-07-2010, 12:37 PM
False positive. Report it to Avira, uninstall your virus scanner and switch to FreePascal :)