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.5 by h677, Sat Jun 20 15:37:28 2009 UTC revision 1.6 by h677, Sun Jun 21 11:42:44 2009 UTC
# Line 10  unit Trip; Line 10  unit Trip;
10  interface  interface
11    
12  uses  uses
13      SHA1Unit, UBase64, SysUtils;      SHA1Unit, UBase64, SysUtils, MojuUtils;
14    
15  type  type
16          CryptBlock = record          CryptBlock = record
# Line 504  begin Line 504  begin
504                  // 新方式                  // 新方式
505                  StringHashSHA1(digest, pw);                  StringHashSHA1(digest, pw);
506                  Result := Copy(HogeBase64Encode(digest), 0, 12);                  Result := Copy(HogeBase64Encode(digest), 0, 12);
507                    Result := MojuUtils.CustomStringReplace(Result, '+', '.');
508              end;              end;
509          end;          end;
510      end;      end;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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