l2tp的相关资料

最新推荐文章于 2016-09-07 15:51:23 发布
最新推荐文章于 2016-09-07 15:51:23 发布
阅读量2.3k 收藏
点赞数
分类专栏： c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/woshidaniu/article/details/39483853
版权 
With re
  .dwSize = LenB(re)
  .dwCountryCode = 86
  .dwCountryID = 86
  .dwDialExtraPercent = 75
  .dwDialExtraSampleSeconds = 120
  .dwDialMode = 1
  .dwfNetProtocols = 4
  .dwfOptions = 1024262928
  .dwfOptions2 = 367-256 ' PPTP为此值
  .dwFramingProtocol = 1
  .dwHangUpExtraPercent = 10
  .dwHangUpExtraSampleSeconds = 120
  .dwRedialCount = 3
  .dwRedialPause = 60
  .dwType = RASET_Vpn
  CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)
  CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)
  CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址
  .dwVpnStrategy = 1 'vpn类型 0 默认 1仅pptp 2先pptp 3仅l2tp 4先l2tp
  .dwEncryptionType = 1 '数据加密类型 如果是pptp方式的话这句可以直接留空
  End With
  Dim rc As RASCREDENTIALS
  With rc
     Mid(.szPassword, 1, Len("xxxxxx")) = "xxxxxx"   'xxxxxx为密码
   .dwSize = 540
   .dwMask = 11 'PPTP此处设置值为11
  End With

上面是基本的PPTP连接方式的写法, 因为L2TP模式涉及到密钥方面, 所以一直很困惑

主要是在想RAS里面是否有一个特定的变量来存放密钥, 然后搜遍了谷歌百度CSDN, 始终不得其果

似乎没有人公开过L2TP的写法

最终看到某篇文章后顿时醒悟, 原来这个密钥并不是存放在一个单独的"变量"里!

其实写法很简单 下面贴出L2TP的写法核心代码:

With re
  .dwSize = LenB(re)
  .dwCountryCode = 86
  .dwCountryID = 86
  .dwDialExtraPercent = 75
  .dwDialExtraSampleSeconds = 120
  .dwDialMode = 1
  .dwfNetProtocols = 4
  .dwfOptions = 1024262928
  .dwfOptions2 = 16 ' 查阅资料得出L2TP这里应该设置为16 具体原理不得而知
  .dwFramingProtocol = 1
  .dwHangUpExtraPercent = 10
  .dwHangUpExtraSampleSeconds = 120
  .dwRedialCount = 3
  .dwRedialPause = 60
  .dwType = RASET_Vpn
  CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)
  CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)
  CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址
  .dwVpnStrategy = 3 'vpn类型 首先这里设置为3 也就是默认L2TP方式连接
  .dwEncryptionType = 3 '数据加密类型 设置为3 也就是密钥加密
  End With
  Dim rc As RASCREDENTIALS
  With rc
     Mid(.szPassword, 1, Len("xxxxxx")) = "xxxxxx"   'xxxxxx为预共享密钥, 而在PPTP方式里本应设置密码处直接设置成L2TP的密钥
   .dwSize = 540
   .dwMask = 16 'L2TP此处设置值为16
  End With

以上写法创建出的L2TP方式的VPN可以完美连接, 注意在连接的时候用户密码就直接是密码了 而不是密钥了!!!

最后说一下怎么在win7中隐藏VPN链接, 其实只需要为VPN指定一个电话薄位置就行了~

RasDial函数第二个参数lpszPhonebook的值直接指定成电话薄的位置即可~ 如:"c:\1.xxx"

以上方法研究了很久, 网上关于RAS相关的信息也很少, MSDN介绍的也比较简单, 所以查询起来很模糊~ 此文就当是为准备写相关程序的黑客们提供一个方便拉 o(∩_∩)o ~

其他代码部分L2TP和PPTP写法都是一样的  网上都有源码  我只贴最核心的代码  完整代码可以参考下这个:


VB 创建VPN拨号连接(自动勾选且填充预共享密钥)

Dim I As Integer
Dim N As Long
Option Explicit
'拨号/断网
Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
Private Const INTERNET_DIALSTATE_DISCONNECTED = 1
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Const INTERNET_DIAL_UNATTENDED = &H8000
Private Handle As Long

Private Type GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type

Private Type RASIPADDR
  a As Byte
  b As Byte
  c As Byte
  d As Byte
End Type

Private Type RASENTRY
  dwSize As Long
  dwfOptions As Long
  dwCountryID As Long
  dwCountryCode As Long
  szAreaCode(10) As Byte
  szLocalPhoneNumber(128) As Byte
  dwAlternateOffset As Long
  ipaddr As RASIPADDR
  ipaddrDns As RASIPADDR
  ipaddrDnsAlt As RASIPADDR
  ipaddrWins As RASIPADDR
  ipaddrWinsAlt As RASIPADDR
  dwFrameSize As Long
  dwfNetProtocols As Long
  dwFramingProtocol As Long
  szScript(259) As Byte
  szAutodialDll(259) As Byte
  szAutodialFunc(259) As Byte
  szDeviceType(16) As Byte
  szDeviceName(128) As Byte
  szX25PadType(32) As Byte
  szX25Address(200) As Byte
  szX25Facilities(200) As Byte
  szX25UserData(200) As Byte
  dwChannels As Long
  dwReserved1 As Long
  dwReserved2 As Long
  dwSubEntries As Long
  dwDialMode As Long
  dwDialExtraPercent As Long
  dwDialExtraSampleSeconds As Long
  dwHangUpExtraPercent As Long
  dwHangUpExtraSampleSeconds As Long
  dwIdleDisconnectSeconds As Long
  dwType As Long
  dwEncryptionType As Long
  dwCustomAuthKey As Long
  guidId As GUID
  szCustomDialDll(259) As Byte
  dwVpnStrategy As Long
  dwfOptions2 As Long
  dwfOptions3 As Long
  szDnsSuffix(255) As Byte
  dwTcpWindowSize As Long
  szPrerequisitePbk(259) As Byte
  szPrerequisiteEntry(256) As Byte
  dwRedialCount As Long
  dwRedialPause As Long
End Type

Private Type RASCREDENTIALS
  dwSize As Long
  dwMask As Long
  szUserName As String * 257 'UNLEN+1
  szPassword As String * 257 'PWLEN+1
  szDomain As String * 16 'DNLEN+1
End Type

Public Enum RASCredMask
   RASCM_UserName = &H1&
   RASCM_password = &H2&  '预共享密钥密码
   RASCM_Domain = &H4&
   RASCM_DefaultCreds = &H8&
   RASCM_PreSharedKey = &H10& '预共享密钥属性
   RASCM_ServerPreSharedKey = &H20&
   RASCM_DDMPreSharedKey = &H40&
End Enum

Public Enum RasEntryOptions2
RASEO2_SecureFileAndPrint = &H1
RASEO2_SecureClientForMSNet = &H2
RASEO2_DontNegotiateMultilink = &H4
RASEO2_DontUseRasCredentials = &H8
RASEO2_UsePreSharedKey = &H10 '使用预共享的密钥作身份验证
RASEO2_Internet = &H20
RASEO2_DisableNbtOverIP = &H40
RASEO2_UseGlobalDeviceSettings = &H80
RASEO2_ReconnectIfDropped = &H100
RASEO2_SharePhoneNumbers = &H200
RASEO2_SecureRoutingCompartment = &H400
RASEO2_IPv6SpecificNameServer = &H800
RASEO2_IPv6RemoteDefaultGateway = &H1000
RASEO2_RegisterIpWithDNS = &H2000
RASEO2_UseDNSSuffixForRegistration = &H4000
RASEO2_IPv4ExplicitMetric = &H8000
RASEO2_IPv6ExplicitMetric = &H10000
RASEO2_DisableIKENameEkuCheck = &H20000
End Enum

Private Const ET_None                     As Long = 0               '   No   encryption
Private Const ET_Require               As Long = 1               '   Require   Encryption
Private Const ET_RequireMax         As Long = 2               '   Require   max   encryption
Private Const ET_Optional             As Long = 3               '   Do   encryption   if   possible.   None   Ok.

Private Const VS_Default               As Long = 0               '   default   (PPTP   for   now)
Private Const VS_PptpOnly             As Long = 1               '   Only   PPTP   is   attempted.
Private Const VS_PptpFirst           As Long = 2               '   PPTP   is   tried   first.
Private Const VS_L2tpOnly             As Long = 3               '   Only   L2TP   is   attempted.
Private Const VS_L2tpFirst           As Long = 4               '   L2TP   is   tried   first.

Private Const RASET_Phone             As Long = 1             '   Phone   lines:   modem,   ISDN,   X.25,   etc
Private Const RASET_Vpn                 As Long = 2             '   Virtual   private   network
Private Const RASET_Direct           As Long = 3             '   Direct   connect:   serial,   parallel
Private Const RASET_Internet       As Long = 4               '   BaseCamp   internet
Private Const RASET_Broadband       As Long = 5           '   Broadband

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function RasSetEntryProperties Lib "rasapi32" Alias "RasSetEntryPropertiesA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpRasEntry As RASENTRY, ByVal dwEntryInfoSize As Long, ByVal lpbDeviceInfo As Long, ByVal dwDeviceInfoSize As Long) As Long
Private Declare Function RasSetCredentials Lib "rasapi32" Alias "RasSetCredentialsA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpCredentials As RASCREDENTIALS, ByVal fClearCredentials As Long) As Long

Private Sub Command1_Click()
Dim sEntryName As String, sUsername As String, sPassword As String
   
  Dim sServer As String
  sEntryName = Text1.Text
  sServer = Text2.Text
  sUsername = Text3.Text
  sPassword = Text4.Text
  If Create_VPN_Connection(sEntryName, sServer, sUsername, sPassword) Then
  MsgBox "VPN连接建立成功！"
  Else
  MsgBox "VPN连接建立失败！"
  End If
End Sub

Function Create_VPN_Connection(ByVal sEntryName As String, ByVal sServer As String, ByVal sUsername As String, ByVal sPassword As String) As Boolean
  Create_VPN_Connection = False
  Dim re As RASENTRY
  Dim sDeviceName As String, sDeviceType As String
  sDeviceName = "WAN 微型端口 (L2TP)"
  sDeviceType = "vpn"
  With re
  .dwSize = LenB(re)
  .dwCountryCode = 86
  .dwCountryID = 86
  .dwDialExtraPercent = 75
  .dwDialExtraSampleSeconds = 120
  .dwDialMode = 1
  .dwfNetProtocols = 4
  .dwfOptions = 1024262928

  '.dwfOptions2 = 367
  .dwfOptions2 = RasEntryOptions2.RASEO2_UsePreSharedKey '将dwfOptions2的属性设置为RASEO2_UsePreSharedKey

  .dwFramingProtocol = 1
  .dwHangUpExtraPercent = 10
  .dwHangUpExtraSampleSeconds = 120
  .dwRedialCount = 3
  .dwRedialPause = 60
  .dwType = RASET_Vpn
  CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName)
  CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType)
  CopyMemory .szLocalPhoneNumber(0), ByVal sServer, Len(sServer) '服务器地址
  .dwVpnStrategy = VS_L2tpOnly 'vpn类型
  .dwEncryptionType = ET_Require '数据加密类型
  End With
  Dim rc As RASCREDENTIALS
  With rc
     Mid(.szPassword, 1, Len("xxxxxx")) = "xxxxxx"   'xxxxxx为预共享密钥
   .dwSize = 540
   .dwMask = RASCredMask.RASCM_PreSharedKey
  End With
   
  Dim rtn As Long
  If RasSetEntryProperties(vbNullString, sEntryName, re, LenB(re), 0, 0) = 0 Then
  If RasSetCredentials(vbNullString, sEntryName, rc, 0) = 0 Then
  Create_VPN_Connection = True
  End If
  End If

End Function




'拨号
Function DialUp(LinkName As String) As Boolean
    InternetDial 0, LinkName, INTERNET_AUTODIAL_FORCE_UNATTENDED, Handle, 0
    DialUp = (Handle <> 0)
End Function


Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Timer1.Enabled = False
Text1.Text = "VPN连接"
Text2.Text = "111.111.111.111" '服务器地址
Text3.Text = "xxxxxx"
Text4.Text = "xxxxxx"
End Sub

参考文档：

http://www.vbmonster.com/Uwe/Forum.aspx/vb-networks/564/RasSetCredentials-VB6-Help

http://www.vbforums.com/archive/index.php/t-451832.html

Thanks Randy,Johno,RobDog888,Logophobic

这个是别人的，改成vc的随后奉上

woshidaniu
关注
专栏目录
RAS拨号程序支持PPTP L2TP IKEV2.rar
12-09
VC++开发的RAS拨号程序，支持PPTP L2TP IKEV2协议 。有问题或需要的兄弟或以私信。
NetworkManager-l2tp：对NetworkManager的L2TP和L2TPIPsec支持
02-22
NetworkManager-l2tp是用于NetworkManager 1.8及更高版本的VPN插件，它支持L2TP和L2TP / IPsec（即，基于IPsec的L2TP）连接。 对于L2TP支持，它使用xl2tpd（ ） 为了获得IPsec支持，它使用以下任一方法： 利伯...
l2tp
woshidaniu的专栏
09-27 2086
#include "stdafx.h"    #include "iostream.h"    #include     #include     #include "rasabsLay.h"        #define MAX_LOADSTRING 100        #define RASET_PHONE      1 // Phone lines: modem, ISDN
拨号工具 RasDial
arcko
07-14 290
http://technet.microsoft.com/en-us/library/bb490979 http://ss64.com/nt/rasdial.html
H3C各型号路由器L2TP配置汇总.rar
10-21
01 MSR810_MSR93X系列路由器L2TP （LAC---LNS模式）配置方法 02 ICG5000G_T_ICG6000系列路由器L2TP （LAC---LNS模式）配置方法 03 ICG2000D_ICG3000F系列路由器L2TP （LAC---LNS模式）配置方法 04 MSR2600-XX-X1_...
SSL,L2TP,IPSEC神州数码
最新发布
03-20
SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码SSL,L2TP,IPSEC神州数码
一键设置L2TP源代码
11-13
编译后直接设置好L2TP，帮助小白用户使用，输入用户密码后自动保存，在win10+RouteOS上测试通过
L2TP抓包分析pcapng
10-16
L2TP协议简介 Layer 2 Tunneling ...L2TP协议是由IETF起草，微软、Ascend、Cisco、3COM等公司参予制定的二层隧道协议，它结合了PPTP和L2F两种二层隧道协议的优点，为众多公司所接受，已经成为IETF有关2层通道协议
RasSetEntryProperties
cozil的专栏
09-07 2418
DWORD RasSetEntryProperties( _In_ LPCTSTR lpszPhonebook, _In_ LPCTSTR lpszEntry, _In_ LPRASENTRY lpRasEntry, _In_ DWORD dwEntryInfoSize, _In_ LPBYTE lpbDeviceInfo, _In_ DWORD
解决win10系统 L2TP连接尝试失败:ERROR因为安全层在初始化与远程计算机的协商时遇到了一个处理错误
热门推荐
minxihou的博客
07-30 24万+
错误描述：当连接VPN是回传错误为“ L2TP连接尝试失败，因为安全层在初始化与远程计算机的协商时遇到了一个处理错误” 操作系统：win10家庭版 VPN设置： 常规选项：配置了需要连接目标server的IP地址。 安全选项：VPN类型如下图所示 网络选项：在ipv4属性中配置如下: 高级选项IP设置中取消了“在远程网络上使用默认网关”然后链接时报错。因为不了解VPN服务器的配置
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值