Visual Basic Forum

kazu · Tutorial Leser Anmeldedatum: 21.05.2008 Beiträge: 22

Kann man diesen Schutz umgehen bzw knacken?

Visual Basic: [code]Private Sub Form_Load()
Me.Hide
Me.Visible = False
Dim get1 As String
Dim get2 As String
Dim get3 As String
Dim get_ok As String
Dim get_check As String
Dim get_checked As String
'==========================================
get1 = Environ$("PROCESSOR_LEVEL")
get2 = Environ$("USERDOMAIN")
get3 = Environ$("PROCESSOR_REVISION")
'==========================================
If get1 = "" Then ' <- PROCESSOR_LEVEL
get1 = "135895"
Else
get1 = "976456"
End If
If get2 = "" Then ' <- USERDOMAIN
get2 = "789645"
Else
get2 = "245645"
End If
If get3 = "" Then ' <- PROCESSOR_REVISION
get3 = "687645"
Else
get3 = "246867"
End If
'==========================================
get_ok = Val(get1) + Val(get2) - Val(get3)
get_check = "1189475"
get_checked = "5"
'==========================================
If Not get_ok = Val(get_check) / Val(get_checked) Then
get1 = ""
get2 = ""
get3 = ""
get_ok = ""
get_check = ""
get_checked = ""
Me.Hide
Unload Me
Else
get1 = ""
get2 = ""
get3 = ""
get_ok = ""
get_check = ""
get_checked = ""
Me.Visible = True
Me.Show
End If
End Sub[/code]

Hatte langeweile und wollte was testen dan kahm das bei raus xD

r4z3r · Poster Anmeldedatum: 16.04.2008 Beiträge: 173

Ich hab mir den Code zwar nicht genau angeschaut, aber If-Abfragen kann man sehr leicht umgehen. Und da dein Programm fast nur aus diesen besteht wird das ziemlich leicht

kazu · Tutorial Leser Anmeldedatum: 21.05.2008 Beiträge: 22

Was gibt es für eine alternative zu if ?

^^kev#### · Verfasst am: 16.06.2008, 20:08

Select Case

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Du solltest auch die Veriablennamen zu irgend nen Stuss ändern wenn du ganz sicher gehen willst.

Außerdem kann man, meines Wissens, Umgebungsvariablen faken.

kazu · Tutorial Leser Anmeldedatum: 21.05.2008 Beiträge: 22

Visual Basic: [code]Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName _
As String, ByVal pVolumeNameBuffer As String, ByVal _
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As _
Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Const MAX_FILENAME_LEN As Long = 256&

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Public Function SerNum(Drive$) As Long
Dim No As Long, s As String * MAX_FILENAME_LEN

Call GetVolumeInformation(Drive & ":", s, MAX_FILENAME_LEN, _
No, 0&, 0&, s, MAX_FILENAME_LEN)
SerNum = No
End Function
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Private Sub Form_Load()
Me.Hide
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim pw1 As String
Dim pw2 As String
Dim pw3 As String
Dim pw4 As String
Dim check As String
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
pw1 = Environ$("PROCESSOR_LEVEL")
pw2 = Environ$("PROCESSOR_REVISION")
pw3 = Environ$("USERDOMAIN")
pw4 = SerNum("c")
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Select Case pw1
Case " xxx ": ' <- PROCESSOR_LEVEL
pw1 = "1"
Case Else:
pw1 = "0"
End Select

Select Case pw2
Case " xxx ": ' <- PROCESSOR_REVISION
pw2 = "1"
Case Else:
pw2 = "0"
End Select

Select Case pw3
Case " xxx ": ' <- USERDOMAIN
pw3 = "1"
Case Else:
pw3 = "0"
End Select

Select Case pw4
Case " xxx ": ' <- SERIENNUMMER
pw4 = "1"
Case Else:
pw4 = "0"
End Select
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
check = pw1 & "-" & pw2 & "-" & pw3 & "-" & pw4
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Select Case check
Case "1-1-1-1":
Me.Show
Me.Visible = True
pw1 = ""
pw2 = ""
pw3 = ""
check = ""
Case Else:
Me.Hide
pw1 = ""
pw2 = ""
pw3 = ""
check = ""
Unload Me
End Select
' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
End Sub
[/code]

So etwas besser? Es soll bei den umgebungsvariablen bleiben^^ auch wenn man es daran faken kann aber ist der rest so sicher?

dcm · Poster Anmeldedatum: 04.05.2008 Beiträge: 101

sicher ist es sicher nicht.
vielleicht ein kleines bisschen sicherer... ^^
aber unerheblich. dürfte kein problem darstellen...
nimm doch irgendeinen crypter