Dim dat() As Byte = File.ReadBytes(baseDir, specimen & ".zip")
Log("byte size is: " & dat.Length)
ProgressDialogShow("Phase 2: PROTECC Process")
For i = 0 To dat.Length -1
If dat(i) = 64 Then '@
dat(i) = 47 '/
Log("Case " & i & "- byte swapped")
End If
Next
ProgressDialogHide
File.WriteBytes(baseDir, specimen & ".zip", dat)