[FUD] 1337 Encryption for your Crypters FUD FUD lol Bling Bling
Für alle die sich wundern:
Ich habe den Titel ausgesucht weil sich nun 500 "Crypter Coderz" auf den Code stürzen werden, da alle anderen wohl zu schwer zum stealthen sind :D
Die Verschlüsselungsroutine ist einfach, schnell und klein. Zwar nichts wirklich besonderes aber trotzdem etwas:
Code:
'Simple Encryption by Slayer616
Function Encry(MyString As String, MyPassword As String) As String
Dim PWMutex
Dim TempString
For i = 1 To Len(MyPassword)
PWMutex = PWMutex & Asc(Mid(MyPassword, i, 1))
Next i
PWMutex = PWMutex - (255 * Fix((PWMutex / 255)))
For i = 1 To Len(MyString)
If (Asc(Mid(MyString, i, 1)) + PWMutex) > 255 Then
TempString = TempString & Chr((Asc(Mid(MyString, i, 1)) + PWMutex) - 255)
Else
TempString = TempString & Chr((Asc(Mid(MyString, i, 1)) + PWMutex))
End If
Next i
Encry = TempString
End Function
Function Decry(MyString As String, MyPassword As String) As String
Dim PWMutex
Dim TempString
For i = 1 To Len(MyPassword)
PWMutex = PWMutex & Asc(Mid(MyPassword, i, 1))
Next i
PWMutex = PWMutex - (255 * Fix((PWMutex / 255)))
For i = 1 To Len(MyString)
If (Asc(Mid(MyString, i, 1)) - PWMutex) < 0 Then
TempString = TempString & Chr((Asc(Mid(MyString, i, 1)) - PWMutex) + 255)
Else
TempString = TempString & Chr((Asc(Mid(MyString, i, 1)) - PWMutex))
End If
Next i
Decry = TempString
End Function
Have a happy ripping!