[SOURCE]Simple HTTP bot 01-22-2011, 12:04 AM
#1
Hello!!!
So, I got tired of making this bot, since I will never use it.
Its a simple (very simple) HTTP bot, unique in its own way (in the most stupid way... no wonder its unique
)
How it works:
You upload somewhere a text file, you will write the commands there
How will I know about the bots?
Well, I used the most stupid possible way, when a commands is executed, the bot will send you an e-mail. Once you get alot of bots, you might get banned. What is a point of herder which can't have a lot of bots? ... Time for me to learn php I guess
Problems you will face:
=> There is a problem with file downloading, didn't fix it... Sorry
=> When the bot is running a long time on one machine, the download command won't be usefull. Read the source why
Can be fixed very easily
=> Delete command isn't effective. I will make a remover if you want
DOWNLOAD
Pic of Commands:
![[Image: 2rpwnll.jpg]](http://i56.tinypic.com/2rpwnll.jpg)
Rc4 Encrypter:
If you are not shure how to make your encrypter, you can download my one:
Download Here
Pic:
![[Image: 33napes.jpg]](http://i51.tinypic.com/33napes.jpg)
Source:
Credits: Coder-san
The 7th Sage
So, I got tired of making this bot, since I will never use it.
Its a simple (very simple) HTTP bot, unique in its own way (in the most stupid way... no wonder its unique
)How it works:
You upload somewhere a text file, you will write the commands there
How will I know about the bots?
Well, I used the most stupid possible way, when a commands is executed, the bot will send you an e-mail. Once you get alot of bots, you might get banned. What is a point of herder which can't have a lot of bots? ... Time for me to learn php I guess
Problems you will face:
=> There is a problem with file downloading, didn't fix it... Sorry
=> When the bot is running a long time on one machine, the download command won't be usefull. Read the source why
Can be fixed very easily=> Delete command isn't effective. I will make a remover if you want
DOWNLOAD
Pic of Commands:
Rc4 Encrypter:
If you are not shure how to make your encrypter, you can download my one:
Download Here
Pic:
Source:
Code:
Imports System.Text
Public Class Form1
Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
Dim i As Integer = 0, j As Integer = 0, cipher As New System.Text.StringBuilder
Dim returnCipher As String = String.Empty
Dim sbox As Integer() = New Integer(256) {}
Dim key As Integer() = New Integer(256) {}
Dim intLength As Integer = password.Length, a As Integer = 0
While a <= 255
Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
sbox(a) = a
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
End While
Dim x As Integer = 0, b As Integer = 0
While b <= 255
x = (x + sbox(b) + key(b)) Mod 256
Dim tempSwap As Integer = sbox(b)
sbox(b) = sbox(x)
sbox(x) = tempSwap
System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
End While
a = 1
While a <= message.Length
Dim itmp As Integer = 0
i = (i + 1) Mod 256
j = (j + sbox(i)) Mod 256
itmp = sbox(i)
sbox(i) = sbox(j)
sbox(j) = itmp
Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
itmp = Asc(ctmp)
Dim cipherby As Integer = itmp Xor k
cipher.Append(Chr(cipherby))
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
End While
returnCipher = cipher.ToString
cipher.Length = 0
Return returnCipher
End Function
Public Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
Dim random As New Random()
Return random.Next(min, max)
End Function
Public Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
Dim builder As New StringBuilder()
Dim random As New Random()
Dim ch As Char
Dim i As Integer
For i = 0 To size - 1
ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
builder.Append(ch)
Next i
If lowerCase Then
Return builder.ToString().ToLower()
End If
Return builder.ToString()
End Function
Public Function GetRandom() As String
Dim builder As New StringBuilder()
Dim num As Integer
Dim num2 As Integer
num = Int(Rnd() * NumericUpDown1.Value)
num2 = Int(Rnd() * NumericUpDown2.Value)
builder.Append(RandomString(num, True))
builder.Append(RandomNumber(NumericUpDown3.Value, NumericUpDown4.Value))
builder.Append(RandomString(num2, False))
Return builder.ToString()
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox2.Text = rc4(TextBox1.Text, TextBox3.Text)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim randoms As String = GetRandom.ToString
TextBox3.Text = randoms
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
MsgBox(TextBox3.Text)
End Sub
End ClassCredits: Coder-san
The 7th Sage
Staff will never ever ask you for your personal information.
We know everything about you anyway.
We know everything about you anyway.
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
