Yoko

sub CPFGen()
   var i = 10
   var k = 100000000
   var code = 0
   var hash1 = 0
   var hash2 = 0
   var n 
   repeat
      n = uo.Random(9)+1
      wait(150)
      code = code+n*k
      k = k/10
      hash2 = hash2+n
      hash1 = hash1+n*i
      i = i-1
   until i < 2
   hash2 = hash2+hash1    
   hash1 = 11-mod(hash1, 11)
   if hash1 > 9 then 
      hash1 = 0
   end if
   hash2 = hash2+hash1*2
   hash2 = 11-mod(hash2, 11)
   if hash2 > 9 then 
      hash2 = 0
   end if
   uo.TextClear() 
   uo.TextPrint(str(code)+'-'+str(hash1)+str(hash2))
   uo.TextOpen()
   
end sub

уних какаято муторная регистрация... надо какой то код вводить, так и не осилил перевод...

eu tenho este anti anti macro para a Mystic The Chaos Age
(i have that anti anti macro for a mystic the chaos age)
www.mystic.com.br

Msn: Ch4polin@hotmail.com
yahoo: Robao_Noel

Valor 2kk
(Price 2kk)

крахабор:)