Enjoy it !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