split or not split ?

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

ich empfehle dir nicht mit einem crypter anzufangen also net mim cryptosy sondern mit einem der vom aufbau etwas leichter is ^^ weil wenn du es verstehst findest du später den hier auch net verwirrend =)