499 |
FileDir : String; |
FileDir : String; |
500 |
TCPPort : integer; |
TCPPort : integer; |
501 |
ViewlogEditor : String; |
ViewlogEditor : String; |
502 |
|
CipherOrder : String; |
503 |
|
|
504 |
begin |
begin |
505 |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
510 |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
511 |
TCPPort := GetIniInt('Tera Term', 'TCPPort', 0, 0, 65535, iniFile) |
TCPPort := GetIniInt('Tera Term', 'TCPPort', 0, 0, 65535, iniFile) |
512 |
ViewlogEditor := GetIniString('Tera Term', 'ViewlogEditor', '', iniFile); |
ViewlogEditor := GetIniString('Tera Term', 'ViewlogEditor', '', iniFile); |
513 |
|
CipherOrder := GetIniString('TTSSH', 'CipherOrder', '', iniFile); |
514 |
|
|
515 |
case GetUILanguage and $3FF of |
case GetUILanguage and $3FF of |
516 |
$04: // Chinese |
$04: // Chinese |
645 |
SetIniString('Tera Term', 'ViewlogEditor', ViewlogEditor, iniFile); |
SetIniString('Tera Term', 'ViewlogEditor', ViewlogEditor, iniFile); |
646 |
end; |
end; |
647 |
|
|
648 |
|
if IsComponentSelected('TTSSH') then |
649 |
|
begin |
650 |
|
CipherOrder := GetIniString('TTSSH', 'CipherOrder', '', iniFile); |
651 |
|
if (CompareStr(CipherOrder, 'K>H:J=G9I<F8C7D;A@?EB3062') = 0) or |
652 |
|
(CompareStr(CipherOrder, '>:=9<8C7D;A@?EB3062') = 0) or |
653 |
|
(CompareStr(CipherOrder, '>:=9<87;A@?B3026') = 0) or |
654 |
|
(CompareStr(CipherOrder, '>:=9<87;A@?3026') = 0) or |
655 |
|
(CompareStr(CipherOrder, '>:=9<87;?3026') = 0) or |
656 |
|
(CompareStr(CipherOrder, '<8=9>:7;3026') = 0) or |
657 |
|
(CompareStr(CipherOrder, '87;9:<=>3026') = 0) or |
658 |
|
(CompareStr(CipherOrder, '87;9:3026') = 0) or |
659 |
|
(CompareStr(CipherOrder, '873026') = 0) then |
660 |
|
SetIniString('TTSSH', 'CipherOrder', 'K>H:J=G9I<F8C7D;EB30A@?62', iniFile) |
661 |
|
end; |
662 |
|
|
663 |
end; |
end; |
664 |
|
|
665 |
procedure InitializeWizard; |
procedure InitializeWizard; |