-

diff --git a/inn/add_company.aspx.vb b/inn/add_company.aspx.vb
index e90f7e3..c89b1aa 100755
--- a/inn/add_company.aspx.vb
+++ b/inn/add_company.aspx.vb
@@ -461,9 +461,10 @@ Public Class addcompany
         strLetterToMasterUser = Replace(strLetterToMasterUser, "ksjghfiw6", strMasterUserPassword)
 
 
+        Dim smtpPort As Integer = CInt (My.Settings.ratord_SMTP_port)
         Dim strEmailReturn As String = SendSimple(My.Settings.ratord_SMTP_email,
                                                     My.Settings.ratord_SMTP_host,
-                                                    My.Settings.ratord_SMTP_port,
+                                                    smtpPort,
                                                     True,
                                                     strManagersEmail,
                                                     My.Settings.ratord_SMTP_login,
diff --git a/inn/security_functions.vb b/inn/security_functions.vb
index 4e32e10..e3f8e7b 100755
--- a/inn/security_functions.vb
+++ b/inn/security_functions.vb
@@ -123,7 +123,7 @@ vvv:
     Friend Function ComputeSimpleHash(ByVal Password As String, ByVal Salt As String) As String
         Dim strMixedPassword As String = DecryptString(Password & Strings.Left(Salt, 8))
 
-        Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
+        Dim sha1Obj As New System.Security.Cryptography.SHA1CryptoServiceProvider
         Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strMixedPassword)
 
         bytesToHash = sha1Obj.ComputeHash(bytesToHash)