Hallo!
Seit neuestem erhalte ich immer bei der Internetseite virustotal.com/gui/home/upload eine Virusmeldung von meinen kompilierten .exe-Dateien!
Ich hab schon etliche Virenscanner durchlaufen lassen, Rootkit-Suche gestartet, VS repariert, Projektplattformen umgestellt..alles ohne Erfolg!
Vielleicht mag mal jemand versuchen den unten angegebenen Code bei sich in eine Konsolenanwendung zu kopieren und zu debuggen und
die im Debug-Ordner enthaltene .exe bei VirusTotal hochzuladen und zu prüfen.
Das ist übrigens ganz unabhängig vom Quellcode, das ist bei eig. jeder kompilierten .exe von mir!
Oder muss ich in VS in den Einstellungen irgendwo was verifizieren, signieren oder wie?!?
Hier mein Quellcode:
Spoiler anzeigen
Seit neuestem erhalte ich immer bei der Internetseite virustotal.com/gui/home/upload eine Virusmeldung von meinen kompilierten .exe-Dateien!
Ich hab schon etliche Virenscanner durchlaufen lassen, Rootkit-Suche gestartet, VS repariert, Projektplattformen umgestellt..alles ohne Erfolg!
Vielleicht mag mal jemand versuchen den unten angegebenen Code bei sich in eine Konsolenanwendung zu kopieren und zu debuggen und
die im Debug-Ordner enthaltene .exe bei VirusTotal hochzuladen und zu prüfen.
Das ist übrigens ganz unabhängig vom Quellcode, das ist bei eig. jeder kompilierten .exe von mir!
Oder muss ich in VS in den Einstellungen irgendwo was verifizieren, signieren oder wie?!?
Hier mein Quellcode:
VB.NET-Quellcode
- Imports System.Console
- Module Module1
- Sub Main()
- 'String-Variable zum entgegennehmen der Benutzereingabe
- Dim sNeueZahl As String
- 'Double-Variable für die konvertierte Benutzereingabe
- Dim dNeueZahl As Double
- 'Liste zum hinterlegen der eingegebenen Zahlen erstellen
- Dim lZahlenliste As New List(Of Double)
- 'Textausgabe auf Konsole
- WriteLine("Bitte geben Sie die Zahlen ein.")
- WriteLine("Bestätigen Sie jeweils mit der Eingabetaste.")
- 'Schleife für die Benutzereingabe
- While True 'Loop while true
- 'Neue Eingabe als String einlesen
- sNeueZahl = ReadLine()
- 'Prüfen ob Eingabe beendet werden soll
- If sNeueZahl = "0" Then
- 'Ergebnisse ausgeben
- 'Anzahl der Zahlen in der Liste ermitteln
- WriteLine("Sie haben {0} Zahlen eingegeben.", lZahlenliste.Count)
- 'Summe der Zahlen in der Liste berechnen
- WriteLine("Die Summe der Zahlen beträgt {0}.", lZahlenliste.Sum())
- 'Mittelwert der Zahlen in der Liste berechnen
- If lZahlenliste.Count > 0 Then
- WriteLine("Der Mittelwert beträgt {0}.", lZahlenliste.Average())
- Else
- WriteLine("Der Mittelwert beträgt 0.")
- End If
- 'Benutzereingabe für Programmende
- WriteLine()
- WriteLine("Möchten Sie noch einmal beginnen? (j/n)")
- 'Wenn noch ein Durchgang gewünscht wird,
- 'Main-Sub ausführen für Neustart
- 'Benutzereingabe prüfen
- If ReadKey(True).Key = ConsoleKey.J Then
- Clear() 'Konsoleneinträge löschen
- Main() 'Main-Sub ausführen
- Else
- End 'Programm beenden
- End If
- End If
- 'Prüfen ob neue Eingabe ein Zahlenwert ist
- If Double.TryParse(sNeueZahl, dNeueZahl) Then
- 'Neuen Zahlenwert der Liste hinzufügen
- lZahlenliste.Add(dNeueZahl)
- Else
- 'Bei ungültiger Eingabe Benutzer informieren
- WriteLine("Ungültigen Zahlenwert eingegeben! Eingabe wird nicht gewertet.")
- End If
- End While
- End Sub
- End Module