Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c