Kann mir jemand bitte einen tipp geben, komme überhaupt nicht mehr weiter...funktioniert zwar alles aber,scheint mir etwas durcheinander,
das hier kann man doch bestimmt auch vereinfachen oder?

stub :

Code:
Open sPath For Binary As #1
        Seek #1, LOF(1) - 9: Get #1, , sSize
        Seek #1, LOF(1) - 9 - sSize
        bd = Space(sSize)
        Get #1, , bd
und hier im client :

Code:
Open App.Path & "\Output.exe" For Binary As #4
Put #4, , b
Put #4, , c.EncryptString(t)
sSize = Len(t)
Put #4, , sSize
Put #4, , 27
Close #4
bei beiden :
Code:
Dim sSize   As String * 8
und könnte mann hier die variable sSize weglassen ohne spliten zu müssen?
aber vorerst würde auch nur eine kleiner korrekturtipp reichen.
Vielen Dank schonmal