I am stuck with the piece of code to convert in to vb .net kindly help me in this regard.I am providing the VB 6.0 code .Please help me in converting.
Sub FileEncodeAndDecode(InputFile, outputfile)
Dim temp As Single
Dim Char As String * 1
Dim XORMask As Single
Dim temp1 As Integer
' Set fso = CreateObject("Scripting.FileSystemObject")
Open InputFile For Binary As #1
Open outputfile For Binary As #2
Dim a, Z
a = FileLen(InputFile)
For Z = 1 To FileLen(InputFile)
XORMask = Int(Rnd(-10) * 256)
Get 1, , Char
Char = VBA.Chr$((Asc(Char) Xor XORMask))
Put 2, , Char
Next Z
Close #1
Close #2
End Sub
#######Code###########
Thanks & Regards,
Sampath