• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

ByPass Kodlama 2.Yol

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Dark Hack

Onaylı Üye
Katılım
8 May 2016
Mesajlar
208
Beğeni Puanı
1
Beyler Buda İkinci Bi ByPass Kodlama !​

[font='Open Sans', sans-serif, Arial]Public Class Form ÜZERİNE ŞU KODLAR YAZILACAK[/FONT]

[font='Open Sans', sans-serif, Arial][font='Titillium Web', sans-serif]Kod:[/FONT]
[/FONT]

Kod:
Imports Microsoft.VisualBasic
[font='Open Sans', sans-serif, Arial][font='Titillium Web', sans-serif]Kod:[/FONT][/FONT]
Kod:
[CENTER][b][color=#333333][align=center]Imports Microsoft.VisualBasic.CompilerServices[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Collections[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Collections.Generic[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.ComponentModel[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Diagnostics[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Drawing[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.IO[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Runtime.CompilerServices[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Threading[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Windows.Forms[/CENTER][/color][/b][/align]
[CENTER][b][color=#333333][align=center]Imports System.Environment[/color][align=center][/b][align=center][/CENTER]


[align=center]
[font='Open Sans', sans-serif, Arial]
 

Form1 Load a şu kodlar yazılacak

[font=Monaco, Consolas, Courier, monospace]Try[/FONT]
[font=Monaco, Consolas, Courier, monospace]           Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)[/FONT]
[font=Monaco, Consolas, Courier, monospace]           FileSystem.FileClose(New Integer() {1})[/FONT]
[font=Monaco, Consolas, Courier, monospace]           FileSystem.FileClose(New Integer() {2})[/FONT]
[font=Monaco, Consolas, Courier, monospace]           If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then[/FONT]
[font=Monaco, Consolas, Courier, monospace]               FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace]           Else[/FONT]
[font=Monaco, Consolas, Courier, monospace]               File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})[/FONT]
[font=Monaco, Consolas, Courier, monospace]               FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace]           End If[/FONT]
[font=Monaco, Consolas, Courier, monospace]           If My.Computer.FileSystem.FileExists((folderPath & "\xhunter1.sys")) Then[/FONT]
[font=Monaco, Consolas, Courier, monospace]               FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace]           Else[/FONT]
[font=Monaco, Consolas, Courier, monospace]               File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})[/FONT]
[font=Monaco, Consolas, Courier, monospace]               FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace]           End If[/FONT]
[font=Monaco, Consolas, Courier, monospace]       Catch ex As Exception[/FONT]
[font=Monaco, Consolas, Courier, monospace]       End Try [/FONT][/FONT]

[/align]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt