Anti AHH Kodlanışı


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

Yazar: B3YAZ    0 Yorum    286 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 24.11.2015, 22:18:34 #1
B3YAZ Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:12 Konuları:2 Kayıt 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:
1
2
3
4
5
6
If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If


--CheckBox2'a Girilecek Kodlar--

Kod:
1
2
3
4
5
6
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("Wolftü.bin", hack, "3102510019")


--Timer2'ye Girilecek Kodlar--

Kod:
Dim hack As Integer = Label1.Text + &H1A1190
        WriteLong("Wolftü.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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("Wolftü.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:
1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("Wolftü.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 
Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın

Alternatif Link İçin Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın












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

Konuyu Okuyanlar:
1 Ziyaretçi


MemoryHackers