vpnc语言
A. 网络工程专业
一、网络/网站管理与设计
1.硬件维护、局域网规划和构建、基于Windows2000网络管理和综合布线系统；
2.构建企业网络所需的DHCP、DNS、电子邮件、Internet接入服务等；建立和掌握企业网络管理技能，如活动目录、组策略；掌握网络管理的非技术性能力；
3.基于SQL Server 2000 数据库管理的设计与开发；
4.ASP动态网站编程；
二、企业Linux系统管理
1.掌握新一代互联网计算机的主流操作系统Linux 的使用与管理；
2.掌握Linux高级服务器的企业级服务的建设与管理；
三、网络安全技术及架构
1.安全基础、黑客攻击技术、入侵攻击的五个步骤软件的加壳退壳技术、软件汉化、软件破解；
2.Windows/Linux服务器安全设置；
3.加密及数据鉴别、防火墙和入侵检测、安全计划；
4.国家安全标准、通用标准ISO17799、BS7799；
5.安全辅助手段:数据存储（DAS、NAS、SAN、HSM、虚拟存储）、数据容错备份及灾难恢复（RAID、集群（Cluster）、负载均衡）；
四、网络设备管理，Cisco安全架构
1.综合布线、Cisco主流设备管理；
2.PIX防火墙；
3.VPN 3000；
五、网络安全编程
C语言网络安全编程
不建议自学，那样你会学的不深
B. 网络工程师都学什么
挺多的,好象现在学起来价格也不菲啊!
大概都在一万七八千那,不过有基础学起来到是不很难!
学期一般都是在一年半左右 !
一、网络/网站管理与设计
1.硬件维护、局域网规划和构建、基于Windows2000网络管理和综合布线系统；
2.构建企业网络所需的DHCP、DNS、电子邮件、Internet接入服务等；建立和掌握企业网络管理技能，如活动目录、组策略；掌握网络管理的非技术性能力；
3.基于SQL Server 2000 数据库管理的设计与开发；
4.ASP动态网站编程；
二、企业Linux系统管理
1.掌握新一代互联网计算机的主流操作系统Linux 的使用与管理；
2.掌握Linux高级服务器的企业级服务的建设与管理；
三、网络安全技术及架构
1.安全基础、黑客攻击技术、入侵攻击的五个步骤软件的加壳退壳技术、软件汉化、软件破解；
2.Windows/Linux服务器安全设置；
3.加密及数据鉴别、防火墙和入侵检测、安全计划；
4.国家安全标准、通用标准ISO17799、BS7799；
5.安全辅助手段:数据存储（DAS、NAS、SAN、HSM、虚拟存储）、数据容错备份及灾难恢复（RAID、集群（Cluster）、负载均衡）；
四、网络设备管理，Cisco安全架构
1.综合布线、Cisco主流设备管理；
2.PIX防火墙；
3.VPN 3000；
五、网络安全编程
C语言网络安全编程
六、职业素质
IT职业技能课程：IT职业规划、沟通技巧、团队合作、专业技术规范、面试技巧等职业技能培训。
C. vpn连接程序
<HTA:APPLICATION ID="MySampleHTA" Caption="yes" SCROLL="auto" border="none" borderStyle="static" SINGLEINSTANCE="yes" maximizebutton="no" BORDER="no" icon="dxdiag.exe"> <title>vpn 连接程序 hta版</title> <style> body { font-size:12; BACKGROUND: #DADADA; margin-left:5; } input { width:50; overflow:visible; border:1px solid lightblue; background-color:#cccccc; cursor:text; } button { border:1px solid gray; width:70; margin-left:2; cursor:hand; font-size:12; filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#eaeaff', endColorStr='#618fff', gradientType='0'); } </style> <body> <input id="id" size="30" value="mjj"></input><br> <input id="pass" size="30" value="mjj"></input><br> <input id="ip" size="50" value="vpn的ip" ></input><br> <button id="ok" onclick=vbs:conn>链接</button> <button id="nok" onclick=vbs:dconn>断开</button> <button id="ipshow" onclick=vbs:show>当前ip显示</button> <button id="vpnshow" onclick=vbs:vpnshow>vpn列表</button> <button id="vpnhelp" onclick=vbs:showHelp>帮助</button><br> <div id="url"></div> </body> <SCRIPT LANGUAGE="VBScript"> Set oShell = CreateObject("WScript.Shell") Sub Window_onLoad window.resizeTo 450,380 window.moveTo 300, 300 End Sub Sub x("ip").value=me.clipboarddata.getdata("Text") setTimeout "", 2000 End Sub Function x(obj) Set x=document.getElementById(obj) End function Sub dconn cmd=oShell.exec("rasdial /d").StdOut.ReadAll() x("url").innerHTML=cmd End Sub Sub show x("url").innerHTML= "<br><br><iframe src= http://www.ip138.com/ip2city.asp></iframe>" End Sub Sub conn tempfile="c:\tmp~386" If Findfile(tempfile) = false Then writef tempfile,x("ip").value x("url").innerHTML ="Create pbk file ........ok，连接中" Else writef tempfile,x("ip").value x("url").innerHTML ="pbk file 存在........ok，连接中" End If x("url").innerHTML= oShell.exec("rasdial pvpn "&x("id").value&" "&x("pass").value&" /PHONEBOOK:"&tempfile).StdOut.ReadAll() End Sub Sub vpnshow Set FSO = CreateObject("Scripting.FileSystemObject") File = "ip.txt" Set txt = fso.OpenTextFile(File) If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置 Content = txt.ReadAll '读取整个文件的数据 Lines = Replace(Content, vbCrlf, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>" x("url").innerHTML= Lines End If End Sub Function Findfile(str) Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(str) Then findfile=true Else findfile=false End If End Function Function writef(pbk_file,ip) Set FSO = CreateObject("Scripting.FileSystemObject") with fso.opentextfile(pbk_file,2,true) .writeline "[pvpn]" .writeline "Encoding=1" .writeline "Type=2" .writeline "AutoLogon=0" .writeline "UseRasCredentials=1" .writeline "DialParamsUID=546750" .writeline "Guid=" .writeline "BaseProtocol=1" .writeline "VpnStrategy=2" .writeline "ExcludedProtocols=0" .writeline "LcpExtensions=1" .writeline "DataEncryption=8" .writeline "SwCompression=1" .writeline "NegotiateMultilinkAlways=0" .writeline "SkipNwcWarning=0" .writeline "SkipDownLevelDialog=0" .writeline "SkipDoubleDialDialog=0" .writeline "DialMode=1" .writeline "DialPercent=75" .writeline "DialSeconds=120" .writeline "HangUpPercent=10" .writeline "HangUpSeconds=120" .writeline "OverridePref=15" .writeline "RedialAttempts=3" .writeline "RedialSeconds=60" .writeline "IdleDisconnectSeconds=0" .writeline "RedialOnLinkFailure=0" .writeline "CallbackMode=0" .writeline "CustomDialDll=" .writeline "CustomDialFunc=" .writeline "CustomRasDialDll=" .writeline "AuthenticateServer=0" .writeline "ShareMsFilePrint=1" .writeline "BindMsNetClient=1" .writeline "SharedPhoneNumbers=0" .writeline "GlobalDeviceSettings=0" .writeline "PrerequisiteEntry=" .writeline "PrerequisitePbk=" .writeline "PreferredPort=VPN4-0" .writeline "PreferredDevice=WAN Miniport (L2TP)" .writeline "PreferredBps=0" .writeline "PreferredHwFlow=1" .writeline "PreferredProtocol=1" .writeline "PreferredCompression=1" .writeline "PreferredSpeaker=1" .writeline "PreferredMdmProtocol=0" .writeline "PreviewUserPw=1" .writeline "PreviewDomain=0" .writeline "PreviewPhoneNumber=0" .writeline "ShowDialingProgress=1" .writeline "ShowMonitorIconInTaskBar=1" .writeline "CustomAuthKey=-1" .writeline "AuthRestrictions=608" .writeline "TypicalAuth=2" .writeline "IpPrioritizeRemote=1" .writeline "IpHeaderCompression=0" .writeline "IpAddress=0.0.0.0" .writeline "IpDnsAddress=0.0.0.0" .writeline "IpDns2Address=0.0.0.0" .writeline "IpWinsAddress=0.0.0.0" .writeline "IpWins2Address=0.0.0.0" .writeline "IpAssign=1" .writeline "IpNameAssign=1" .writeline "IpFrameSize=1006" .writeline "IpDnsFlags=0" .writeline "IpNBTFlags=1" .writeline "TcpWindowSize=0" .writeline "UseFlags=0" .writeline "IpSecFlags=0" .writeline "IpDnsSuffix=" .writeline "" .writeline "NETCOMPONENTS=" .writeline "ms_server=1" .writeline "ms_msclient=1" .writeline "ms_psched=1" .writeline "" .writeline "MEDIA=rastapi" .writeline "Port=VPN4-0" .writeline "Device=WAN Miniport (L2TP)" .writeline "" .writeline "DEVICE=vpn" .writeline "PhoneNumber="&x("ip").value .writeline "AreaCode=" .writeline "CountryCode=1" .writeline "CountryID=1" .writeline "UseDialingRules=0" .writeline "Comment=" .writeline "LastSelectedPhone=0" .writeline "PromoteAlternates=0" .writeline "TryNextAlternateOnFail=1" .writeline "" .close End with Set fso = Nothing End Function sub showHelp msg = " 在同目录下建立ip.txt" & vbcrlf msg = msg & "------------------------------------------------" & vbcrlf msg = msg & " ip.txt里是vpn的ip列表，一行一个，可以在每行里加说明" & vbcrlf msg = msg & "复制IP会自动粘贴到ip框里，是否成功的话，请看ip显示：" & vbcrlf alert msg end sub </SCRIPT> 贪狼出品，必属精品。
D. 网络安全工程师的要求是什么
安全基础；系统安全（Windows&Linux）；黑客攻防、恶意代码；通讯安全；常见应用协议威胁；WEB&脚本攻击技术；防火墙技术（FireWall）；入侵检测系统技术（IDS）；加密&VPN技术；产品安全；安全管理。可以去了解一下。
E. 堕落了，怎么办
知道堕落不失为一件好事，至少在意识里已经在排斥堕落。不用把自己陷在这种烦恼里，抽出身来尝试并努力地做下面四件事：
1、发现自已身上的优点，运用这些优点，拓展这些优点，展示这些优点。
2、抽点时间，静下心来去看一看“励志”方面的故事，它们很有趣，并且不乏味；尽可能侧重看一些讲解心理的资料，它们很重要，只是被我们所忽略。时间并不难挤，当你真的去做了，你将体会到其中的快乐，确实受益匪浅。（推荐一本书：《世界上最经典的心理学故事全集》）
3、把你所认为的堕落一条条写下来，细分，分到最细的地方，针对每一点，想想它们将带来什么样后果。然后迅速用换位思考的方式，假设这个堕落是别人的，你会对他有什么反应。这一步非常关键，之后，你将意外地发现，克服这样的堕落其实并不太难。
4、过去的就让它过去，重要的是今天：今天，你开始改变了吗？