[RESOLVED] How to Write an encripted Text File???

[FireXtol]

Public Sub Command1_Click()
InitLUT 'this must be called before the cipher sub/function
 
Dim bAry() as Byte
Call FXInCipher(Form1.Text2.Text, bAry)
Open "c:\program files\visual director 2010\program\usernames\" & Form1.Text1.Text & ".pas" For Binary As #1
    Put 1, 1, bAry
Close #1
 
End Sub

Conversely:

Public Sub Command1_Click()
InitLUT 'this must be called before the cipher sub/function
 
Dim bAry() as Byte
Open "c:\program files\visual director 2010\program\usernames\" & Form1.Text1.Text & ".pas" For Binary As #1
    reDim bAry(lof(1)-1)
    Get 1, 1, bAry
Close #1
msgbox FXDeCipher(bAry)
End Sub