ناو یان ئیمیل:   
ووشه‌ی نهێنی:   

[-]
دواین 15 بابه‌ته‌كان
فب يةكم بو هاك بكةن 100 دولار هةدية
نووسه‌ری بابه‌ت:Kaivon1997 دواترین وه‌لام:lubu ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:423 كات:دوێنێ
hack snapchat
نووسه‌ری بابه‌ت:danar36 دواترین وه‌لام:pshko dlsha ژماره‌ی وه‌لامه‌كان:5 جاری بینراو:1098 كات:دوێنێ
هاك كردنی سناپ چات به‌ (bruteforce ) كردن bruteforce Snapchat 2018
نووسه‌ری بابه‌ت:AhmadKifre دواترین وه‌لام:pshko dlsha ژماره‌ی وه‌لامه‌كان:3 جاری بینراو:286 كات:دوێنێ
یارمەتی لە فەیسبووک ! کەسە زیرەکەکان ماون لا یانە
نووسه‌ری بابه‌ت:M.V دواترین وه‌لام:Razwan-kurd ژماره‌ی وه‌لامه‌كان:3 جاری بینراو:197 كات:دوێنێ
پەیامیك بۆ قوتابخانەی ھاك بۆ كورد
نووسه‌ری بابه‌ت:aswad_hawlery دواترین وه‌لام:Mr Karol ژماره‌ی وه‌لامه‌كان:15 جاری بینراو:3754 كات:06-23-2019
هاکی یاری PUBG MObile 2018 بۆ سیستەمی ئەندروید
نووسه‌ری بابه‌ت:aswad_hawlery دواترین وه‌لام:aswad_hawlery ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:1585 كات:06-23-2019
هاک کردنی فۆللۆو و لایک و کۆمێنتی ئینستتگرام زۆر بە ئاسانی6/6/2017 NEW
نووسه‌ری بابه‌ت:aswad_hawlery دواترین وه‌لام:aswad_hawlery ژماره‌ی وه‌لامه‌كان:14 جاری بینراو:3453 كات:06-23-2019
1000 دەدەم بەوەی ئەم فەیس بووکەم بنۆ هاک بکات
نووسه‌ری بابه‌ت:Brwa.JAza دواترین وه‌لام:aswad_hawlery ژماره‌ی وه‌لامه‌كان:1 جاری بینراو:345 كات:06-23-2019
Xo parastn la hak
نووسه‌ری بابه‌ت:Muhsin musleh دواترین وه‌لام:Mr Karol ژماره‌ی وه‌لامه‌كان:1 جاری بینراو:159 كات:06-21-2019
master card
نووسه‌ری بابه‌ت:mahmood govan دواترین وه‌لام:mahmood govan ژماره‌ی وه‌لامه‌كان:2 جاری بینراو:206 كات:06-20-2019
چاره‌سه‌ری کێشه‌ی نه‌ کردنه‌وه‌ی Metasploit له‌ کالی
نووسه‌ری بابه‌ت:NEO دواترین وه‌لام:paewand jr ژماره‌ی وه‌لامه‌كان:13 جاری بینراو:4250 كات:06-19-2019
پارەی پەیپاڵمان لا کش بکەو ٢ ئەوەنە وەربگرنەوە
نووسه‌ری بابه‌ت:Ebay Kurd دواترین وه‌لام:S O V R A ژماره‌ی وه‌لامه‌كان:7 جاری بینراو:1140 كات:06-17-2019
کتێب : هاک کردنی یاهوو له‌سه‌ره‌وه ‌تا کۆتا
نووسه‌ری بابه‌ت:Harde2008 دواترین وه‌لام:._danyar_. ژماره‌ی وه‌لامه‌كان:263 جاری بینراو:34347 كات:06-17-2019
وێنەكانت بە جوانترین شێواز بڕازێنەوە بە بێ بەرنامە
نووسه‌ری بابه‌ت:DyarKalari دواترین وه‌لام:dana_yak ژماره‌ی وه‌لامه‌كان:8 جاری بینراو:1751 كات:06-17-2019
نێچیرەکە زوو فریووی دەخوارد
نووسه‌ری بابه‌ت:awaraqadir دواترین وه‌لام:hack b52 ژماره‌ی وه‌لامه‌كان:1 جاری بینراو:57 كات:06-16-2019


هه‌لبژاردنی پله‌
  • 1 ده‌نه‌گه‌كان - 5 كۆی گشتی
  • 1
  • 2
  • 3
  • 4
  • 5
دروست كردنیی به‌رنامه‌یك بۆ به‌دسه‌ت هینانی ئایبی سایت
#1
سلا وهاوریان باس له‌دروست كردنیی به‌رنامه‌یكیی ئاسان ئه‌كه‌م بۆ به‌ده‌ست هینانیی ئایبیی سایت
با زۆریی له‌ سه‌ر نه‌ رۆم سۆرس كۆد به‌رنامه‌كه‌
[code]Option Explicit

Private Const IP_SUCCESS As Long = 0
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long = 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long = 256
Private Const MAX_WSASYSStatus As Long = 128
'
Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Long
wMaxUDPDG As Long
dwVendorInfo As Long
End Type
'

Private Declare Function gethostbyname Lib "wsock32" _
(ByVal hostname As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(xDest As Any, _
xSource As Any, _
ByVal nbytes As Long)

Private Declare Function lstrlenA Lib "kernel32" _
(lpString As Any) As Long
'
Private Declare Function WSAStartup Lib "wsock32" _
(ByVal wVersionRequired As Long, _
lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32" () As Long

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
(ByVal IcmpHandle As Long) As Long


Private Declare Function inet_addr Lib "wsock32" _
(ByVal s As String) As Long

Private Declare Function inet_ntoa Lib "wsock32.dll" _
(ByVal addr As Long) As Long

Private Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, _
ByVal Ptr As Long) As Long



Private Sub Command2_Click()
MsgBox "FT-HackeR..."
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""

End Sub


Private Sub Command1_Click()

Dim pos As Long
' Dim success As Long
Dim sIPAddress As String

If SocketsInitialize() Then

'convert the host name into an IP address
sIPAddress = GetIPFromHostName(Text1.Text)
Text2.Text = sIPAddress
Else
MsgBox "C???? C?CI? ?C ??E??E "

End If
'
End Sub



Private Function GetIPFromHostName(ByVal sHostName As String) As String

'converts a host name to an IP address
Dim ptrHosent As Long 'address of HOSENT structure
Dim ptrName As Long 'address of name pointer
Dim ptrAddress As Long 'address of address pointer
Dim ptrIPAddress As Long
Dim ptrIPAddress2 As Long

ptrHosent = gethostbyname(sHostName & vbNullChar)

If ptrHosent <> 0 Then

'assign pointer addresses and offset

'ptrName is the official name of the host (PC).
'If using the DNS or similar resolution system,
'it is the Fully Qualified Domain Name (FQDN)
'that caused the server to return a reply.
'If using a local hosts file, it is the first
'entry after the IP address.
ptrName = ptrHosent

'Null-terminated list of addresses for the host.
'The Address is offset 12 bytes from the start of
'the HOSENT structure. Note: Here we are retrieving
'only the first address returned. To return more than
'one, define sAddress as a string array and loop through
'the 4-byte ptrIPAddress members returned. The last
'item is a terminating null. All addresses are returned
'in network byte order.
ptrAddress = ptrHosent + 12

'get the IP address
CopyMemory ptrName, ByVal ptrName, 4
CopyMemory ptrAddress, ByVal ptrAddress, 4
CopyMemory ptrIPAddress, ByVal ptrAddress, 4
CopyMemory ptrIPAddress2, ByVal ptrIPAddress, 4

GetIPFromHostName = GetInetStrFromPtr(ptrIPAddress2)

End If

End Function


Private Function GetStrFromPtrA(ByVal lpszA As Long) As String

GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)

End Function

'
Private Function GetInetStrFromPtr(Address As Long) As String

GetInetStrFromPtr = GetStrFromPtrA(inet_ntoa(Address))

End Function


Private Sub SocketsCleanup()

If WSACleanup() <> 0 Then
MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
End If

End Sub


Private Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function
ئه‌وه‌ش فیركاریی خۆم به‌هیوایی سود


دواین 10 بابه‌ته‌كان

وه‌ڵام
#2
دەست خۆش بیت جاریکی تر کۆدەکان لە ناو قالبیک دابنی بۆ ئەوەی بابەتکەت جوان بیت
کۆدی PHP::
Private Const IP_SUCCESS As Long 0
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long 256
Private Const MAX_WSASYSStatus As Long 128
'
Private Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Long
wMaxUDPDG As Long
dwVendorInfo As Long
End Type
'

Private Declare Function gethostbyname Lib "wsock32" _
(ByVal hostname As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias 
"RtlMoveMemory" _
(xDest As Any_
xSource 
As Any_
ByVal nbytes 
As Long)

Private Declare Function 
lstrlenA Lib "kernel32" _
(lpString As Any) As Long
'
Private Declare Function WSAStartup Lib "wsock32" _
(ByVal wVersionRequired As Long, _
lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32" () As Long

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
(ByVal IcmpHandle As Long) As Long


Private Declare Function inet_addr Lib "wsock32" _
(ByVal s As String) As Long

Private Declare Function inet_ntoa Lib "wsock32.dll" _
(ByVal addr As Long) As Long

Private Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, _
ByVal Ptr As Long) As Long



Private Sub Command2_Click()
MsgBox "FT-HackeR..."
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""

End Sub


Private Sub Command1_Click()

Dim pos As Long
Dim success As Long
Dim sIPAddress 
As String

If SocketsInitialize() Then

'convert the host name into an IP address
sIPAddress = GetIPFromHostName(Text1.Text)
Text2.Text = sIPAddress
Else
MsgBox "C???? C?CI? ?C ??E??E "

End If
'
End Sub



Private Function GetIPFromHostName(ByVal sHostName As String) As String

'converts a host name to an IP address
Dim ptrHosent As Long '
address of HOSENT structure
Dim ptrName 
As Long 'address of name pointer
Dim ptrAddress As Long '
address of address pointer
Dim ptrIPAddress 
As Long
Dim ptrIPAddress2 
As Long

ptrHosent 
gethostbyname(sHostName vbNullChar)

If 
ptrHosent <> 0 Then

'assign pointer addresses and offset

'
ptrName is the official name of the host (PC).
'If using the DNS or similar resolution system,
'
it is the Fully Qualified Domain Name (FQDN)
'that caused the server to return a reply.
'
If using a local hosts fileit is the first
'entry after the IP address.
ptrName = ptrHosent

'
Null-terminated list of addresses for the host.
'The Address is offset 12 bytes from the start of
'
the HOSENT structureNoteHere we are retrieving
'only the first address returned. To return more than
'
onedefine sAddress as a string array and loop through
'the 4-byte ptrIPAddress members returned. The last
'
item is a terminating nullAll addresses are returned
'in network byte order.
ptrAddress = ptrHosent + 12

'
get the IP address
CopyMemory ptrName
ByVal ptrName4
CopyMemory ptrAddress
ByVal ptrAddress4
CopyMemory ptrIPAddress
ByVal ptrAddress4
CopyMemory ptrIPAddress2
ByVal ptrIPAddress4

GetIPFromHostName 
GetInetStrFromPtr(ptrIPAddress2)

End If

End Function


Private Function 
GetStrFromPtrA(ByVal lpszA As Long) As String

GetStrFromPtrA 
String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrAByVal lpszA)

End Function

'
Private Function GetInetStrFromPtr(Address As Long) As String

GetInetStrFromPtr = GetStrFromPtrA(inet_ntoa(Address))

End Function


Private Sub SocketsCleanup()

If WSACleanup() <> 0 Then
MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
End If

End Sub


Private Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function 
دواین 10 بابه‌ته‌كان

Soon we come back!
وه‌ڵام
#3
وه‌لا خۆم دامنا به‌س ریك كلیكم له‌ ناردن كر هه‌له‌ ببوو رن

وه‌ڵام
#4
دةست خوش برام بة سودة
دواین 10 بابه‌ته‌كان

وه‌ڵام
#5
سباس مه‌لا سانا

وه‌ڵام
#6
دەست خۆش
دواین 10 بابه‌ته‌كان

وه‌ڵام
#7
سباس نیۆ گیان

وه‌ڵام
#8
ده‌ست خۆش

دواین 10 بابه‌ته‌كان
وه‌ڵام
#9
سباسHeartHeart

وه‌ڵام


ئه‌و بابه‌تانه‌ی له‌وانه‌یه‌ له‌ یه‌ک بچن.
بابه‌ت نووسه‌ر وه‌لامه‌كان بینین دواین په‌یام
Star خوولی فێربوونی sql server وانەیی یەکەم مہسہتہرسه رده م 1 463 03-12-2019, 08:06 AM
دواین په‌یام: Paewand - Rwandze
  کۆرسی فێربوونی زمانی ++Cوانەیی دووەم مہسہتہرسه رده م 1 446 02-19-2019, 06:45 AM
دواین په‌یام: Paewand - Rwandze
  سی شارپ یەکێک لە زمانەکانی بەرنامەنووسیی مایکرۆسۆف sarwar aziz 2 1،042 09-08-2015, 03:22 PM
دواین په‌یام: sarwar aziz
  [ دُرسً] دُرۅسًتُكردُنٌی тєჯт тєѕт ♥ἨḴ-Ḋ♥ 9 2،048 06-23-2015, 02:52 PM
دواین په‌یام: mazhar apo
  نەرنامەی دروستکردنی ئەنیمایشنم ئەوێ-خۆرایی-؟ blood hacker 8 1،555 09-04-2014, 11:46 PM
دواین په‌یام: blood hacker
  دروست كردنی به‌رنامه‌یك بۆ زانینی بۆرته‌ كراوه‌كان مہسہتہرسه رده م 9 2،323 03-01-2014, 04:45 PM
دواین په‌یام: HAMA_QALADZEY
  دروست كردنی به‌رنامه‌یك بۆكردنه‌وه‌ی سایتی مه‌به‌ستvb.6 مہسہتہرسه رده م 10 1،887 02-23-2014, 01:27 AM
دواین په‌یام: HAMA_QALADZEY
  دامه‌زراندیی vb2008 له‌سه‌ر cd مہسہتہرسه رده م 3 910 11-24-2013, 06:24 PM
دواین په‌یام: مہسہتہرسه رده م
  ڤیر ژنی نویی بەرنامەی a.k.m v 1.4بەشیکی زۆۆر گریگی بۆزیدکرا hacktools Maker 11 3،217 10-16-2013, 01:49 AM
دواین په‌یام: Maker
  جۆنیه‌تی درویت كردنیی سریال نه‌مبه‌ر تایبه‌ت به‌خۆت مہسہتہرسه رده م 8 2،537 09-27-2013, 03:14 AM
دواین په‌یام: Dlovan

برۆ بۆ :


ئه‌ندامه‌كانی ئه‌م بابه‌ته‌یان کردۆته‌وه‌: 1 مێوان