[Ttssh2-commit] [6034] インストール時に TERATERM.INI の SSH 暗号化方式が過去のデフォルト値のままだった場合、現在のデフォルト値で上書きする

svnno****@sourc***** svnno****@sourc*****
2015年 9月 26日 (土) 16:24:43 JST


Revision: 6034
          http://sourceforge.jp/projects/ttssh2/scm/svn/commits/6034
Author:   maya
Date:     2015-09-26 16:24:43 +0900 (Sat, 26 Sep 2015)
Log Message:
-----------
インストール時に TERATERM.INI の SSH 暗号化方式が過去のデフォルト値のままだった場合、現在のデフォルト値で上書きする
  https://osdn.jp/ticket/browse.php?group_id=1412&tid=35201

Modified Paths:
--------------
    trunk/installer/teraterm.iss

-------------- next part --------------
Modified: trunk/installer/teraterm.iss
===================================================================
--- trunk/installer/teraterm.iss	2015-09-25 13:42:58 UTC (rev 6033)
+++ trunk/installer/teraterm.iss	2015-09-26 07:24:43 UTC (rev 6034)
@@ -499,6 +499,7 @@
   FileDir       : String;
   TCPPort       : integer;
   ViewlogEditor : String;
+  CipherOrder   : String;
 
 begin
   Language       := GetIniString('Tera Term', 'Language', '', iniFile);
@@ -509,6 +510,7 @@
   FileDir        := GetIniString('Tera Term', 'FileDir', '', iniFile);
   TCPPort        := GetIniInt('Tera Term', 'TCPPort', 0, 0, 65535, iniFile)
   ViewlogEditor  := GetIniString('Tera Term', 'ViewlogEditor', '', iniFile);
+  CipherOrder    := GetIniString('TTSSH', 'CipherOrder', '', iniFile);
 
   case GetUILanguage and $3FF of
   $04: // Chinese
@@ -643,6 +645,21 @@
     SetIniString('Tera Term', 'ViewlogEditor', ViewlogEditor, iniFile);
   end;
 
+  if IsComponentSelected('TTSSH') then
+    begin
+      CipherOrder := GetIniString('TTSSH', 'CipherOrder', '', iniFile);
+      if (CompareStr(CipherOrder, 'K>H:J=G9I<F8C7D;A@?EB3062') = 0) or
+         (CompareStr(CipherOrder, '>:=9<8C7D;A@?EB3062') = 0) or
+         (CompareStr(CipherOrder, '>:=9<87;A@?B3026') = 0) or
+         (CompareStr(CipherOrder, '>:=9<87;A@?3026') = 0) or
+         (CompareStr(CipherOrder, '>:=9<87;?3026') = 0) or
+         (CompareStr(CipherOrder, '<8=9>:7;3026') = 0) or
+         (CompareStr(CipherOrder, '87;9:<=>3026') = 0) or
+         (CompareStr(CipherOrder, '87;9:3026') = 0) or
+         (CompareStr(CipherOrder, '873026') = 0) then
+        SetIniString('TTSSH', 'CipherOrder', 'K>H:J=G9I<F8C7D;EB30A@?62', iniFile)
+    end;
+
 end;
 
 procedure InitializeWizard;



Ttssh2-commit メーリングリストの案内