Visual Basic Forum

PHREAKER_ · Newbie Anmeldedatum: 22.01.2007 Beiträge: 16

Wenn ich den code benutze um das programm in den autostart Ordner zu Kopieren schlägt das Antivir Prpgramm Alarm ^^

[code]Private Sub Form_Load()
Dim strOldFile As String
Dim strNewFile As String
strOldFile = (App.Path & "\lol.exe")
strNewFile = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Delphi.exe"
FileCopy strOldFile, strNewFile
End Sub[/code]

Gibt es eine Möglichkeit dies zu umgehen ?
Thx im vorraus
_________________

Viktor · Verfasst am: 23.05.2007, 17:27

Änder die Variablen

PHREAKER_ · Newbie Anmeldedatum: 22.01.2007 Beiträge: 16

^^ und was heißt das xD bin neu bei VB

Viktor · Verfasst am: 23.05.2007, 17:39

Benutz den code ...

[code]
Private Sub Form_Load()
Dim IchBin As String
Dim EinNoob As String
IchBin = (App.Path & "\lol.exe")
EinNoob = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Delphi.exe"
FileCopy IchBin , EinNoob
End Sub
[/code]

TheCoder_ · Verfasst am: 23.05.2007, 17:41

looool der is gut ^^
_________________

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Kanns sein das die lol.exe detected ist und nich die Variablen? xD Kann ich mir naemlich eher erklaeren ^^
_________________

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

Viktor · Verfasst am: 23.05.2007, 18:55

Also wenn nur der Code drin ist liegts an den Variablen xDD

treY.de_ · Verfasst am: 23.05.2007, 19:36

1. Welches Antivirenprogramm benutzt du?

2. Was für ne Meldung zeigt es an?

Das wäre noch hilfreich, da einiege Antivirenprogramme was finden wenn sich eine Anwendung in den Autostart kopiert..
_________________

PHREAKER_ · Newbie Anmeldedatum: 22.01.2007 Beiträge: 16

Habe nur den einen Code drin!
Benutze Kaspersky.
Es wird als Trojan.generic erkannt.

TheCoder_ · Verfasst am: 23.05.2007, 19:42

oO
mein rat: lass es einfach
_________________

treY.de_ · Verfasst am: 23.05.2007, 19:55

Also Kaspersky kennt den Vorgang es kopieren in den Autostart nur im zusammenhang mit einem Trojanischen Pferd...Es liegt nämlich nicht am Code..sondern an der Sache an sich..Da aber bis auf Kaspersky nur weniege AV's damit PRobleme mache kannst du das eg als egal sehen..Außerdem wäre die Lösung über die Registery besser und Kaspersky stresst da nicht
_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Liegt wahrscheinlich an der Filecopy funktion und das es eine exe Datei ist.
Außerdem das es der Autostart Ordner ist

Probiers mal hiermit.

[code]
Private Sub Form_Load()
Dim strOldFile As String
Dim strNewFile As String
strOldFile = (App.Path & "\lol.exe")
strNewFile = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Delphi.exe"

Dim buffer as string
Open strOldFile for Binary as #1
Open strNewFile for Binary as #2

buffer = Space(LOF(1))
Get #1, , buffer
Put #2, , buffer

close
End Sub
[/code]
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

treY.de_ · Verfasst am: 23.05.2007, 20:38

Jo es liegt am Filecopy befehl..

Ich habs gerade mal getestet und es geht Wink

_________________

Viktor · Verfasst am: 24.05.2007, 05:14

Also mein kaspersky meckert nicht an der Filecopy Funktion >.<

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Wie gesagt werden da mehrere Faktoren zusammenspielen, wie das Kopieren, die Dateiart und das Ziel wohin es erstellt wird.

Das selbe wird passieren wenn man etwas in die Ordner System bzw. System32 oder Windows kopiert. Da geben auch die meisten AV's eine Warnung aus.

Ob das was mit der eingestellten Sicherheitsstufe oder Heuristik zu tun hat weiß ich nicht.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

treY.de_ · Verfasst am: 24.05.2007, 13:18

Also bei Kaspersky ist bei einer mittleren Sicherheitsstufe die Warnung aktiv..

Die meisten AV's die kostenlos haben so ne Warnung nich..
Also eg. nur kostenpflichtiege Premium Versionen

Aber ich empfehle immernoch den Registery weg
_________________