Çalıştıktan sonra kendini yokeden .vbs scripti


çalıştıktan sonra kendini yokeden .vbs scripti

Bazen belirli şeyleri yaptırmak için script dillerinden birini kullanmamız bize en optimum sonucu verir , Optimum en az girdi ile en yüksek çıktıyı almak şeklinde kısaca tanımlanabilir , o nedenle

bazen bir işi yaptırmak için birkaç satırlık bir script kullanmak en makul olanıdır , bunu ister bir yazılım içinde kullanın , isterse Winrarla oluşturulan bir exe nin içerisinde eğer kodlarını başkasının görmesini istemiyorsanız birdefa çalıştıktan sonra kendini silmesini sağlayabilirsiniz , burada amaç elbetteki %100 bir koruma sağlamak değildir çünkü scriptlerin kodlarını %100 koruyabilen bir metod varsa bile ben duymadım , ayrıca uzak bir bilgisayarda birdefa çalıştırılıp kendini silen bir script daha farklı amaçlar için de kullanılabilir , kodumuz oldukça basit birkaç satırdan oluşuyor :

' Created by www.sordum.net
Wscript.Echo "Kendi kendini yokedecek!"
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.DeleteFile Wscript.ScriptFullName, True

yada

' Created by www.sordum.net
Wscript.Echo "Kendi kendini yokedecek!"
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
objFSO.DeleteFile WScript.ScriptFullName
WScript.Quit

Kodun ilk satırı sadece istenen bir mesajı çıkartmak için oraya eklendi , mesela üstteki kodu bir .txt dosyasına yapıştırıp kendini_yokedecek.vbs şeklinde saklayıp çalıştırırsanız aşağıdaki gibi bir uyarı alırsınız:

kendini silen .vbs scripti

Görüldüğü üzere ilk satırdaki mesaj görüntülendi burada tamam a da bassanız sağ köşedeki çarpıya da bassanız script kendini çöp kutusuna da gitmeyecek şekilde silecektir , peki gelin bu kodları sadece mesaj çıkartmak için değilde başka bir scriptin çalıştıktan sonra kendini silmesi için kullanalım , örneğimizde bir tıkla C:\sordum.net klasörü oluşturan bir script verip bunun çalıştıktan sonra kendini silmesini sağlayacağız:

' Created by www.sordum.net
Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "c:\sordum.net"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Just created " & strDirectory
WScript.Quit

ben üstteki kodu en başta verdiğim kodları da ilave edip aşağıdaki şekilde düzenliyorum

' Created by www.sordum.net
Option Explicit
Dim objFSO, objFolder, strDirectory
strDirectory = "c:\sordum.net"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Just created " & strDirectory
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
objFSO.DeleteFile WScript.ScriptFullName
WScript.Quit

Artık kodumuz birkere çalışıp kendini yokedecektir.

Lütfen kaynak belirtmeden kullanmayınız



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA