Xor части файла

← →
KLAUS_ (2007-08-05 22:14) [40]

{RASkov} ВОТ!!
СПАСИБО ДРУГ, реально помог!!

MetalFan
ТОЖЕ ПРИКОЛЬНО!!

ВСЕМ СПАСИБО!!!

← →
{RASkov} © (2007-08-05 22:15) [41]

> а можно fs.Seek(-1, soFromCurrent);

Можно.... разрешаю :)
Там еще много чего можно, делайте что хотите :о)

← →
{RASkov} © (2007-08-05 22:19) [42]

> [40] KLAUS_ (05.08.07 22:14)
> {RASkov} ВОТ!!
> СПАСИБО ДРУГ,

А сам бы до этого не додумался бы? Даже если перечитать пару раз ветку....?

реально помог!!
Я рад.... думал не получится уже :)

← →
KLAUS_ (2007-08-05 22:25) [43]

Реально я сделал, уже так
var b: array[1..5]of byte; BEGIN form1.ListBox1.items.Add(path+srec.name); fs := TFileStream.Create(path+srec.name,fmOpenReadWrite); fs.Seek($00000000,soFromBeginning); fs.Read(b,sizeof(b)); for i:=1 to sizeof(b) do b[i]:=b[i] xor 1; fs.Seek($000000000,soFromBeginning); fs.Write(b,sizeof(b)); fs.Free;
Но твой вариант по удачней оказался!!

← →
KLAUS_ (2007-08-05 22:26) [44]

Хотя смысл почти тот же.........
СПАСИБО ЗА ПОМОЩЬ!!!
Без тебя бы не получилось............

> {RASkov} (05.08.2007 22:19:42) [42]

Так и не получилось, ты просто дал готовый код, остальное насмарку.

> [45] Anatoly Podgoretsky © (05.08.07 22:41)
> Так и не получилось, ты просто дал готовый код, остальное насмарку

:)
Не думаю, что все именно так.... судя по [43] - чел что-то делал, и если не мой код, то и остался бы при своем мнении, т.е. использовать код из [43]
Ведь он тоже рабочий... хоть и не так интуитивно понятный(по крайней мере мне), но рабочий.... А так ему есть что с чем сравнить и сделать выводы....
Впрочем я и в самом деле не ожидал, что именно это ему и надо, так как он толком не мог объяснить, что ему вообще нужно, оказалось - угадал.
Я не против давать код, лишь бы код пошел на пользу другим, не обязательно авторам ветки....
А учением с нуля и "словами" не всегда есть хорошо и не всегда на форуме этим заниматься... и поэтому частенько просто решаю проблему с автором и все...
Если я чем-то нарушаю правила форума(или еще чего), скажите.

ЗЫ Я ни кого не хочу ни чему учить, просто показываю иногда дорогу, И придерживаюсь мнения: Кто хочет - тот научится, а кому это не надо, тот один хер откуда-нибудь скопипастит себе кусок кода, не поняв сути в нем и останется тем же неучем, кем и был до копипаста.

ЗЫЫ Впрочем в данном случае, наверное [45] - верно :) Так, как этот код я дал еще в [17], а автор не удосужился чуть-чуть его подправить....:(

Xor части файла Найти похожие ветки