Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Trip.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by h677, Thu Mar 18 14:09:04 2010 UTC revision 1.10 by h677, Sun Sep 25 11:11:03 2011 UTC
# Line 494  begin Line 494  begin
494              Result := '???';              Result := '???';
495          end else begin          end else begin
496              convpw := '';              convpw := '';
             // 生キー方式  
             if pw[ 0 ] = '#' then begin  
                 get_pw_salt(pw, convpw, salt);  
             end;  
497              if (pw[ 0 ] = '#') and (Length(pw) >= 20) then begin              if (pw[ 0 ] = '#') and (Length(pw) >= 20) then begin
498                  // 将来の拡張用                  // 将来の拡張用
499                  Result := '???';                  Result := '???';
500              end else if Length(convpw) = 0 then begin              end else if pw[ 0 ] = '#' then begin
501                  // 生キー方式エラー                  // 生キー方式
502                  Result := '???';                  get_pw_salt(pw, convpw, salt);
503              end else if Length(convpw) = 8 then begin                  if Length(convpw) = 0 then begin
504                  Result := Copy( crypt_r( PChar(convpw), salt, s ), 4, 100 );                      // 生キー方式エラー
505                        Result := '???';
506                    end else if Length(convpw) = 8 then begin
507                        Result := Copy( crypt_r( PChar(convpw), salt, s ), 4, 100 );
508                    end
509              end else begin              end else begin
510                  // 新方式                  // 新方式
511                  StringHashSHA1(digest, pw);                  StringHashSHA1(digest, pw);

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26