---
# System prepended metadata

title: WU VBS

---

# VBS

Ở bài này ta sẽ nhận được 1 file zip có tên là "code.zip".
 Do đề bài không cho mật khẩu nên ta sẽ tiến hành brute force mật khẩu của file zip bằng tool fcrackzip
 
 ![image](https://hackmd.io/_uploads/rki0yj0Up.png)
 
 như trong hình, mật khẩu sẽ là "kma9239"  
 sau khi giải nén ta được file "code.vbs". Do mình dùng windows nên mình sẽ mở file này bằng notepad. Nội dung như bên dưới.
 
:::info
Dim http : Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")  
Dim url : url = "http://api.bitly.com/v3/shorten?login=YOUR_BITLY_USERNAME&apiKey=YOUR_BITLY_API_KEY&longUrl=https://pastebin.pl/view/a60d3da5"

http.Open "GET", url, False  
http.setRequestHeader "Content-Type", "text/xml"  
http.send ""

If http.Status = 200 Then  
    Dim response : response = http.responseText  
    Dim shortUrl : shortUrl = ParseJson(response)("data")("url")  
    WScript.Echo "Shortened URL: " & shortUrl  
Else  
    WScript.Echo "Error: " & http.Status & " - " & http.statusText  
End If

Function ParseJson(json)  
    Dim objJson : Set objJson = CreateObject("MSJSON.Parser")  
    Set ParseJson = objJson.Parse(json)  
End Function
:::

nhìn vào thì thứ đầu tiên mình để mắt đến sẽ là đoạn url, khi bấm vào thì trình duyệt của mình chỉ hiện màu trắng.  
nhìn lại đoạn url lần nữa ta sẽ thấy 1 đường dẫn, chính là https://pastebin.pl/view/a60d3da5  
đây là 1 trang lưu trữ văn bản, và nội dung của văn bản được chia sẽ chính là "S0NTQ3tWYjRfaDAxX2xvciIiX2FlX3RoMG5nX2M0bV89KCgofQ=="  
khi nhìn vào mình đoán ngay nó được mã hoá base64 nên mình quăng nó lên cyberchef (let him cook =)) )  

### và, tadaa, flag là "KCSC{Vb4_h01_lor""_ae_th0ng_c4m_=(((}"