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 :)
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.