| Цитата |
В алгоритме, предусмотренного американским национальным стандартом NAVSO P-5239-26 для MFM-кодируемых устройств в первом цикле записывается #01, во втором — #7FFFFFF, в третьем — последовательность псевдослучайных чисел
|
| Код |
Dim filetodel As String = path
Dim fs As FileStream
Dim rnd As New Random(Byte.MaxValue)
'Проход 1
fs = New FileStream(filetodel, FileMode.Open)
For i As Integer = 0 To fs.Length - 1
fs.WriteByte(CByte(CByte(1))
Next
fs.Close()
'Проход 2
'Проход 3
fs = New FileStream(filetodel, FileMode.Open)
For i As Integer = 0 To fs.Length - 1
fs.WriteByte(CByte(rnd.[Next]()))
Next
fs.Close()
|
Помогите записать во втором проходе -> #7FFFFFF |