Проблема с двоичным доступом к файлам!

[Frame]

При открытии файла двоично в конец файла добавляются 2 символа - с кодом 80 и 00 как с этим справится! Заранее благодарен!

[Frame]

Function Encrypt(infile As String) As Boolean
Dim fileno1 As Integer
Dim fileno2 As Integer
Dim outfile As String
Dim xpos As Long
Dim x As Byte

xpos = 0

outfile = "c:\temp.enc"
fileno1 = FreeFile
Open infile For Binary As fileno1
fileno2 = FreeFile
Open outfile For Binary As fileno2
Do While Not EOF(fileno1)
xpos = xpos + 1
Get #fileno1, xpos, x
Put #fileno2, xpos, x + 128
Loop
Close fileno2
Close fileno1

Kill infile
FileCopy outfile, infile
Kill outfile
Encrypt = True

End Function


Вот функция - инфайл даёт дилоговое окно, путём проб и ошибок я выяснил что лишние байты даёт команда put, собсно это функция шифрования, поэтому +128 стоит, но если его убрать - то всё равно остаётся один символ! Если что писал по книге С.Брауна VB 6 - учебный курс...