Пустая строка

← →
lscomp (2002-11-28 02:08) [0]

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

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;

← →
For (2002-11-28 02:37) [1]

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

← →
For (2002-11-28 02:41) [2]

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

← →
SottNick (2002-11-28 06:12) [3]

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

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

← →
lscomp (2002-11-28 18:58) [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;

← →
mrcat (2002-11-28 19:05) [5]

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

← →
SottNick (2002-11-29 07:15) [6]

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

← →
Opuhshii (2002-11-29 07:52) [7]

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

Пустая строка Найти похожие ветки