Snel een Crack Me gemaakt, gecode in VB.NET (VB10)
Hij is niet geobfuscate want dat is noob. Goodluck!
Download Here
VirusTotal
Als deze niet kraakbaar is zou het betekenen dat je je Fake Login BV kunt beveiligen zonder dat je hem hoeft te obfuscaten en bang hoeft te zijn voor de4dot.
BTW: Crack Me maken duurde me precies 12 minuutjes.
wat heb je er aan..? 
~ Denk niet dat iemand hem cracked, alle reflector noobs begrijpen het opeens niet
Dat betekend dat ik m'n fakelogin's weer kan beveiligen zonder dat jullie kraken
@coffee
Jullie slagen er niet in! dat betekend dat ik een manier heb om je Fake login te beveiligen want een ECHTE veilige manier was er niet, iedereen zat te obfuscaten.
Quote: picatype94
~ Denk niet dat iemand hem cracked, alle reflector noobs begrijpen het opeens niet
Dat betekend dat ik m'n fakelogin's weer kan beveiligen zonder dat jullie kraken
@coffee
Jullie slagen er niet in! dat betekend dat ik een manier heb om je Fake login te beveiligen want een ECHTE veilige manier was er niet, iedereen zat te obfuscaten.
Je hebt gewoon zelf de strings gecrypt?!
EDIT: Heeft volgens mij Polymorphic RC4 Encryption gebruikt.
1e keer dat ik dit doe...
Heeft misschien iemand hier wat aan:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim str As String = New pica("what ever you want here").Decrypt(ChrW(2568) & ChrW(2481) & ChrW(591) & ChrW(589) & ChrW(1443) & ChrW(1373) & ChrW(169) & ChrW(153) & ChrW(1744) & ChrW(1562) & ChrW(332) & "Q" & ChrW(1680) & ChrW(1608) & ChrW(1857) & ChrW(1455) & ChrW(2007) & ChrW(1969) & ChrW(2261) & ChrW(2169) & ChrW(745) & ChrW(547) & ChrW(2334) & ChrW(2324) & ChrW(1713) & ChrW(1600) & ChrW(2031) & ChrW(1784) & ChrW(381) & ChrW(176) & ChrW(2187) & ChrW(2122) & ChrW(1467) & ChrW(1299) & ChrW(649) & ChrW(408) & ChrW(1451) & ChrW(1449) & ChrW(1412) & ChrW(1400) & ChrW(181) & "L" & ChrW(1799) & ChrW(1630) & ChrW(905) & ChrW(879) & ChrW(1493) & ChrW(1154) & ChrW(1436) & ChrW(1419) & ChrW(1603) & ChrW(1479) & ChrW(2036) & ChrW(1876) & ChrW(806) & ChrW(794) & ChrW(2500) & ChrW(2433))
If (Me.TextBox1.Text = str) Then
Interaction.MsgBox(("You have cracked the key - The Key was: " & str), MsgBoxStyle.Information, "Nice!")
Else
Interaction.MsgBox("Fail!", MsgBoxStyle.Critical, "Fail!")
End If
End Sub
Quote: jomaikke
1e keer dat ik dit doe...
Heeft misschien iemand hier wat aan:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim str As String = New pica("what ever you want here").Decrypt(ChrW(2568) & ChrW(2481) & ChrW(591) & ChrW(589) & ChrW(1443) & ChrW(1373) & ChrW(169) & ChrW(153) & ChrW(1744) & ChrW(1562) & ChrW(332) & "Q" & ChrW(1680) & ChrW(1608) & ChrW(1857) & ChrW(1455) & ChrW(2007) & ChrW(1969) & ChrW(2261) & ChrW(2169) & ChrW(745) & ChrW(547) & ChrW(2334) & ChrW(2324) & ChrW(1713) & ChrW(1600) & ChrW(2031) & ChrW(1784) & ChrW(381) & ChrW(176) & ChrW(2187) & ChrW(2122) & ChrW(1467) & ChrW(1299) & ChrW(649) & ChrW(408) & ChrW(1451) & ChrW(1449) & ChrW(1412) & ChrW(1400) & ChrW(181) & "L" & ChrW(1799) & ChrW(1630) & ChrW(905) & ChrW(879) & ChrW(1493) & ChrW(1154) & ChrW(1436) & ChrW(1419) & ChrW(1603) & ChrW(1479) & ChrW(2036) & ChrW(1876) & ChrW(806) & ChrW(794) & ChrW(2500) & ChrW(2433)) If (Me.TextBox1.Text = str) Then Interaction.MsgBox(("You have cracked the key - The Key was: " & str), MsgBoxStyle.Information, "Nice!") Else Interaction.MsgBox("Fail!", MsgBoxStyle.Critical, "Fail!") End If End Sub
str is gelijk aan die New pica met al dat decryptgebeuren, en in de class pica staat:
Public Class pica
' Methods
Public Sub New(ByVal EncryptionKey As String)
Me.Key = EncryptionKey
End Sub
Public Function Decrypt(ByVal message As String) As String
Dim numArray As Integer() = New Integer(((message.Length - 1) + 1) - 1) {}
Dim nGeeKnK As String = ""
Dim num6 As Integer = (message.Length - 1)
Dim i As Integer = 0
Do While (i <= num6)
numArray(i) = Convert.ToInt32(message.Chars(i))
i += 1
Loop
Dim num7 As Integer = (message.Length - 1)
Dim j As Integer = 0
Do While (j <= num7)
Dim num3 As Integer = numArray(j)
Dim num4 As Integer = numArray((j + 1))
Dim charCode As Integer = (num3 - num4)
nGeeKnK = (nGeeKnK & Conversions.ToString(Strings.ChrW(charCode)))
j = (j + 2)
Loop
Return Me.x(nGeeKnK, Me.Key)
End Function
Private Function x(ByVal nGeeKnK As String, ByVal eKieBrN As String) As String
Dim index As Integer = 0
Dim num5 As Integer = 0
Dim builder As New StringBuilder
Dim str As String = String.Empty
Dim numArray As Integer() = New Integer(&H101 - 1) {}
Dim numArray2 As Integer() = New Integer(&H101 - 1) {}
Dim length As Integer = eKieBrN.Length
Dim num As Integer = 0
Do While (num <= &HFF)
Dim ch As Char = eKieBrN.Substring((num Mod length), 1).ToCharArray(0)
numArray2(num) = Strings.Asc(ch)
numArray(num) = num
Math.Max(Interlocked.Increment(num), (num - 1))
Loop
Dim num6 As Integer = 0
Dim num3 As Integer = 0
Do While (num3 <= &HFF)
num6 = (((num6 + numArray(num3)) + numArray2(num3)) Mod &H100)
Dim num7 As Integer = numArray(num3)
numArray(num3) = numArray(num6)
numArray(num6) = num7
Math.Max(Interlocked.Increment(num3), (num3 - 1))
Loop
num = 1
Do While (num <= nGeeKnK.Length)
Dim num8 As Integer = 0
index = ((index + 1) Mod &H100)
num5 = ((num5 + numArray(index)) Mod &H100)
num8 = numArray(index)
numArray(index) = numArray(num5)
numArray(num5) = num8
Dim num9 As Integer = numArray(((numArray(index) + numArray(num5)) Mod &H100))
Dim ch2 As Char = nGeeKnK.Substring((num - 1), 1).ToCharArray(0)
Dim charCode As Integer = (Strings.Asc(ch2) Xor num9)
builder.Append(Strings.Chr(charCode))
Math.Max(Interlocked.Increment(num), (num - 1))
Loop
str = builder.ToString
builder.Length = 0
Return str
End Function
' Fields
Private Key As String = "met ce que tu veux, c'est comme ton code"
End Class
Quote: jomaikke
str is gelijk aan die New pica met al dat decryptgebeuren, en in de class pica staat:
Public Class pica ' Methods Public Sub New(ByVal EncryptionKey As String) Me.Key = EncryptionKey End Sub Public Function Decrypt(ByVal message As String) As String Dim numArray As Integer() = New Integer(((message.Length - 1) + 1) - 1) {} Dim nGeeKnK As String = "" Dim num6 As Integer = (message.Length - 1) Dim i As Integer = 0 Do While (i <= num6) numArray(i) = Convert.ToInt32(message.Chars(i)) i += 1 Loop Dim num7 As Integer = (message.Length - 1) Dim j As Integer = 0 Do While (j <= num7) Dim num3 As Integer = numArray(j) Dim num4 As Integer = numArray((j + 1)) Dim charCode As Integer = (num3 - num4) nGeeKnK = (nGeeKnK & Conversions.ToString(Strings.ChrW(charCode))) j = (j + 2) Loop Return Me.x(nGeeKnK, Me.Key) End Function Private Function x(ByVal nGeeKnK As String, ByVal eKieBrN As String) As String Dim index As Integer = 0 Dim num5 As Integer = 0 Dim builder As New StringBuilder Dim str As String = String.Empty Dim numArray As Integer() = New Integer(&H101 - 1) {} Dim numArray2 As Integer() = New Integer(&H101 - 1) {} Dim length As Integer = eKieBrN.Length Dim num As Integer = 0 Do While (num <= &HFF) Dim ch As Char = eKieBrN.Substring((num Mod length), 1).ToCharArray(0) numArray2(num) = Strings.Asc(ch) numArray(num) = num Math.Max(Interlocked.Increment(num), (num - 1)) Loop Dim num6 As Integer = 0 Dim num3 As Integer = 0 Do While (num3 <= &HFF) num6 = (((num6 + numArray(num3)) + numArray2(num3)) Mod &H100) Dim num7 As Integer = numArray(num3) numArray(num3) = numArray(num6) numArray(num6) = num7 Math.Max(Interlocked.Increment(num3), (num3 - 1)) Loop num = 1 Do While (num <= nGeeKnK.Length) Dim num8 As Integer = 0 index = ((index + 1) Mod &H100) num5 = ((num5 + numArray(index)) Mod &H100) num8 = numArray(index) numArray(index) = numArray(num5) numArray(num5) = num8 Dim num9 As Integer = numArray(((numArray(index) + numArray(num5)) Mod &H100)) Dim ch2 As Char = nGeeKnK.Substring((num - 1), 1).ToCharArray(0) Dim charCode As Integer = (Strings.Asc(ch2) Xor num9) builder.Append(Strings.Chr(charCode)) Math.Max(Interlocked.Increment(num), (num - 1)) Loop str = builder.ToString builder.Length = 0 Return str End Function ' Fields Private Key As String = "met ce que tu veux, c'est comme ton code" End Class
Ik kan hem wel cracken, duurt alleen ff.
Quote: YoMama
Ik kan hem wel cracken, duurt alleen ff.
Quote: dariotje18Quote: YoMama
Ik kan hem wel cracken, duurt alleen ff.
Ja inderdaad, niet zo moeilijk, hij heeft gewoon de string gecrypt.
Quote: LagsPikeQuote: dariotje18Quote: YoMama
Ik kan hem wel cracken, duurt alleen ff.
Ja inderdaad, niet zo moeilijk, hij heeft gewoon de string gecrypt.
Deze functie maakt zelf een random key dervoor.
Hatelijk.
Dariotje leuk dat je het begrijpt. Dit is inderdaad een public algorythm. Maar ik kan door een paar getallen te verwisselen de encrypty is dan private en onkraakbaar. Ook kan ik alles verder encrypten zoals de encryptie zelf maar als je hem kraak rn he correcte password hebt release ik nummer 2 (met private algorythm en dubbele encrypty.
~ Pica
Quote: picatype94
Dariotje leuk dat je het begrijpt. Dit is inderdaad een public algorythm. Maar ik kan door een paar getallen te verwisselen de encrypty is dan private en onkraakbaar. Ook kan ik alles verder encrypten zoals de encryptie zelf maar als je hem kraak rn he correcte password hebt release ik nummer 2 (met private algorythm en dubbele encrypty.
~ Pica
Quote: dariotje18Quote: LagsPikeQuote: dariotje18Quote: YoMama
Ik kan hem wel cracken, duurt alleen ff.
Ja inderdaad, niet zo moeilijk, hij heeft gewoon de string gecrypt.
Deze functie maakt zelf een random key dervoor.
Hatelijk.
Deze encryptie/decryptie heeft hij gebruikt, hij heeft wel bijna alles een andere naam gegeven.
Dariotje je hebt pm! Crack me V2 morgen ochtend.
Quote: picatype94
Dariotje je hebt pm! Crack me V2 morgen ochtend.
echt geen zin om al die tekens te decrypten maar hij valt te hackenBegint niey met der.... Je kunt ook niey letter voor letter decrypten... Impossibru
Quote: picatype94
Begint niey met der.... Je kunt ook niey letter voor letter decrypten... Impossibru
niet verder gekomen dan derpforumkJe zat in de buurt maar V2 morgen is 100 keer moeilijker.
