Пароль

[StudentMarat]

Ввод пароля на основе осмысленной фразы длиной не менее 20 символов, которая обязательно хранится на диске D. Компьютер случайным образом выбирает последовательность 4-х символов из фразы и выводит их номера, пользователю в ответ надо ввести символы в обратном порядке. Допускается не более двух ошибок, после чего программу невозможно запустить в течении 5 минут

P.S. Сразу говорю, я не прошу решить мне задачу полностью, хотя бы подскажите пару строк кода, а дальше я сам попытаюсь. Если есть у кого-то исходник с подобной программой, пожалуйста скиньте. Заранее благодарен!

[.Phoenix]

Неплохая задумка пароля. Могу помочь за небольшое финансовое вознаграждение icq 482-612-193

[StudentMarat]

Да думал уже об этом! Денег нет! С работы недовно сократили

[DeKot]

Попробуем помочь. По порядку:
1. Создаете на диске D текстовый файл с ключевой фразой - Осмысленнаяфразабезпробелов (суть именно без пробелов - всего здесь 27 символов).Желательно поменьше повторяющихся символов.
2. Считываете строку из файла в Edit1 (свойство Visible:= false).

var str1: string; // строка содержит ключевую фразу
     str1:= Edit1.Text;

3. Создаем случайные четыре номера символов из ключевой фразы

//  глобально
  var  _count: byte; // количество символов для пароля ( у нас четыре)
       _simb: byte; //  номер символа в строке ( от 1  до  27)
       mas1: array[0..3] of byte; // массив, где хранятся номера символов 
       _index: byte // индекс номера символа в массиве mas1

procedure CreateNumber;
var i: byte;
label _new;
begin
  Randomize;
          While _count < 4 do
          begin
 _new:     _simb:= Random(26) + 1;
            Application.ProcessMessages;
            for i:= 0 to 26 do
            begin
               if _simb = mas1[i] then GOTO  _new; // что бы не было повторов
            end;
            mas1[_index]:= _simb;
            Inc(_index);
            Inc(_count);
         end;
end;

Получим в mas1 четыре случайных номера символов.
4. Выводим эти номера в обратном порядке в Edit2

var  mas2: array[0..3] of byte; // массив обратных номеров
                i: byte;
begin
   mas2[0]:= mas1[3];
   mas2[1]:= mas1[2];
   mas2[2]:= mas1[1];
   mas2[3]:= mas1[0];
  for i:= 0 to 3 do
  begin
    Edit2.Text:= Edit2.Text + IntToStr(mas2[i]) + ' '; //  номера символов через пробел
  //  сами символы сохраняем в строке   str2: string;
 str2:= str2 + str1[mas2[i]];
  end;
end;

5. Далее вводим в Edit3 пароль в виде 4-х символов и сравниваем со значением str2

if Edit3.Text = str2 then < программа открывается>
         else < повторить попытку>

Повтор попыток, их количество - это уже другая песня. Важно перед повтором вернуть переменным начальные значения, запомнить количество попыток и т. д.

[Serge_Bliznykov]

Да думал уже об этом! Денег нет!

да тут могут помочь. Но, ключевое слово как раз - ПОМОЧЬ! т.е. что Вы самостоятельно сделали?
На каком языке будете писать программу?
Что именно непонятно в алогоритме?

фразы ... которая обязательно хранится на диске D

фраза не может храниться на диске D! Имеется в виду файл, находящийся в корню диска D:\ ?!

далее. Выдать номера случайных символов, ввести слово отзыв и проверить совпадение - не сложно.
но дальше -

после чего программу невозможно запустить в течении 5 минут

это практически (по простому, без написания системных программок) невозможно реализовать. Можно сделать так, чтобы программа в случае неверного ответа взводила "флажок".
А при запуске сравнивала время, прошедшее с последнего неудачного запуска, если это время менее 5 минут, программа молча закрывалась, иначе - работала...
Тогда надо решить, где этот "флажок" хранить (реестр, в файлике, ещё где-то)..

и последнее, объяните практический смысл этой задачи.
Если Вам надо просто сдать лабу/курсовую/практическую работу в учебном заведении это одно, а если попытаться сделать реально работающую систему парольного доступа, то это совсем другое!

___________________________________ ___
добавлено
пока я писал, уже и помогли...

[StudentMarat]

Язык - Delphi. Имеется в виду файл, находящийся в корню диска D в зашифрованном виде. Далее выдается номера случайных символов. К примеру, есть ключевая фраза: "Я люблю футбол" Компьютер случайно выбирает номера символов например и выдает их пользователю 1389 (т.е. 1-это буква Я, 3 - это буква Л, 8 - пробел, 9 - это буква Ф). В ответ пользователю надо ввести пароль Ф ЛЯ. (пустое место - это пробел)

[StudentMarat]

Как из строки например "Я дурак"
выбрать букву "Д" поместив ее в переменную
причем номер буквы ввожу с клавы

[Vova8888]

function GetToken(aString, SepChar: string; TokenNum: Byte): string;
{
параметры: aString : полная строка

SepChar : единственный символ, служащий
разделителем между словами (подстроками)
TokenNum: номер требуемого слова (подстроки))
result : искомое слово или пустая строка, если количество слов

меньше значения 'TokenNum'
}
var
Token: string;
StrLen: Byte;
TNum: Byte;
TEnd: Byte;
begin
StrLen := Length(aString);
TNum := 1;
TEnd := StrLen;
while ((TNum <= TokenNum) and (TEnd <> 0)) do
begin
TEnd := Pos(SepChar, aString);
if TEnd <> 0 then
begin
Token := Copy(aString, 1, TEnd - 1);
Delete(aString, 1, TEnd);
Inc(TNum);
end
else
begin
Token := aString;
end;
end;
if TNum >= TokenNum then
begin
GetToken1 := Token;
end
else
begin
GetToken1 := '';
end;
end;

function NumToken(aString, SepChar: string): Byte;
{
parameters: aString : полная строка

SepChar : единственный символ, служащий
разделителем между словами (подстроками)
result : количество найденных слов (подстрок)
}
var
RChar: Char;
StrLen: Byte;
TNum: Byte;
TEnd: Byte;
begin
if SepChar = '#' then
begin
RChar := '*'
end
else
begin
RChar := '#'
end;
StrLen := Length(aString);
TNum := 0;
TEnd := StrLen;
while TEnd <> 0 do
begin
Inc(TNum);
TEnd := Pos(SepChar, aString);
if TEnd <> 0 then
begin
aString[TEnd] := RChar;
end;
end;
Result := TNum;
end;

Или другое решение:


function CopyColumn(const s_string: string; c_fence: char; i_index: integer):
string;
var
i, i_left: integer;
begin
result := EmptyStr;
if i_index = 0 then
begin
exit;
end;
i_left := 0;
for i := 1 to Length(s_string) do
begin
if s_string[i] = c_fence then
begin
Dec(i_index);
if i_index = 0 then
begin
result := Copy(s_string, i_left + 1, i - i_left - 1);
exit;
end
else
begin
i_left := i;
end;
end;
end;
Dec(i_index);
if i_index = 0 then
begin
result := Copy(s_string, i_left + 1, Length(s_string));
end;
end;

[Serge_Bliznykov]

пусть строчка находится в Edit1
номер буквы Вы вводите в Edit2

результат (нужную букву) помещаем в переменную V так:

var k: integer;
   V : string;
begin
  k :=  StrToInt(Edit2.Text);
  if (k>Length(Edit1.Text))  or (k<1)  then 
  Application.MessageBox('Вы ввели номер буквы больше длины строки или меньше единицы!','Ошибка',MB_OK)
else
  V := Edit1.Text[k];

[Vova8888]

Сообщение от Serge_Bliznykov

пусть строчка находится в Edit1
номер буквы Вы вводите в Edit2

результат (нужную букву) помещаем в переменную V так:

var k: integer;
   V : string;
begin
  k :=  StrToInt(Edit2.Text);
  if (k>Length(Edit1.Text))  or (k<1)  then 
  Application.MessageBox('Вы ввели номер буквы больше длины строки или меньше единицы!','Ошибка',MB_OK)
else
  V := Edit1.Text[k];

Он наверное имел ввиду "Как Выбрать слово из строки по номеру который задает сам" корява вывозился просто
пример: есть слово "пример" я ввожу цифру 3 и программа должна мне в переменную занести букву "И"
я правильно понял