USB Rubber Ducky Komut Dosyası Kodlayıcı (VBScript): 5 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:18

Bir USB Rubber Ducky'niz varsa, çok can sıkıcı bir görevin komut dosyanızı bir.bin dosyasına derlemek olduğunu bileceksiniz. Herhangi bir tür hata ayıklama yapmanız gerekiyorsa, derlenmiş komut dosyanızın sürekli olarak indirilmesinin acı verici olabileceğini bileceksiniz. Bu sorunu çözmek için kodunuzu hızlı ve kolay bir şekilde derleyebilen bir VBScript oluşturdum.

Derlenmiş.exe dosyasını ve kaynak kodunu aşağıdan indirebilirsiniz.

Her neyse, muhtemelen vbs'de böyle harika bir GUI uygulamasını nasıl yaptığımı merak ediyorsunuzdur ve eğer öyleyse, 3. adıma atlayın.

Adım 1: Yükleniyor…

REAMDE.txt dosyasında bunun nasıl yapılacağına ilişkin talimatlar da vardır. Her neyse, önce C sürücünüzde yoksa 'temp' adında bir klasör oluşturmalısınız. Ayrıca java kurulu değilse buradan edinebilirsiniz. Ardından, duckencode.jar dosyasını indirin ve dosyayı c:\temp klasörünüze taşıyın. Ardından,.zip dosyalarından birini çıkarın ve derlenmemiş sürümü kullanıyorsanız Duck.hta'yı 'ico.ico' ve 'pic.gif' ile aynı dizinde çalıştırın. Veya derlenmiş.exe kullanıyorsanız, sadece 'Duck.exe'yi çalıştırın.

Artık bir sonraki adıma geçebiliriz…

2. Adım: Kullanım…

Bu program gerçekten basittir, kullanmak için, kodunuzu otomatik olarak yapıştırmak için 'Panodan yapıştır'a tıklamanız yeterlidir. Veya komut dosyasını bir metin dosyasından yüklemek için metin dosyasından yükle'ye tıklayın. Ardından kodunuz aşağıdaki metin kutusunda görünecektir. Kodunuzda isteyebileceğiniz son değişiklikleri yapın ve 'Kodla' düğmesine basın. c:\temp konumuna gidin ve 'inject.bin' dosyasını USB Rubber Ducky'nize taşıyın.

script.txt'nin ne olduğunu merak ediyor olabilirsiniz. Nedir, metin kutusundaki derlenmemiş koddur. Ham kodun yedeği olarak kullanılır.

NOT: Küçük bir komut dosyası oluşturmak istiyorsanız, kodunuzu metin kutusuna yazmanız yeterlidir. USB Rubber Ducky'nizi test etmenin hızlı ve kolay bir yolu.

vbs'de GUI'lerin nasıl yapıldığı ve bu programın nasıl yapıldığı hakkında daha fazla bilgi edinmek istiyorsanız sonraki adıma geçin, aksi takdirde:

Bu talimatı okuduğunuz için teşekkür ederiz ve herhangi bir sorunuz, yorumunuz veya endişeniz varsa, lütfen bir yorum gönderin veya bana pm atın

Adım 3: VBScript'te GUI'ler

Yani evet, vbs'de GUI'ler yapmak mümkündür. Bunu yapmanın yolu, metninizi bir HTA'ya sarmaktır. Henüz bilmiyorsanız, HTA, vbscript'ler ve jscript'ler gibi betikleri bir GUI'ye sarmak için kullanılan html'ye çok benzeyen bir betik dilidir. Ayrıntılı açıklama ve öğretici burada.

Artık hta'nın ne olduğunu bildiğinize göre, size nasıl kolayca tez yapacağınıza dair bazı ipuçları vereyim. Önce aşağıdaki HTA helpomatic'i (resim 2) indirin. Maalesef orijinal bağlantı artık çalışmıyor, ama neyse ki bir süre önce bir kopyasını kaydettim. Ardından htaedit ile birlikte gelen vbsedit'i indirip kurun.

Bu iki programa sahip olduktan sonra, GUI oluşturmaya başlamak için gerçekten html/hta deneyimine ihtiyacınız yoktur. Bu, sadece GUI yapmak için hta öğrenmek istemeyen benim gibi insanlar için harika.

Şimdi Duck Encoder'ı nasıl yaptığımı görmek için bir sonraki adıma geçin…

Adım 4: Nasıl Yaptım

Yani, önce:

APPLICATIONNAME="Duck Encoder" ID="DuckEncoder" VERSION="1.0" INNERBORDER="hayır" MAXIMIZEBUTTON="hayır" ICON="ico.ico" SCROLL="hayır"

Bu, simge, kenarlık türü, vb. Gibi birkaç şeyi ayarlar.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject("Scripting. FileSystemObject") If Not objFso. FileExists("c:\temp\duckencode.jar") Sonra MsgBox "Hata, dosya bulunamadı: c: \temp\duckencode.jar", 16, "Duck Encoder" Self.close() End If End Sub

Ardından, bu alt, program ilk başlatıldığında otomatik olarak çalışır. Yaptığı şey, pencereyi yeniden boyutlandırmak ve ardından 'duckencode.jar'ın doğru dizinde olduğundan emin olmak için kontrol etmektir.

Alt OnClickButtonbtnLoad()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject("Scripting. FileSystemObject") ObjShlApp = CreateObject("Shell. (0, "Dosyayı içeren klasöre göz atın: ", 16384, 0) Eğer Err. Number 0 ise MsgBox "Dosyayı içeren KLASÖRÜ seçmelisiniz.", 16, "Duck Encoder" Err. Clear() Else If objFolderLocation = "" Sonra Sub'dan Çıkış Hatası Git 0 Set objFolder = objFso. GetFolder(objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" Her objFile İçin colFiles If InStr(objFile. Name, ".txt") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox("Lütfen kodlamak istediğiniz doğru metin dosyasını girin: " & vbCrLf & vbCrLf & strTextFileList, "Ducky Encoder") Değilse (strFileLocation) Sonra Değilse objFso. FileExists(objFolder) Location. Self. Path & "\" & strFileLocation) Ardından MsgBox "Hata, listeden bir metin dosyası seçmelisiniz!", 16, "Duck Encoder" Diğer Açık Hata Devam Et Sonraki strFileLocation = objFolderLocation. Self. Path & "\ " & strFileLocation Set objFile = objFso. OpenTextFile(strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close() Eğer Err. Number 0 ise MsgBox "Metin dosyası boş.", 16, "Duck Encoder" End Bitiyorsa Bitiyorsa Bitiyorsa Bitiyorsa Sub

Tamam, kodun bu kısmı gerçekten kafa karıştırıcı, bu, kullanıcının 'Metin dosyasından yükle'yi tıkladığındaki koddur. hta'da açık dosya iletişim kutusu oluşturmak neredeyse imkansız olduğundan, program, kullanıcıdan komut dosyasını içeren klasörü seçmesini istemek için bir klasöre gözat iletişim kutusu açar. Ardından program, kullanıcıya bu klasöre hangi metin dosyasının yükleneceğini soran bir girdi kutusu açar. Ardından program dosyanın içinde ne varsa okur ve metin kutusuna koyar.

Sub OnClickButtonbtnPaste() Dim objHTML, ClipboardText Set objHTML = CreateObject("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData("text") If IsNull(ClipboardText) = True Then MsgBox "Panoda hiçbir şey yok!", 16, "Duck Encoder" Else txtScript. Value = ClipboardText End If End Sub

Tüm bu kodun yaptığı, kullanıcı 'Panodan yapıştır' seçeneğine tıkladığında, program metni panodan metin kutusuna yükler.

Adım 5: Nasıl Yaptım (2. Kısım)

Sub OnClickButtonbtnEncode() Eğer txtScript. Value = "" O zaman MsgBox "Kod yok!", 16, "Duck Encoder" Diğer Dim objFso, txtScriptFile Set objFso = CreateObject("Scripting. Filesystemobject") Set txtScriptFile = objFile(. OpenText) "c:\temp\script.txt", 2, True) txtScriptFile. WriteLine(txtScript. Value) txtScriptFile. Close() idTimer = window.setTimeout("Derleme", 800, "VBScript") End If End Alt Alt Derleme () window.clearTimeout(idTimer) Dim objWshShl: Set objWshShl = CreateObject("WScript. Shell") objWshShl. Run "java.exe -jar c:\temp\duckencode.jar -ic:\temp\script.txt -oc:\temp\inject.bin", 0 'MsgBox "Komut dosyası inject.bin için c:\temp olarak derlendi", vbOKOnly+vbInformation, "Ducky Encoder" End Sub

Bu kod, 'Kodla'yı tıkladığınızda çalıştırılır.

Yaptığı şey, script.txt adında bir metin dosyası oluşturmak ve metin kutusunun içindekileri ona koymaktır. Ardından 0,8 saniye bekler ve derler.

Kodun geri kalanı sadece GUI'yi oluşturur. Temel hta'yı biliyorsanız, oldukça açıklayıcıdır.