เข้ารหัส Batch File ด้วย Batch File

 ในบางครั้งเขียนแบตช์ไฟล์ขึ้นมาใช้งาน เราไม่อยากให้ใครรู้ว่าเราเขียนคำสั่งอะไรบ้าง...(ป้องกันพนักงานในบริษัท หรือ ยูสเซอร์ใช้งานทั่วไป) ล่วงรู้คำสั่ง ซึ่งบางคนก็ให้ทำการสร้างเป็น .EXE แต่ .EXE เอง...โปรแกรมฆ่าไวรัสกลับมองเป็นไวรัส และ มัลแวร์จะทำอย่างไรละทีนี้มาดูการเข้ารหัสง่ายๆ ด้วยภาษา BatchFile&VBScript

โปรแกรมเข้ารหัสแบตช์ไฟล์

::' ---------- Batch portion -------------------

  rem^ &@echo off

  rem^ &cls

  rem^ &color A

  rem^ &ECHO  /##                           /##           /#######              /##               /##                              

  rem^ &ECHO ^| ##                          ^| ##          ^| ##__  ##            ^| ##              ^| ##                              

  rem^ &ECHO ^| ##        /######   /#######^| ##   /##    ^| ##  ##  /######  /######    /#######^| #######                         

  rem^ &ECHO ^| ##       /##__  ## /##_____/^| ##  /##/    ^| #######  ^|____  ##^|_  ##_/   /##_____/^| ##__  ##                        

  rem^ &ECHO ^| ##      ^| ##  ##^| ##      ^| ######/     ^| ##__  ##  /#######  ^| ##    ^| ##      ^| ##  ##                        

  rem^ &ECHO ^| ##      ^| ##  ^| ##^| ##      ^| ##_  ##     ^| ##  ## /##__  ##  ^| ## /##^| ##      ^| ##  ^| ##                        

  rem^ &ECHO ^| ########^|  ######/^|  #######^| ##   ##    ^| #######/^|  #######  ^|  ####/^|  #######^| ##  ^| ##                        

  rem^ &ECHO ^|________/ ______/  _______/^|__/  __/    ^|_______/  _______/   ____/  _______/^|__/  ^|__/                        

  rem^ &echo.

  rem^ &set /p p=[ Path FileName ]    

  rem^ &wscript //nologo //e:vbscript %0 %p%

  rem^ &goto :eof



'--------------- VBS portion ------------------

Dim file, content

Set args = Wscript.Arguments

Set file = CreateObject("Scripting.FileSystemObject")TextFile(args(0), 1)

content = file.ReadAll

content = chr(255) & chr(254) & chr(13) & chr(10) & "cls" & chr(13) & chr(10) & content

Set file = CreateObject("Scripting.FileSystemObject")TextFile(args(0), 2)

file.Write(content)

คำสั่งนี้คือการสร้างโปรแกรมแบตช์ไฟล์เพื่อเข้ารหัสแบตช์ไฟล์ (เฮย...ทำได้เหรอ) มันทำงานได้จริง ด้านบนเป็นคำสั่งเข้ารหัสทีนี้มาดูคำสั่งถอดรหัส

โปรแกรมถอดรหัสแบตช์ไฟล์

::' ---------- Batch portion -------------------

  rem^ &@echo off

  rem^ &cls

  rem^ &color A

  rem^ &ECHO  /##                           /##           /#######              /##               /##                              

  rem^ &ECHO ^| ##                          ^| ##          ^| ##__  ##            ^| ##              ^| ##                              

  rem^ &ECHO ^| ##        /######   /#######^| ##   /##    ^| ##  ##  /######  /######    /#######^| #######                         

  rem^ &ECHO ^| ##       /##__  ## /##_____/^| ##  /##/    ^| #######  ^|____  ##^|_  ##_/   /##_____/^| ##__  ##                        

  rem^ &ECHO ^| ##      ^| ##  ##^| ##      ^| ######/     ^| ##__  ##  /#######  ^| ##    ^| ##      ^| ##  ##                        

  rem^ &ECHO ^| ##      ^| ##  ^| ##^| ##      ^| ##_  ##     ^| ##  ## /##__  ##  ^| ## /##^| ##      ^| ##  ^| ##                        

  rem^ &ECHO ^| ########^|  ######/^|  #######^| ##   ##    ^| #######/^|  #######  ^|  ####/^|  #######^| ##  ^| ##                        

  rem^ &ECHO ^|________/ ______/  _______/^|__/  __/    ^|_______/  _______/   ____/  _______/^|__/  ^|__/                        

  rem^ &echo.

  rem^ &set /p p=[ Path FileName ]    

  rem^ &wscript //nologo //e:vbscript %0 %p%

  rem^ &goto :eof



'--------------- VBS portion ------------------

Dim file, content

Set args = Wscript.Arguments

Set file = CreateObject("Scripting.FileSystemObject")TextFile(args(0), 1)

content = file.ReadAll

content = chr(255) & chr(254) & chr(13) & chr(10) & "cls" & chr(13) & chr(10) & content

Set file = CreateObject("Scripting.FileSystemObject")TextFile(args(0), 2)

file.Write(content)

Create Date : 04 กรกฎาคม 2566 Last Update : 4 กรกฎาคม 2566 12:45:19 น. Counter : 258 Pageviews.		0 comments
Share Tweet