Classic ASP Outbound TLS 1.2

Question

Chúng tôi sử dụng lệnh gọi API web tới UPS để kiểm tra thông tin địa chỉ. Họ đang yêu cầu TLS 1.2 và công tắc đã phá vỡ trang của chúng tôi.

<% 

If ACTION="Verify" and ncSCountry="USA" and ncSState<>"PR" and ncSState<>"AA" and ncSState<>"AP" and ncSState<>"AE" then 

    Dim sXML 

    sXML = "<?xml version='1.0'?>" 
    sXML = sXML & "<AccessRequest xml:lang='en-US'>" 
    sXML = sXML & "<AccessLicenseNumber>XXXXXX</AccessLicenseNumber>" 
    sXML = sXML & "<UserId>XXXX</UserId>" 
    sXML = sXML & "<Password>XXXX</Password>" 
    sXML = sXML & "</AccessRequest>" 
    sXML = sXML & "<?xml version='1.0'?>" 
    sXML = sXML & "<AddressValidationRequest xml:lang='en-US'>" 
    sXML = sXML & "<Request>" 
    sXML = sXML & "<TransactionReference>" 
    sXML = sXML & "<CustomerContext /><XpciVersion>1.0001</XpciVersion>" 
    sXML = sXML & "</TransactionReference>" 
    sXML = sXML & "<RequestAction>XAV</RequestAction>" 
    sXML = sXML & "<RequestOption>1</RequestOption></Request>" 
    sXML = sXML & "<MaximumListSize>1</MaximumListSize>" 
    sXML = sXML & "<AddressKeyFormat>" 
    sXML = sXML & "<ConsigneeName></ConsigneeName>" 
    sXML = sXML & "<BuildingName></BuildingName>" 
    sXML = sXML & "<AddressLine>" & ncSAddr1 & "</AddressLine>" 
    sXML = sXML & "<AddressLine>" & ncSAddr2 & "</AddressLine>" 
    sXML = sXML & "<AddressLine></AddressLine>" 
    sXML = sXML & "<PoliticalDivision2>" & ncSCity & "</PoliticalDivision2>" 
    sXML = sXML & "<PoliticalDivision1>" & ncSState & "</PoliticalDivision1>" 
    sXML = sXML & "<PostcodePrimaryLow>" & ncSZip & "</PostcodePrimaryLow>" 
    sXML = sXML & "<CountryCode>US</CountryCode>" 
    sXML = sXML & "</AddressKeyFormat>" 
    sXML = sXML & "</AddressValidationRequest>" 


    'Now pass the request to UPS 
    Dim xmlhttp4, sResponseXML, myDoc 
    Set xmlhttp4 = CreateObject("WinHttp.WinHttpRequest.5.1") 
    'Set xmlhttp4 = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp4.Open "POST","https://onlinetools.ups.com/ups.app/xml/XAV", false 
    xmlhttp4.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    xmlhttp4.send(sXML) 
    If xmlhttp4.Status >= 400 And xmlhttp4.Status <= 599 Then 
     'Response.Write("Error Occurred : " & xmlhttp.Status & " - " & xmlhttp.statusText) 
     sResponseXML = "</empty>" 
    Else 
     sResponseXML = xmlhttp4.responseText 
    End If 

    Set myDoc=CreateObject("Microsoft.XMLDOM") 
    myDoc.loadXML(sResponseXML) 
    myDoc.async = false 

    Dim addressline, addressline2, city, state, zip, zip4, responsestatus 

    Dim root, NodeList, x 
    Set root = myDoc.DocumentElement 
    If myDoc.hasChildNodes then 
     Set NodeList = root.SelectNodes("AddressKeyFormat") 
     For x = 0 To (NodeList.Length - 1) 
      city = NodeList.Item(x).SelectSingleNode("PoliticalDivision2").Text 
      state = NodeList.Item(x).SelectSingleNode("PoliticalDivision1").Text 
      addressline = NodeList.Item(x).SelectSingleNode("AddressLine").Text 

      addressline2=NodeList.Item(x).SelectSingleNode("AddressLine").NextSibling.nodename 
      if addressline2="AddressLine" then 
       addressline2=NodeList.Item(x).SelectSingleNode("AddressLine").NextSibling.Text 
      Else 
       addressline2="" 
      ENd if 

      zip = NodeList.Item(x).SelectSingleNode("PostcodePrimaryLow").Text 
      zip4 = NodeList.Item(x).SelectSingleNode("PostcodeExtendedLow").Text 
     Next 
    End If 

    Dim startcust3, endcust3 
    startcust3=instr(sresponseXML, "<ResponseStatusCode>") 
    endcust3 = instr(sresponseXML, "</ResponseStatusCode>") 
    responsestatus=Mid(sResponseXML,startcust3+20,(endcust3-startcust3-20)) 

ENd if 


%> 

Tôi đã cố gắng thực hiện chuyển đổi này, nhưng tôi cảm thấy mình đang thiếu thứ gì đó.

Set xmlhttp4 = CreateObject("WinHttp.WinHttpRequest.5.1") 
'Set xmlhttp4 = CreateObject("MSXML2.ServerXMLHTTP") 

Answer 1

Tôi đã tìm thấy giải pháp có sửa lỗi đăng ký đơn giản.

1) Đăng ký TLS 1.2 Giao thức:

Windows Registry Editor Version 5.00 

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2] 

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2\Client] 
"Enabled"=dword:ffffffff 
"DisabledByDefault"=dword:00000000 

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurityProviders\SCHANNEL\Protocols\TLS 1.2\Server] 
"Enabled"=dword:ffffffff 
"DisabledByDefault"=dword:00000000 

2) Cấu hình TLS 1.2 được mặc định trong các ứng dụng 32 bit:

Windows Registry Editor Version 5.00 

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp] 
"DefaultSecureProtocols"=dword:00000800 

3) Cấu hình TLS 1.2 được mặc định trong các ứng dụng 64 bit :

Windows Registry Editor Version 5.00 

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp] 
"DefaultSecureProtocols"=dword:00000800 

4) máy chủ Restart

Nếu bạn cần sự hỗ trợ của TLS 1.1 chỉ sau đó:

• Ở bước 1) ở trên chỉ cần thay đổi "TLS 1.2" thành "TLS 1.1" và áp dụng đăng ký mới sửa chữa
• On bước 2) và 3) trên giá trị thay đổi "00.000.800" thành "00.000.200" và áp dụng mới sửa chữa registry

Nếu bạn cần sự hỗ trợ của cả hai TLS 1.1 và 1.2 sau đó

• Lặp lại bước 1) từ trên hai lần hai đăng ký cả hai giao thức
• On bước 2) và 3) sử dụng giá trị "00000A00" (sự kết hợp của "00.000.800" + "00.000.200")

là gì Mã xác minh:

<% 
Set objHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1") 
objHttp.open "GET", "https://howsmyssl.com/a/check", False 
objHttp.Send 
Response.Write objHttp.responseText 
Set objHttp = Nothing 
%> 

Vào cuối phản ứng bạn sẽ thấy phiên bản của TLS được sử dụng theo yêu cầu

"tls_version":"TLS 1.2"