Results 1 to 5 of 5

Thread: TR/ATRAPS.Gen Trojan

  1. #1

    TR/ATRAPS.Gen Trojan

    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


  2. #2

    Re: TR/ATRAPS.Gen Trojan

    Quote Originally Posted by virtual
    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

  3. #3

    Re: TR/ATRAPS.Gen Trojan

    I heard about this before. I had to look it up but this and this 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.

  4. #4

    Re: TR/ATRAPS.Gen Trojan

    @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

    Code:
    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
    Code:
    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;

  5. #5

    Re: TR/ATRAPS.Gen Trojan

    False positive. Report it to Avira, uninstall your virus scanner and switch to FreePascal
    Peregrinus, expectavi pedes meos in cymbalis
    Nullus norvegicorum sole urinat

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •