Decrypt your string (value,key) without implementing EXACT key into stub
Code:
' ___ ____________.____ __________ _________
' / | \______ \ | _____ \______ \/ _____/
'/ ~ \ / / | \__ \ | | _/\_____ \
'\ Y / / /| |___ / __ \| | \/ \
' \___|_ / /____/ |_______ (____ /______ /_______ /
' \/ \/ \/ \/ \/
' ___ ___ __ ___ ___ .___
' / | \_____ ____ | | __/ | \ ____ __ __ ____ __| _/
'/ ~ \__ \ _/ ___\| |/ / ~ \/ _ \| | \/ \ / __ |
'\ Y // __ \\ \___| <\ Y ( <_> ) | / | \/ /_/ |
' \___|_ /(____ /\___ >__|_ \\___|_ / \____/|____/|___| /\____ |
' \/ \/ \/ \/ \/ \/ \/
'.__ __________.__ _______ .__
'| |__ _____ \____ /| | \ _ \ ____ | |__
'| | \\__ \ / / | | / /_\ \ / _ \| | \
'| Y \/ __ \_/ /_ | |_\ \_/ ( <_> ) Y \
'|___| (____ /_______ \|____/\_____ /\____/|___| /
' \/ \/ \/ \/ \/
'#######################################################################
'Hackhound.Org
'www.TheGoonSquad.Org
'H7Labs.com
' U can use this code wherever u want as long as u give
' me and dieter otto a lil credit
'#######################################################################
Private Sub Form_Load()
Dim StuffIwant As String, mynewdata As String, Mystring As String, Mykey As String, i As Integer
Mystring = "ZPh]^ZnTX^TVPFPmXmFS_FnF^mYSGW"
For i = 1 To 101
mynewdata = Encr(Mystring, CStr(i))
If InStr(1, mynewdata, "haZl0oh_") Then Mykey = i
Next i
StuffIwant = Encr(Mystring, Mykey)
MsgBox StuffIwant
CutIdentifier = Replace(StuffIwant, "haZl0oh_", "")
MsgBox CutIdentifier
'From here on u got(CutIdentifier) the clear data of encrypted text or w/e
'u can convert it again
'inject it..... HF
End Sub
Function Encr(DataIn As String, CodeKey As String) As String
Dim lonDataPtr As Long
Dim strDataOut As String
Dim intXOrValue1 As Integer, intXOrValue2 As Integer
For lonDataPtr = 1 To Len(DataIn)
intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))
intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
strDataOut = strDataOut + Chr$(intXOrValue1 Xor intXOrValue2)
Next lonDataPtr
Encr = strDataOut
End Function
Enjoy it !