| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с шифратором(запись и чтение из файла) [D7, XP]
Monty © (2007-01-31 22:32:00)Вообщем есть некий файл(variables.txt к примеру), и в нем зашифрованные значения переменных(как зашифровать тоже скажите). Вот например в файле такая строка: 10 15 Weapon BLa Bla Bla.
Как ее зашифровать и эти значения прочитать в делфи? Подскажите плз! Если что непонятно - объясните что и я напишу.
Monty (2007-02-01 00:04:00) [21]СТРОКИ!!! у меня эти переменные не в столбик записаны а в одной строке. а какая разница - типа можно любое ведь разширение сделать?
Beeper (2007-01-31 23:57:00) [22]Вот дан файл(а какая разница какой?) в нем строчки(именно строчки)
А теперь объясни, что ты называешь "именно строчки" в "какая разница каком" файле?
Monty (2007-01-31 23:49:00) [23]Да, наверно это я недообьясняю. Вот дан файл(а какая разница какой?) в нем строчки(именно строчки)
1 2 3 54 bla blab blav
2 5 7 35 fff aaaa dfff
> // Теперь в SL загружены все строки // SL[0] - первая
> строка // SL[1] - вторая строка и т. д.
и как мне теперь вытащить оттуда значения
> a:=1, b:=2, c:=3, d:=54, e:=bla, f:=blab, g:=blav
?
Beeper (2007-01-31 23:47:00) [24]// Теперь VL[0] - первая подстрока ('1')
// Теперь VL[1] - первая подстрока ('2')
// Теперь VL[2] - первая подстрока ('3')
// Теперь VL[3] - первая подстрока ('54')
// Теперь VL[4] - первая подстрока ('bla')
Correction:
// Теперь VL[0] - первая подстрока ('1')
// Теперь VL[1] - вторая подстрока ('2')
// Теперь VL[2] - третья подстрока ('3')
// Теперь VL[3] - четвертая подстрока ('54')
// Теперь VL[4] - пятая подстрока ('bla')
Beeper (2007-01-31 23:46:00) [25]
var
SL: TStringList;
VL: TStringList;
begin
SL := TStringList.Create;
try
SL.LoadFromFile('c:\file.txt');
// Теперь в SL загружены все строки
// SL[0] - первая строка
// SL[1] - вторая строка и т. д.
if (SL.Count > 0) then
begin
VL := TStringList.Create;
try
VL.DelimitedText := SL[0]; // первая строка из файла
// Теперь VL[0] - первая подстрока ('1')
// Теперь VL[1] - первая подстрока ('2')
// Теперь VL[2] - первая подстрока ('3')
// Теперь VL[3] - первая подстрока ('54')
// Теперь VL[4] - первая подстрока ('bla')
// и т. д.
finally
VL.Free;
end;
end;
finally
SL.Free;
end;
end;
Monty (2007-01-31 23:45:00) [26]
> Шикарно...
фантазия =))))
Beeper (2007-01-31 23:42:00) [27]e:=bla, f:=blab, g:=blav
Шикарно...
Beeper (2007-01-31 23:42:00) [28]рас вы не можете мне помочь с этим
Это ты не можешь сказать, что тебе надо.
Что значит "строчка файла"?
Файл - текстовый?
Если да, то, для тебя проще всего будет:
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.LoadFromFile('c:\file.txt');
// Теперь в SL загружены все строки
// SL[0] - первая строка
// SL[1] - вторая строка и т. д.
finally
SL.Free;
end;
end;
Monty (2007-01-31 23:40:00) [29]как я уже сказал дана строка в файле:
1 2 3 54 bla blab blav
как прочитать их в дельфи в 7 переменных(т.е a:=1, b:=2, c:=3, d:=54, e:=bla, f:=blab, g:=blav)?
Monty (2007-01-31 23:37:00) [30]лана, рас вы не можете мне помочь с этим, тады хотябы подскажите
> как из одной строчки из файла прочитать строковую переменную,
> если незнаешь ее точной длины
Beeper (2007-01-31 23:32:00) [31]так вот как в делфи прочитать эти значения?
Так же как и незашифрованные.
bagos (2007-01-31 23:31:00) [32]хм...даже не знаю можно ли тебе помочь;)
Monty (2007-01-31 23:30:00) [33]вощем, типа есть файл(лубой, главное чтоб в нем значения переменных хранились), но он зашифрованный(т.е. все значения в нем зашифрованы). так вот как в делфи прочитать эти значения?
Monty (2007-01-31 23:30:00) [34]вощем, типа есть файл(лубой, главное чтоб в нем значения переменных хранились), но он зашифрованный(т.е. все значения в нем зашифрованы). так вот как в делфи прочитать эти значения?
Beeper (2007-01-31 23:28:00) [35]не, похоже вы не поняли суть.
Не, это ты не назвал сумму.
Beeper (2007-01-31 23:26:00) [36]//тут можешь поставить любое число
Наивысшая степень шифрования - 256.
Monty (2007-01-31 23:25:00) [37]не, похоже вы не поняли суть.
bagos (2007-01-31 23:24:00) [38]Monty,ну если ты хочешь просто зашифровать и расшифровать,то вот тебе самый приметив:
var
s : string;
e : string;
j,i : Integer;
begin
s := memo1.Lines.Text;
SetLength(e, length(s));
for i := 1 to length(s) do begin
e[i] := chr(ord(s[i])+500); //тут можешь поставить любое число
end;
memo2.Lines.Text:=e;
чтобы расшифровать просто вычитаешь то же число
Monty (2007-01-31 23:23:00) [39]Ну вот все испробовал :)
Beeper (2007-01-31 23:20:00) [40]Monty (31.01.07 23:18) [2]
Как думаешь, Лев Толстой "Войну и Мир" написал до того, как писать научился, или уже после?
| |
Страницы: 