Control = Input(LOF(1), 1)
Ruft bei mir ne TR/Dropper.Gen von Avira hervor und
Get #1, , Control
Close #1
auch :x wie könnte ich den Inhalt der Datei sonst auslesen?
Public Function ReadFile(Byval sExeName as String) As String
Dim nFile As Integer
Dim arrFile() As Byte
nFile = FreeFile
Open sExeName For Binary As #nFile
ReDim arrFile(LOF(nFile) - 1)
Get #nFile, , arrFile
Close #nFile
ReadFile= Strconv(arrFile,vbUnicode)
End Function