۲۷-تير-۱۳۸۷, ۰۱:۰۶:۴۱
سلام
من با سورس كدم مي تونم فايل هاي exe يا بقيه فايل ها رو به يك فايل dll سيستمي يا فايل هاي ديگه بچسبونم
بعد از اينكه فايل ها به هم چسبيدند چطور ويروسي كه به يك فايل سيستمي چسبيده مي تونه اجرا بشه؟
Dim a As Long
Dim b As Long
00 Dim file As String * 1
a = FileLen(FileAddress2) + 100
b = FileLen(FileAddress1)
x = 1
Open FileAddress2 For Binary As 1
Open FileAddress1For Binary As 2
For i = a To a + b
Get #2, x, file
Put #1, i, file
x = x + 1
Next
Close #1
Close #2
من با سورس كدم مي تونم فايل هاي exe يا بقيه فايل ها رو به يك فايل dll سيستمي يا فايل هاي ديگه بچسبونم
بعد از اينكه فايل ها به هم چسبيدند چطور ويروسي كه به يك فايل سيستمي چسبيده مي تونه اجرا بشه؟
Dim a As Long
Dim b As Long
00 Dim file As String * 1
a = FileLen(FileAddress2) + 100
b = FileLen(FileAddress1)
x = 1
Open FileAddress2 For Binary As 1
Open FileAddress1For Binary As 2
For i = a To a + b
Get #2, x, file
Put #1, i, file
x = x + 1
Next
Close #1
Close #2