close #17467

新12桁では、+は.(ドット)に置換する仕様見たいなのであわせるようにした。

diff --git a/Trip.pas b/Trip.pas
index 1c2a78a..3f6a501 100644 (file)
--- a/Trip.pas
+++ b/Trip.pas
@@ -10,7 +10,7 @@ unit Trip;
 interface
 
 uses
-    SHA1Unit, UBase64, SysUtils;
+    SHA1Unit, UBase64, SysUtils, MojuUtils;
 
 type
        CryptBlock = record
@@ -504,6 +504,7 @@ begin
                 // \90V\95û\8e®
                 StringHashSHA1(digest, pw);
                 Result := Copy(HogeBase64Encode(digest), 0, 12);
+                Result := MojuUtils.CustomStringReplace(Result, '+', '.');
             end;
         end;
     end;