Hilfe Virusmeldung bei Delphi XE Trial

[Assarbad]

Zitat:

Zitat von Willie1 (Beitrag 1085098)

1. Ich hatte unter Windows noch nie einen Virus!

Irgendwann ist immer das erste Mal. Abgesehen davon gibt es Malware die sich sehr gut verstecken kann ;)

Zitat:

Zitat von Willie1 (Beitrag 1085098)

2. Ich bin kein Informatiker, nur Hobby.Programmierer, ich hoffe, das stört dich nicht.

Nö, sollte es stören? :zwinker:

Zitat:

Zitat von Willie1 (Beitrag 1085098)

3. Sieh dir die Disskussion zum Thema OFD von mir hier im Forum an.

Mach ich.

Zitat:

Zitat von Willie1 (Beitrag 1085098)

4. Ich habe D-XE von Trocadero heruntergeladen und habe noch 27 Tage.

Embarcadero? Dann dürfen wir davon ausgehen, daß es sauber ankam.

Aber ich frage dann nochmal. Als was erkennt denn Norton die angebliche Malware?

[himitsu]

@Assarbad: der "Delphi"-Virus war nur bedingt Versionsspezifisch.
> Man hatte teilweise Pfade hardcodiert und dann ist es so, daß man auf die System.pas und System.dcu standardmäßig keine Schreibrechte besitzt, weswegen man diese nur schwer verändern kann und es somit auf ältere Versionen beschränkt war/ist.

[Willie1]

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; fFlags: Integer; const DefExt, Filter, InitialDir,
                            Title: string; var FileName: string;
                            out ReadOnly: Boolean; IsOpenDialog: Boolean): Boolean; overload;
var
  ofn: TOpenFileName;
//  szFile: array[0..MAX_PATH] of Char;
  szFileN: PAnsiChar;
//  fi: string;
begin
//  GetMem(szFileN,MAX_PATH);
  Result := False;
  FillChar(ofn, SizeOf(TOpenFileName), 0);
  with ofn do
  begin
    lStructSize := SizeOf(TOpenFileName);
    hwndOwner := ParentHandle;
    lpstrFile := szFileN;
    nMaxFile := SizeOf(szFileN);
    if (Title <> '') then begin
      lpstrTitle := PAnsiChar(AnsiString(Title));
    end;
    flags := fFlags;
    if (InitialDir <> '') then
      lpstrInitialDir := PAnsiChar(AnsiString(InitialDir));
//    StrPCopy(lpstrFile, FileName);
//    lpstrFile
//    fi := PAnsiChar(FileName);
//    lpstrFilter :='Alle|*.*'#0#0;
    lpstrFilter := PAnsiChar(AnsiString(CharReplace(Filter, '|', #0) + #0#0));
    if DefExt <> '' then
      lpstrDefExt := PAnsiChar(DefExt);
    lpfnHook :=  nil;
  end;
  if IsOpenDialog then
  begin
    if GetOpenFileName(ofn) then
    begin
      Result := True;
      ReadOnly := ofn.Flags and OFN_READONLY = OFN_READONLY;
      FileName := string(AnsiString(szFileN));
    end;
  end
  else
  begin
    if GetSaveFileName(ofn) then
    begin
      Result := True;
      FileName := string(AnsiString(szFileN));
    end;
  end
end;

Hiermit war ich beschäftigt. Ich will keinen Gutenberg machen Orginalquelle: Aus der Tippsammlung SwissDelphi Center Mit D-2005/6 unter Vista lief es prima, für D-XE muss es angepasst werden, und da war ich dran, als Norton zuschlug. Was soll ich machen?

Der Virenwächter "Sonar" von Norton meldet "Das Programm xy verhält sich verdächtig und wird geblockt." Genauere Erklärungen keine.


Willie.

[himitsu]

szFileN > kein Speicher reserviert

Delphi-Quellcode:

nMaxFile := SizeOf(szFileN);

> szFileN ist ein Pointer, also stimmt die Länge nicht, abgrsehn davon daß nMaxFile in Chars und nicht in Bytes angegeben werden muß.

Warum müssen denn ständig welche Ansi, Unicode und Dynamisch vermischen?

PAnsiChar/AnsiString/TOpenFileNameA
oder
PWideChar/WideString/UnicodeString/TOpenFileNameW
oder
PChar/String/TOpenFileName

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; fFlags: Integer; const DefExt, Filter, InitialDir,
                            Title: string; var FileName: string;
                            out ReadOnly: Boolean; IsOpenDialog: Boolean): Boolean; overload;
var
  ofn: TOpenFileName;
  szFileN: array[1..MAX_PATH] of Char;
begin
  //Move(szFileN, PChar(FileName)^, (Length(FileName) + 1) * SizeOf(Char));
  FillChar(szFileN, SizeOf(szFileN), 0);
  FillChar(ofn, SizeOf(ofn), 0);
  with ofn do
  begin
    lStructSize := SizeOf(ofn);
    hwndOwner := ParentHandle;
    lpstrFile := @szFileN;
    nMaxFile := Length(szFileN);
    if Title <> '' then
      lpstrTitle := PChar(Title);
    flags := fFlags;
    if InitialDir <> '' then
      lpstrInitialDir := PChar(InitialDir);
    lpstrFilter := PChar(CharReplace(Filter, '|', #0) + #0#0);
    if DefExt <> '' then
      lpstrDefExt := PChar(DefExt);
    lpfnHook := nil;
  end;
  //if IsOpenDialog then
  //begin
  //  if GetOpenFileName(ofn) then
  //  begin
  //    Result := True;
  //    ReadOnly := ofn.Flags and OFN_READONLY = OFN_READONLY;
  //    FileName := szFileN;
  //  end;
  //end
  //else
  //begin
  //  if GetSaveFileName(ofn) then
  //  begin
  //    Result := True;
  //    FileName := szFileN;
  //  end;
  //end;
  Result := (IsOpenDialog and GetOpenFileName(ofn)) 
     or (not IsOpenDialog and GetSaveFileName(ofn));
  if Result then
  begin
    ReadOnly := ofn.Flags and OFN_READONLY = OFN_READONLY;
    FileName := szFileN;
  end;
end;

[Willie1]

Danke,
aber was verursacht das Verhalten von Norton?
Gibt es wirklich einen Virus oder oder verhält sich mein Programm "verdächtig"?

W.

[Assarbad]

Zitat:

Zitat von himitsu (Beitrag 1085126)

und dann ist es so, daß man auf die System.pas und System.dcu standardmäßig keine Schreibrechte besitzt, weswegen man diese nur schwer verändern kann und es somit auf ältere Versionen beschränkt war/ist.

Dies träfe aber nur bei Systemen oberhalb von Windows XP zu und auch nur wenn man nicht als Admin arbeitet. Und in Vista und 7 könnte einem die Virtualisierungsfunktion noch eine reinrasseln. Dann ist zwar nur das eigene Konto infiziert, aber schlimm genug.

Zitat:

Zitat von Willie1 (Beitrag 1085170)

aber was verursacht das Verhalten von Norton?

Läßt sich anhand der Meldung nicht eindeutig identifizieren.

Zitat:

Zitat von Willie1 (Beitrag 1085170)

Gibt es wirklich einen Virus oder oder verhält sich mein Programm "verdächtig"?

Schick die Datei an Symantec und schreibe, daß du denkst es handele sich um einen Fehlalarm (false positive).

[plusplus]

now a days all anit-virus vendors went paranoid and bizarre, there are many FALSE positives and any delphi version reports on some machines a virus and on some not. I have been sending out over 30 mails to anti-virus vendors addressing this FALSE positive issue but had no success.

I think this is a planned attack on Delphi OR Embarcadero has somewhere in the exe generation/optimization an algorithm that needs to be fixed.

I am advising all my customers who get FALSE positives that it is a FALSE positive and that they should send an email to the Anti-Virus Vendor complaining about it.

I have also noticed that sometimes when you change the Application Icon the FALSE positive goes away, have no idea why.

[Assarbad]

Zitat:

Zitat von plusplus (Beitrag 1085187)

now a days all anit-virus vendors went paranoid and bizarre, there are many FALSE positives and any delphi version reports on some machines a virus and on some not. I have been sending out over 30 mails to anti-virus vendors addressing this FALSE positive issue but had no success.

If you have more details, they'll all be welcome here. If you don't want it to get lost in the heaps of mails the folks in our viruslab get, send to free-olli att f-prot dott com.

Are you experiencing it in Delphi 2009 as well? I have that one here in the company, so I could run some tests if needed.

Zitat:

Zitat von plusplus (Beitrag 1085187)

I think this is a planned attack on Delphi OR Embarcadero has somewhere in the exe generation/optimization an algorithm that needs to be fixed.

Planned by ...?

Zitat:

Zitat von plusplus (Beitrag 1085187)

I have also noticed that sometimes when you change the Application Icon the FALSE positive goes away, have no idea why.

Suggests that some heuristics went haywire.

[Willie1]

Hello plusplus,

you are right, if I change the Program Icon, the program runs without protest of the Norton Virus-Guard.
I's very mysterious. is't it?

Das Problem versaut mir auch den Testzeitraum, da könnte man schon an Absicht denken.

Willie.

[mquadrat]

Naja Norton hat ja nun nichts mit den Testzeiträumen von Emba zu tun ;) Das ist doch dann ein bisschen zu viel Verschwörungstheorie ;)