cipher是一个功能较强大的密码软件
具有加密、解密双向功能，并可以修改用户名和密码
注：
初始用户名：jiangyuzhou
初始密码：fj123
请不要强行打开np.ini，否则可能导致文件损坏。
请用英文符号方式输入符号，否则可能引起错误。
请不要输错数字。
本程序仅支持英文输入，目前暂时不开放中文加密程序。
（中文加密实在太复杂了，光想想10000多个汉字……）
1楼度娘

uses crt;
var   r,e:char;
      pn,pa,nam,pas,s:string;
      f:text;
      mi,i,j:integer;
procedure sorry(error:integer);
begin
      case error of
         1: begin
            clrscr;
            textcolor(green);
            writeln('Sorry,error 1:Name wrong!');
            writeln('Please input Enter to exit...');
            readln;
            halt;
            end;
         2: begin
            clrscr;
            textcolor(green);
            writeln('Sorry ,error 2:Password wrong!');
            writeln('Please input Enter to exit...');
            readln;
            halt;
            end;
         3: begin
            clrscr;
            textcolor(yellow);
            writeln('Sorry,error 3:You''ve input a wrong number.');
            writeln('Please input the right number.');
            writeln;
            writeln('Please press Enter to continue...');
            readln;
            textcolor(white);
            end;
         4: begin
            clrscr;
            textcolor(yellow);
            writeln('Sorry,error 4:Two new passwords are different.');
            writeln('Please press Enter to return...');
            readln;


            textcolor(white);
            end;
         5: begin
            clrscr;
            textcolor(yellow);
            writeln('Sorry,error 5:The old password is wrong.');
            writeln('Please press Enter to return...');
            readln;
            textcolor(white);
            end;
         end;
end;
procedure more;
begin
      clrscr;
      writeln('This program''s owner is Jiangyuzhou.');
      writeln('Made by Jyz Office,copyright 2007.');
      writeln('Edition number:2.0.3.2');
      writeln('Code:90000002,CE authorize');
      writeln('My e-mail is [email protected].');
      writeln('Thank you for use my program!');
      writeln('If there''s any bugs,please e-mail me.');
      writeln('You can e-mail me and get a new one.');
      writeln('My blog:hi.baidu.com/jiangyuzhou');
      writeln('You can enter my blog to get new information.');
      writeln;
      writeln('Press Enter to continue...');
      readln;
end;
procedure help;
begin
      clrscr;
      writeln('This is a program for encrypt.');
      writeln('I made it for the people need it.');
      writeln('Please don''t use it for factory or office.');
      writeln('Only use for   family.');
      writeln('Don''t use it against law!');
      writeln('I won''t answer for if you use it against law.');
      writeln('My blog:hi.baidu.com/jiangyuzhou');
      writeln('You can enter my blog to get new information.');
      writeln;
      writeln('Press Enter to continue...');
      readln;
end;
procedure repa;
begin
      clrscr;
      write('Please input the old password:');
      e:=' ';
      pa:='';


      e:=readkey;
      while e<>#13 do begin
         if e<>#8 then begin
            write('*');
            pa:=pa+e;
            end else begin
               write(e,' ',e);
               delete(pa,length(pa),1);
               end;
         e:=readkey;
         end;
      if pa<>pas then begin
         sorry(5);
         exit;
         end;
      writeln;
      write('Please input your new password:');
      e:=' ';
      pa:='';
      e:=readkey;
      while e<>#13 do begin
         if e<>#8 then begin
            write('*');
            pa:=pa+e;
            end else begin
               write(e,' ',e);
               delete(pa,length(pa),1);
               end;
         e:=readkey;
         end;
      writeln;
      write('Please input your new password again:');
      e:=' ';
      pas:='';
      e:=readkey;
      while e<>#13 do begin
         if e<>#8 then begin
            write('*');
            pas:=pas+e;
            end else begin
               write(e,' ',e);
               delete(pas,length(pas),1);
               end;


         e:=readkey;
         end;
      writeln;
      if pa=pas then begin
         writeln('Ok,please use your new password next time.');
         readln;
         assign(f,'np.ini');
         rewrite(f);
         writeln(f,nam);
         writeln(f,pas);
         close(f);
         end
         else sorry(4);
      assign(f,'np.ini');
      reset(f);
      readln(f,nam);
      readln(f,pas);
      pa:=pas;
      close(f);
end;
procedure rena;
begin
      clrscr;
      write('Please input your new name:');
      readln(nam);
      assign(f,'np.ini');
      rewrite(f);
      writeln(f,nam);
      writeln(f,pas);
      close(f);
      writeln('Ok,please use your new name next time.');
      readln;
end;
procedure return;
begin
      clrscr;
      write('Please input secret sentence:');
      readln(s);
      write('Please input key:');
      readln(mi);
      writeln('This is the clear sentence:');
      i:=1;
      while i<=length(s) do begin
         j:=0;
         while s[i] in ['0'..'9'] do begin
            j:=j*10+ord(s[i])-48;
            i:=i+1;
            end;
         write(chr(j-mi));
         i:=i+1;
         end;
      writeln;
      writeln('Please input <Enter> to continue...');
      readln;
end;
procedure turn;
begin
      clrscr;
      write('Please input clear sentence:');


      readln(s);
      write('Please input key:');
      readln(mi);
      writeln('This is the secret sentence:');
      for i:=1 to length(s) do write(ord(s[i])+mi,' ');
      writeln;
      writeln('Please input <Enter> to continue...');
      readln;
end;
procedure quit;
begin
      clrscr;
      writeln('Thank you for using my program!');
      writeln;
      writeln('Press Enter to exit...');
      readln;
      halt;
end;
procedure use;
begin
      case r of
         'q':quit;
         '1':turn;
         '2':return;
         '3':rena;
         '4':repa;
         '5':help;
         '6':more;
         else sorry(3);
         end;
end;
procedure welcome;
begin
      clrscr;
      writeln('Welcome,',nam,'!');
      writeln;
      writeln('This is a information for use:');
      writeln('|------|--------|--------------------------------|');
      writeln('|Number|    Name |            Use it for            |');
      writeln('+------+--------+--------------------------------+');
      writeln('|   1    |   input |      turn clear into secret      |');
      writeln('+------+--------+--------------------------------+');
      writeln('|   2    | output |     return secret into clear     |');
      writeln('+------+--------+--------------------------------+');
      writeln('|   3    |   name   |           change name            |');
      writeln('+------+--------+--------------------------------+');
      writeln('|   4    |password|         change password          |');


      writeln('+------+--------+--------------------------------+');
      writeln('|   5    |   help   |      for more helpful tips       |');
      writeln('+------+--------+--------------------------------+');
      writeln('|   6    |   about |    about this program''s owner    |');
      writeln('+------+--------+--------------------------------+');
      writeln;
      writeln('Please input a number,or "q" to exit.');
      r:=readkey;
end;
procedure first;
begin
      writeln('Welcome use my program!');
      writeln;
      write('Please input name:');
      readln(pn);
      write('Please input password:');
      r:=' ';
      pa:='';
      r:=readkey;
      while r<>#13 do begin
         if r<>#8 then begin
            write('*');
            pa:=pa+r;
            end else begin
               write(r,' ',r);
               delete(pa,length(pa),1);
               end;
         r:=readkey;
         end;
      writeln;
      writeln;
      writeln('Checking...');
      delay(800);
      assign(f,'np.ini');
      reset(f);
      readln(f,nam);
      readln(f,pas);
      close(f);
      if nam<>pn then sorry(1);
      if pas<>pa then sorry(2);
end;
begin
      textcolor(white);
      first;
      r:=' ';
      while r<>'q' do begin
         welcome;
         use;
         end;
end.


至今为止发的东西大多数都是转的
别骂
我只是觉得不错
就发出来了
好东西得大家分享

请问楼主能将程序的每一个步奏，解释一下吗？

LZ的英语不过关.....writeln('Thank you for use my program!');
应该是using....

   writeln('I made it for the people need it.');
for the people who need it.

LS...
不必那么较真吧，，，= =
况且这也只是LZ贴别人的呀。。

直接写delphi不是好，那么多交互界面还用pascal

姜雨舟写的……

最近英语短文改错写多了...呵呵

15楼好眼力...

回10楼
这语句错误有必要改一下
姜雨舟同学英语没学好
但不能让他误人子弟

有2号错误

np.ini在哪里？