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 !