Код
........
Buf: array[1..32] of char; {buffer 32 bit}
.......
BlockRead(OpenFile,Buf,sizeof(Buf),NumRead); считывание блока нетип.файла
GammaCrypt(Passwd,Buf); моя функция,т.е. криптование xor`ом
.........
Buf: array[1..32] of char; {buffer 32 bit}
.......
BlockRead(OpenFile,Buf,sizeof(Buf),NumRead); считывание блока нетип.файла
GammaCrypt(Passwd,Buf); моя функция,т.е. криптование xor`ом
.........
процедура:
type Bufer=array of char;
procedure GammaCrypt(Key: string; var arr:Bufer);
....
m := Length(Key);
n := Length(Bufer); буфер(массив) пустой!
в общем немогу сообразить как передать массив в функцию...что нетак то??!
зы: сорри за корявый код, программер из меня неважный
