Цитата:
|
Сообщение от GraffyM
И да... подскажите пожалуйста почему когда я сделал проверку пароля то если я ввожу полу правельный(подбирая по числам) тоесть первый этап проверки пароль проходит а на втором зацыклюется не пишет мол пассворд ис инкоррект??? Розберите и подскажите где я ошибся? А то я не могу найти!!!
Код:
writeln('Enter password please.');
readln(pass1);
dlna:=length(pass1);
Sbch:=0;
for nep1:=1 to dlna do
begin
bukv:=pass1[nep1];
chb:=Ord(bukv);
Sbch:=Sbch+chb;
end;
iDch:=Sbch;
while iDch >= 2 do
begin
iMod := iDch mod 2;
iDch := iDch div 2;
sDv := IntToStr(iMod) + sDv;
end;
sDv := inttostr(iDch) + sDv;
dvchp:=111000000;
if
strtoint(sDv)=dvchp
then
if pass1[5]=('u')
then
begin
Ну как вам прога? |
Чесно?
Прога УЖЕСТЬ.
Зачем счить сумму кодов символов пароля?)
А эта проверка if pass1[5]=('u') к чему?)
Тут 3 варианта или использовать хеш или шифровать пароль, или то и другое для аццкой стойкости. Но коды букв к чему?)
П.С.: какой твой возраст? (если не секрет, просто интересно).