| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пустая строка [D5]

lscomp ©   (2002-11-28 02:08:00) 

Помогите, плс. Почему выдает пустую строку?

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
N: String;
S: string;
begin
If OpenDialog1.Execute Then
AssignFile(F, OpenDialog1.FileName);
Reset(F);
N := "";
S := "1";
While N <> Edit1.Text do {сравнение зашифр. пароля из файла с исходным}
BEGIN
Readln(F, S);
HashStr(HASH_MD5, S, N); {n - зашифр. пароль s}
ShowMessage (s);
end;
ShowMessage (s); {Тут и ошибка}
CloseFile(F);
end;

---

Opuhshii   (2002-11-29 07:52:00) [1]

Какая ошибка?

---

SottNick   (2002-11-29 07:15:00) [2]

повторяю
вероятно, что s содержит одни специальные символы. Поэтому в сообщении ничего и не видно.

---

mrcat   (2002-11-28 19:05:00) [3]

каким образом "зашифрованный" пароль попадает в файл? Вы его записываете через Write?

---

lscomp   (2002-11-28 18:58:00) [4]

HashStr - компонент для шифровки строки в формате md5! Параметры:
HashStr (Hash_MD5, незашифрованная строка, зашифрованная). До использования HashStr не возникает ошибки, а после использования - пустая строка...

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
N: String;
S: string;
begin
If OpenDialog1.Execute Then
AssignFile(F, OpenDialog1.FileName);
Reset(F);
N := "";
S := "1";
While N <> Edit1.Text do {сравнение зашифр. пароля из файла с исходным}
BEGIN
Readln(F, S);
HashStr(HASH_MD5, S, N); {n - зашифр. пароль s}
end;
ShowMessage (s); {Тут и ошибка}
CloseFile(F);
end;

---

SottNick   (2002-11-28 06:12:00) [5]

While N <> Edit1.Text do
BEGIN
Readln(F, S);
HashStr(HASH_MD5, S, N);
ShowMessage (s);//ЕСЛИ ЗДЕСЬ ОШИБКИ НЕ ВОЗНИКАЕТ,
end;
ShowMessage (s);//ТО И ТУТ ОШИБКИ ВОЗНИКНУТЬ НЕ МОЖЕТ
CloseFile(F);

А вообще, вероятно, что sсодержит одни специальные символы. Поэтому в сообщении ничего и не видно.

---

For   (2002-11-28 02:41:00) [6]

И вообще что ты пишишь объясни????

---

For   (2002-11-28 02:37:00) [7]

Что та я не могу найти в Helpe - HashStr

---

Наверх