ギコナビ
Revisão | 4c0dd05e2bd294909ea2a39c1407201064ad570e (tree) |
---|---|
Hora | 2009-06-21 20:42:44 |
Autor | h677 <h677> |
Commiter | h677 |
close #17467
新12桁では、+は.(ドット)に置換する仕様見たいなのであわせるようにした。
@@ -10,7 +10,7 @@ unit Trip; | ||
10 | 10 | interface |
11 | 11 | |
12 | 12 | uses |
13 | - SHA1Unit, UBase64, SysUtils; | |
13 | + SHA1Unit, UBase64, SysUtils, MojuUtils; | |
14 | 14 | |
15 | 15 | type |
16 | 16 | CryptBlock = record |
@@ -504,6 +504,7 @@ begin | ||
504 | 504 | // Vû® |
505 | 505 | StringHashSHA1(digest, pw); |
506 | 506 | Result := Copy(HogeBase64Encode(digest), 0, 12); |
507 | + Result := MojuUtils.CustomStringReplace(Result, '+', '.'); | |
507 | 508 | end; |
508 | 509 | end; |
509 | 510 | end; |