|
#1
|
||||
|
||||
Двоичный формат
Есть ли в дельфи двоичный формат переменных? Мне нужно произвести операцию типа <строка> xor <строка-ключ> но она прокатывает только для целых чисел Можно ли как-то представить текст как целое число?(StrToInt не предлагать )
|
#2
|
||||
|
||||
Цитата:
Код:
function DoXOR(StrIn, Key : String) : String; var i, l_In, l_Key : Integer; begin Result := ''; l_In := Length(StrIn); l_Key := Length(Key); if (l_In > 0) and (l_Key > 0) then for i := 0 to l_In - 1 do begin Result := Result + Chr(Ord(StrIn[i + 1]) xor Ord(Key[1 + (i mod l_Key)])); end; end; Не профи, но и не чайник . D6 - лучше не придумали. Пока. |