Ĺadny brzuch
Witam.
Ostatnio pisałem programik. Po opublikowaniu okazało się, że wykrywa go pełno antywirusów.
Skanowałem go on-line i doszedłem do takiej postaci:
procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin LabeledEdit1.Text:=IntToStr(Random(10000)); end;
Wynik z virustotal.com: 60kilka procent.
Więc czy coś źle używam? Może jest coś co zastąpi random?
a moze pakujesz go jakims upx-em czy innym exe compressorem?
nie...na skan wysyłam taki kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, GIFImage; type TForm1 = class(TForm) LabeledEdit1: TLabeledEdit; SpeedButton1: TSpeedButton; procedure FormCreate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; robic:Bool; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Randomize ; robic:=False; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin LabeledEdit1.Text:=IntToStr(Random(10000)); end; end.
Naprawdę trudno powiedzieć co jest przyczyną. Miałem kiedyś podobną sytuację z tym, że w C++ i Avast wywalał ostrzeżenia o wirusie w programie z samym wywołaniem std::cout -_- Ale potem w niewyjaśnionych okolicznościach przestał. Może jednak masz na komputerze jakiegoś wirusa który podłącza się pod execki. Brzmi to abstrakcyjnie, ale to już jakiś pomysł.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ostatnio pisałem programik. Po opublikowaniu okazało się, że wykrywa go pełno antywirusów.
Skanowałem go on-line i doszedłem do takiej postaci:
procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin LabeledEdit1.Text:=IntToStr(Random(10000)); end;
Wynik z virustotal.com: 60kilka procent.
Więc czy coś źle używam? Może jest coś co zastąpi random?
a moze pakujesz go jakims upx-em czy innym exe compressorem?
nie...na skan wysyłam taki kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, GIFImage; type TForm1 = class(TForm) LabeledEdit1: TLabeledEdit; SpeedButton1: TSpeedButton; procedure FormCreate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; robic:Bool; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Randomize ; robic:=False; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin LabeledEdit1.Text:=IntToStr(Random(10000)); end; end.
Naprawdę trudno powiedzieć co jest przyczyną. Miałem kiedyś podobną sytuację z tym, że w C++ i Avast wywalał ostrzeżenia o wirusie w programie z samym wywołaniem std::cout -_- Ale potem w niewyjaśnionych okolicznościach przestał. Może jednak masz na komputerze jakiegoś wirusa który podłącza się pod execki. Brzmi to abstrakcyjnie, ale to już jakiś pomysł.