Зацените прогу на Pascal!

Тема в разделе "Не достойно креатива", создана пользователем Хомячок, 16 май 2008.

Статус темы:
Закрыта.
  1. Хомячок

    Хомячок

    Регистр.:
    10 апр 2008
    Сообщения:
    184
    Симпатии:
    103
    Недавно начал программировать на Pascal и написал вот такую прогу. Цель в том, чтобы найти подходящий к ней пароль. Если кто-то сможет найти, мне будет очень приятно. Так что дерзайте!

    PHP:
    Program xak;
    Uses WinCrt;
    Var
    pass:string[15];
    passasci:array[1..15of integer;
    password:integer;
    p:string;
    endpassword:integer;
    i,n:byte;
    label
    1
    ;
    Begin
    password
    :=0;
    1:Writeln('Введите пароль');
    Readln(pass);
    n:=length(pass);
    for 
    i:=1 to n do
    passasci[i]:=ord(pass[i]);
    for 
    i:=1 to n do
    password:=password+passasci[i];
    str(password,p);
    n:=length(p);
    for 
    i:=1 to n do
    passasci[i]:=ord(p[i]);
    password:=0;
    for 
    i:=1 to n do
    password:=password+passasci[i];
    endpassword:=password*n;
    If 
    endpassword=828 then writeln('Вы взломали прогу')
    else 
    begin writeln('Неверный пароль!');
    goto 
    1;
    End;
    End.
     
  2. masto

    masto Прохожие

    Бредовая цель - любой вменяемый человек найдёт более полезный способ убить время.
     
  3. Хомячок

    Хомячок

    Регистр.:
    10 апр 2008
    Сообщения:
    184
    Симпатии:
    103
    Просто ее вообще никто не сможет взломать, вот так и говорите!
     
  4. masto

    masto Прохожие

    Анекдот про неуловимого Джо знаешь?
    хотя если хочется потешить собственное самолюбие, можешь считать что так оно и есть, не буду тебя разочаровывать.
     
  5. dmMrak

    dmMrak Писатель

    Заблокирован
    Регистр.:
    1 ноя 2007
    Сообщения:
    98
    Симпатии:
    13
    Использование меток в паскале считается плохим тоном программирования.
     
Статус темы:
Закрыта.