// farsi.js : 
// ok, catch ya my friend, this is not java script as it says, it is vbscript
// by Toraj Ramezani, Arash Afshin
// Copright Websgalaxy.
// dont think this is a secret script, you can use it any where if you're reading this.

sub NAME_onkeypress()
typefarsi()
end sub

sub iwhy_onkeypress()
typefarsi()
end sub

sub FAMILY_onkeypress()
typefarsi()
end sub

sub ADDRESS_onkeypress()
typefarsi()
end sub

sub username_onkeypress()
'typefarsi()
end sub

sub AGENT_onkeypress()
typefarsi()
end sub

sub subject_onkeypress()
'typefarsi()
end sub

sub body_onkeypress()
'typefarsi()
end sub

sub typefarsi ()
	dim k
	k = window.event.keycode
	select case chr(k)
		case "h" 
			window.event.keycode = 1575
		case "H" 
			window.event.keycode = 1570
		case "s" 
			window.event.keycode = 1587
		case "F" ,"f"
			window.event.keycode = 1576
		case "`" 
			window.event.keycode = 1662
		case "j" ,"J"
			window.event.keycode = 1578
		case "e","E" 
			window.event.keycode = 1579
		case "[" 
			window.event.keycode = 1580
		case "]" 
			window.event.keycode = 1670
		case "P" ,"p"
			window.event.keycode = 1581
		case "o" ,"O"
			window.event.keycode = 1582
		case "n","N" 
			window.event.keycode = 1583
		case "b" ,"B"
			window.event.keycode = 1584
		case "V","v" 
			window.event.keycode = 1585
		case "C","c" 
			window.event.keycode = 1586
		case "\" 
			window.event.keycode = 1688
		case "s" ,"S"
			window.event.keycode = 1587
		case "a","A" 
			window.event.keycode = 1588
		case "w","W" 
			window.event.keycode = 1589
		case "q" ,"Q"
			window.event.keycode = 1590
		case "X" ,"x"
			window.event.keycode = 1591
		case "Z" ,"z"
			window.event.keycode = 1592
		case "U" ,"u"
			window.event.keycode = 1593
		case "Y" ,"y"
			window.event.keycode = 1594
		case "t" ,"T"
			window.event.keycode = 1601
		case "R" ,"r"
			window.event.keycode = 1602
		case ";" 
			window.event.keycode = 1603
		case "'" 
			window.event.keycode = 1711
		case "G" ,"g"
			window.event.keycode = 1604
		case "l","L" 
			window.event.keycode = 1605
		case "k" ,"K"
			window.event.keycode = 1606
		case "," 
			window.event.keycode = 1608
		case "i" ,"I"
			window.event.keycode = 1607
		case "d" 
			window.event.keycode = 1610
		case "D" 
			window.event.keycode = 1609
		case "m" ,"M"
			window.event.keycode = 1574
		case "?" 
			window.event.keycode = 1567

	end select

end sub