diff --git a/VERSION b/VERSION
index f0bb29e..88c5fb8 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.3.0
+1.4.0
diff --git a/src/common/ItemHyperlink.cls b/src/common/ItemHyperlink.cls
index 377fb74..a1a6cda 100644
--- a/src/common/ItemHyperlink.cls
+++ b/src/common/ItemHyperlink.cls
@@ -79,7 +79,7 @@ Public Function ToAddress() As String
   Select Case system_
     Case PT_MOBILE: ToAddress = Fmt("http://mobileonline.garant.ru/document/redirect/{1}/{2}", gid_, sBookmarkID)
     Case PT_LOCAL: ToAddress = Fmt("garantf1://{1}.{2}/", gid_, sBookmarkID)
-    Case PT_INTERNET: ToAddress = Fmt("http://internet.garant.ru/document/redirect/{1}/{2}", gid_, sBookmarkID)
+    Case PT_INTERNET: ToAddress = Fmt("https://internet.garant.ru/document/redirect/{1}/{2}", gid_, sBookmarkID)
   End Select
 End Function
 
@@ -98,7 +98,7 @@ Private Function CutPrefix(aLink$, iSystem As TLinkSystem) As String
       CutPrefix = VBA.Right(aLink, VBA.Len(aLink) - VBA.InStr(1, aLink, "//") - 1)
       CutPrefix = VBA.Left(CutPrefix, VBA.Len(CutPrefix) - 1)
     Case PT_INTERNET
-      CutPrefix = VBA.Right(aLink, VBA.Len(aLink) - 44) ' 44 = Len(PrefixFor(PT_INTERNET))
+      CutPrefix = VBA.Right(aLink, VBA.Len(aLink) - 45) ' 45 = Len(PrefixFor(PT_INTERNET))
       CutPrefix = VBA.Replace(CutPrefix, "/", ".")
   End Select
   If Not CutPrefix Like "*.*" Then _
@@ -109,7 +109,7 @@ Private Function PrefixFor(aType As TLinkSystem) As String
   Select Case aType
     Case PT_MOBILE: PrefixFor = "http://mobileonline.garant.ru/document/redirect/"
     Case PT_LOCAL: PrefixFor = "garantf1://"
-    Case PT_INTERNET: PrefixFor = "http://internet.garant.ru/document/redirect/"
+    Case PT_INTERNET: PrefixFor = "https://internet.garant.ru/document/redirect/"
   End Select
 End Function
 
diff --git a/src/test/s_InfoDocument.cls b/src/test/s_InfoDocument.cls
index e162e8a..c5633b3 100644
--- a/src/test/s_InfoDocument.cls
+++ b/src/test/s_InfoDocument.cls
@@ -68,7 +68,7 @@ Public Function t_Init()
   Call Dev_ExpectEQ(PT_LOCAL, iDoc_.linkSystem_)
   
   Call Dev_NewCase("IVO garant")
-  doc.Hyperlinks(1).Address = "http://internet.garant.ru/document/redirect/1339/0"
+  doc.Hyperlinks(1).Address = "https://internet.garant.ru/document/redirect/1339/0"
   Set iDoc_ = New InfoDocument
   Call Dev_ExpectTrue(iDoc_.Init(doc))
   Call Dev_ExpectEQ(doc.Name, iDoc_.doc_.Name)
@@ -120,7 +120,7 @@ Public Function t_CreateTitleLink()
   iDoc_.gid_ = 123
   
   Call iDoc_.CreateTitleLink
-  Dim sAddr$: sAddr = "http://internet.garant.ru/document/redirect/123/0"
+  Dim sAddr$: sAddr = "https://internet.garant.ru/document/redirect/123/0"
   Call Dev_AssertEQ(1, doc.Hyperlinks.Count, "Hyperlink count")
   Call Dev_ExpectEQ("test1", doc.Hyperlinks(1).Range.Text, "Hyperlink range")
   Call Dev_ExpectEQ(sAddr, doc.Hyperlinks(1).Address, "Hyperlink address")
diff --git a/src/test/s_ItemHyperlink.cls b/src/test/s_ItemHyperlink.cls
index 605b750..948c97d 100644
--- a/src/test/s_ItemHyperlink.cls
+++ b/src/test/s_ItemHyperlink.cls
@@ -9,9 +9,6 @@ Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
 Option Explicit
 
-' TODO:
-' Public Function ValidateSync(itLink As IteratorLinkCached)
-
 Private iLink_ As ItemHyperlink
 
 Public Function Setup()
@@ -63,7 +60,7 @@ Public Function t_ToAddress()
   
   Call Dev_NewCase("IVO garant")
   Call iLink_.Init(PT_INTERNET, 1337)
-  Call Dev_ExpectEQ("http://internet.garant.ru/document/redirect/1337/0", iLink_.ToAddress)
+  Call Dev_ExpectEQ("https://internet.garant.ru/document/redirect/1337/0", iLink_.ToAddress)
   
   Call Dev_NewCase("Custom sub")
   Call iLink_.Init(PT_LOCAL, 1337, "sub_123")
@@ -90,11 +87,11 @@ Public Function t_FromString()
   Call Dev_ExpectEQ(PT_LOCAL, iLink_.LinkSystem, "Do not reset on failed load")
   
   Call Dev_ExpectFalse(iLink_.FromAddress("invalid"), "Invalid input")
-  Call Dev_ExpectFalse(iLink_.FromAddress("http://internet.garant.ru/document/redirect/"), "Missing GID")
-  Call Dev_ExpectFalse(iLink_.FromAddress("http://internet.garant.ru/document/redirect/123/"), "Missing SUB")
+  Call Dev_ExpectFalse(iLink_.FromAddress("https://internet.garant.ru/document/redirect/"), "Missing GID")
+  Call Dev_ExpectFalse(iLink_.FromAddress("https://internet.garant.ru/document/redirect/123/"), "Missing SUB")
   Call Dev_ExpectFalse(iLink_.FromAddress("garantf1://1338.3"), "Missing slash")
-  Call Dev_ExpectFalse(iLink_.FromAddress("http://internet.garant.ru/document/redirect/abc/1"), "Invalid GID")
-  Call Dev_ExpectFalse(iLink_.FromAddress("http://internet.garant.ru/document/redirect/123/abc"), "Invalid SUB")
+  Call Dev_ExpectFalse(iLink_.FromAddress("https://internet.garant.ru/document/redirect/abc/1"), "Invalid GID")
+  Call Dev_ExpectFalse(iLink_.FromAddress("https://internet.garant.ru/document/redirect/123/abc"), "Invalid SUB")
   
   Call Dev_NewCase("Mobile garant")
   Call Dev_ExpectTrue(iLink_.FromAddress("http://mobileonline.garant.ru/document/redirect/1337/2"))
@@ -109,7 +106,7 @@ Public Function t_FromString()
   Call Dev_ExpectEQ("sub_3", iLink_.BookmarkName)
   
   Call Dev_NewCase("IVO garant")
-  Call Dev_ExpectTrue(iLink_.FromAddress("http://internet.garant.ru/document/redirect/1339/4"))
+  Call Dev_ExpectTrue(iLink_.FromAddress("https://internet.garant.ru/document/redirect/1339/4"))
   Call Dev_ExpectEQ(PT_INTERNET, iLink_.LinkSystem)
   Call Dev_ExpectEQ(1339, iLink_.DocumentID)
   Call Dev_ExpectEQ("sub_4", iLink_.BookmarkName)