Anti AHH Kodlanışı


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: B3YAZ    0 Yorum    240 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 24.11.2015, 22:18:34 #1
B3YAZ Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:12 Konu Sayısı:2 Üyelik Tarihi:25.07.2015 Rep Puanı: 0



Evet arkadaşlar bugün Anti AHH Kodlamasını öğrenicez.

--İlk olarak gerekli malzemeler--
1 : 2 adet Checkbox
2 : 2 Adet Timer
2 : 1 Adet Button ve Label


--CheckBox1'a Girilecek Kodlar--

Kod:
If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If

--CheckBox2'a Girilecek Kodlar--

Kod:
If CheckBox2.Checked = True Then
            Timer2.Start()
        End If
        If CheckBox2.Checked = False Then
            Timer2.Stop()
        End If


--Timer1'e Girilecek Kodlar--

Kod:
Dim hack As Integer = Label1.Text + &H10190
        WriteLong("WolfTeam.bin", hack, "3102510019")

--Timer2'ye Girilecek Kodlar--

Kod:
Dim hack As Integer = Label1.Text + &H1A1190
        WriteLong("WolfTeam.bin", hack, "3102510019")


Düzenlenicek Yerler = &H123321
Düzenlenicek Yerler = Label1.Text [OBJ Çekilen Labeli Girin.]

--Buttona Girilecek Kodlar[EĞER VİSUAL STUDİO 2013 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--

Kod:
Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            If TypeOf enumerator Is IDisposable Then
                TryCast(enumerator, IDisposable).Dispose()
            End If
        End Try


--Buttona Girilecek Kodlar[EĞER VİSUAL BASİC 2010 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--

Kod:
Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            
        End Try


--Videolu Anlatım--





--İndirme Linki--
Projeyi İndirmek İçin 
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.

Alternatif Link İçin linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.



mediavenus










Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir