From 4c0dd05e2bd294909ea2a39c1407201064ad570e Mon Sep 17 00:00:00 2001 From: h677 Date: Sun, 21 Jun 2009 11:42:44 +0000 Subject: [PATCH] =?utf8?q?close=20#17467=20=E6=96=B012=E6=A1=81=E3=81=A7?= =?utf8?q?=E3=81=AF=E3=80=81+=E3=81=AF.(=E3=83=89=E3=83=83=E3=83=88)?= =?utf8?q?=E3=81=AB=E7=BD=AE=E6=8F=9B=E3=81=99=E3=82=8B=E4=BB=95=E6=A7=98?= =?utf8?q?=E8=A6=8B=E3=81=9F=E3=81=84=E3=81=AA=E3=81=AE=E3=81=A7=E3=81=82?= =?utf8?q?=E3=82=8F=E3=81=9B=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=97?= =?utf8?q?=E3=81=9F=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Trip.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Trip.pas b/Trip.pas index 1c2a78a..3f6a501 100644 --- 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 // V•ûŽ® StringHashSHA1(digest, pw); Result := Copy(HogeBase64Encode(digest), 0, 12); + Result := MojuUtils.CustomStringReplace(Result, '+', '.'); end; end; end; -- 2.11.0