Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Trip.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 10 |
interface |
interface |
| 11 |
|
|
| 12 |
uses |
uses |
| 13 |
SHA1Unit, UBase64, SysUtils; |
SHA1Unit, UBase64, SysUtils, MojuUtils; |
| 14 |
|
|
| 15 |
type |
type |
| 16 |
CryptBlock = record |
CryptBlock = record |
| 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 |
|
|
| |