Public b_leido As Byte, b_decode As Byte, archivo_fuente As String, libre As Integer
Private Sub CommandButton1_Click()
archivo_fuente = TextBox1.Text
Call decodif
End Sub
Private Sub decodif(archivo_fuente, libre)
Open archivo_fuente For Binary As libre
Do While Not EOF(1)
Get libre, , b_leido
b_decode = b_leido Xor 1
Put libre, , b_decode
Loop
MsgBox "Codificacion/Decodificacion completada", vbInformation, "Operacion finalizada"
Close libre
End Sub
Private Sub UserForm_Initialize()
libre = FreeFile
End Sub
|
|
