Naruto Wars Madara Code

[illidan1000]

Hello, I've been looking at the Jass triggers of Naruto Wars for awhile, but unfortunatly it got me nowhere. I'm trying to find a secret charater code it allows you to unlock Uchia Madara, No luck so far, So I was wondering if you guys could help me out. Here's a link http://epicwar.com/maps/22240/. Thanks for your help !!

[HINDYhat]

WHOA.

I got to where they give the secret character, but there's a condition using some weird complex string encryption. I'll have to look more into that... Maybe get it to output the string... since it returns boolean... Weird.
Okay I'm generating the code now. This might work... I can't get the functions to output a string... this stuff is just way too complex. So I'm making WE run through all of the possibilities with 2 loops in one and a few TriggerSleepAction() to not hit the op limit. Shouldn't take too long.

EDIT: Nevermind this way. Everytime I try, after a while, my warcraft 3 freezes and turns totally black (not responding). If you really want this hero, you'll have to request a hacked version...

By the way, I did it with timer loops of 0.0 seconds, so like 20000 loops per second were happening. I was in the 2 millions and I left my computer to take a shower, I come back and my warcraft 3 is black... :/

[weirdone2]

Talk about your annoying encryption i'm not gonna bother lookint at it nemore, it's plain annoying would take hours to figure out, heres all that you need to know to deencypt it though:

Code: Select all

function RtoI takes real r returns integer
return r
return 0
endfunction
function ItoR takes integer i returns real
return i
return .0
endfunction
function MakePair_II takes integer x,integer y returns location
return Location(ItoR(x),ItoR(y))
endfunction
function DeletePair takes location oPair returns nothing
call RemoveLocation(oPair)
endfunction
function SetPair_II takes location oPair,integer iX,integer iY returns nothing
call MoveLocation(oPair,ItoR(iX),ItoR(iY))
endfunction
function First_I takes location oPair returns integer
return RtoI(GetLocationX(oPair))
endfunction
function Rest_I takes location oPair returns integer
return RtoI(GetLocationY(oPair))
endfunction

function Char2Int takes string c returns integer
local string cset="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
local integer i=0
local integer len=StringLength(cset)
loop
exitwhen(c==SubString(cset,i,i+1))or(i>=len)
set i=i+1
endloop
call DisplayTextToPlayer(Player(0),0,0,SubString(cset,i,i+1))
return i
endfunction

function hashblock takes location oHash,integer c returns nothing
local integer n=1
local integer delta=11742
local integer sum=0
local integer k1=5168478+c
local integer k2=2763741+c
local integer h1=First_I(oHash)
local integer h2=Rest_I(oHash)
loop
exitwhen n>32
set h1=h1+((h2*16)+(h2/32))+h2+sum+k1
set sum=sum+delta
set h2=h2+((h1*16)+(h1/32))+h1+sum+k2
set n=n+1
endloop
call SetPair_II(oHash,h1,h2) //sets location ohash to Location(h1,h2)
endfunction

function hashstringa takes string s returns boolean
local integer istring=0
local integer n=0
local integer len=StringLength(s)
local location oHash=MakePair_II(0,0)
loop
exitwhen n>=len
set istring=Char2Int(SubString(s,n,n+1))
call hashblock(oHash,istring)
set n=n+1
endloop
if(First_I(oHash)==-955425320)then //you want ohash X to equal this
if(Rest_I(oHash)==-451731975)then  //you want ohash Y to equal this
call DeletePair(oHash)
set oHash=null
return true
endif
endif
call DeletePair(oHash)
set oHash=null
return false
endfunction

I included a few notes.