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