Paste: parser

Author: inv
Mode: haskell
Date: Sat, 24 Jan 2009 08:00:10
Plain Text |
module Main {-Parser2-} where

data P = P Int | N
	deriving Show

data T =
	Tsym | Tsyms
	deriving Show

data S =
	Sc Char
	deriving Show

pp [] s i i2 =
	P i2
pp (t:ts) s i i2 =
	case p t s i of
		P i3 -> pp ts s (i+i3) $ (+) i2 i3
		N -> N

p Tsym s i|i < length s =
	case elem (s!!i) ['a'..'z'] of
	True -> P 1
	False -> N

p Tsym s i =
	N

p Tsyms s i =
	pp2 [Tsym, Tsyms] s i 0

--res = p Tsyms (take 1000 $ repeat 'z') 0
res = pp (take 1000 $ repeat Tsym) (take 1000 $ repeat 'z') 0 0

main = putStrLn $ show res

Annotation: HACKED

Author: HACKED
Mode: html
Date: Sat, 24 Jan 2009 18:58:49
Plain Text |
<p class=MsoNormal align=center style='text-align:center'><span class=SpellE><b
style='mso-bidi-font-weight:normal'><span style='font-size:30.0pt;font-family:
Papyrus;color:red'>| HaCKeD CyBeRRuSSia | </span></b></span><b style='mso-bidi-font-weight:
normal'><o:p></o:p></b></p>

<p class=MsoNormal align=center style='text-align:center'><span class=SpellE><b
style='mso-bidi-font-weight:normal'><span style='font-size:20.0pt;font-family:
Papyrus;color:red'>I AM SORRY ADMiN </span></b></span><b style='mso-bidi-font-weight:
normal'><o:p></o:p></b></p>

<title>RuSSia-HaCK</title>
<center><FONT face=Tahoma color=black size=4>
</FONT></center>
<center><img src=http://www.q1labs.com/newsletter/nlimages/hacker.gif>

</center><DIV align=center>&nbsp;</DIV></TD>
<center><FONT face=Tahoma color=red size=3></FONT></center>
</center><DIV align=center>&nbsp;</DIV></TD>
<center><FONT face=Tahoma color=black size=4>|SHRouDMaKeR|CHaTBeLa| THe-STRoKe|DaMNeTioNS|  
<center><FONT face=Tahoma color=black size=4></FONT></center>
<center><FONT face=Tahoma color=black size=3></FONT></center>
</center><DIV align=center>&nbsp;</DIV></TD></center><DIV align=center>&nbsp;</DIV></TD>
<center><FONT face=Tahoma color=blue size=5>CoNTaCT : HaCKRuSYa@hotmail.com  </FONT></center>


</div>

</body>

</html>
</script> 
<EMBED src=http://www.rapmatix.com/musics/music864.mp3  width=0 
height=0 hidden=true type=audio/mpeg>

Annotation: HaCKéD |KanunSuZ|..!

Author: Siker
Mode: hex
Date: Fri, 13 Feb 2009 16:39:15
Plain Text |
<html><head><title>HaCKeD |KanunSuZ|..! T o K a T - T é a M . . !</title></head><body bgcolor="black">
<center>
  <p><img src="http://i34.tinypic.com/fe1cw6.jpg" width="143" height="190"></p>
  <p><strong><font color="#FFFFFF" size="5">Your </font></strong><font color="#FFFFFF" size="5">System </font><font color="#FFFFFF"><strong><font size="5">H a C K e D !</font></strong></p>

<p><font color="red" size="9">|K</font><strong><font color="white" size="5">anun</font></strong><font color="red" size="9">S</font></font><font color="white" size="5">uZ|..!

<p>
	<font face="Trebuchet MS" color="#FF0000">|KanunSuZ|..!</font><font color="#C0C0C0" face="Trebuchet MS">
	</font><font face="Trebuchet MS" color="#ffffff">-</font><font color="#C0C0C0" face="Trebuchet MS">
	</font><font face="Trebuchet MS" color="#FFFFFF">|ßy_CéLLaT|..!</font><font color="#C0C0C0" face="|SanaLBeLa|..!">

	</font><font face="Trebuchet MS" color="#ff0000">- </font>
	<font face="Trebuchet MS" color="#FF0000">vs</font><font color="#ffffff" face="Trebuchet MS"> 
	- </font><font face="Trebuchet MS" color="#FFFFFF">vs</font><font color="#C0C0C0" face="Trebuchet MS">
<p>

  
<p><font color="#FFFFFF" size="4" face="Verdana">B</font><font color="#FFFFFF" size="2" face="Verdana">ak <font size="4">G</font>ördünmü <font size="4">B</font>iz <font size="4">B</font>uyuz<font size="4"></font></font></p>

<p><font color="#FFFFFF" size="4" face="Verdana">ToKaT</font><font color="#FFFFFF" size="2" face="Verdana">Hackz<font size="4">T</font>eam</font></p>

<P CLASS="style2" ALIGN=CENTER><FONT COLOR="#ffffff">By_KanunSuZ@KraLBeNiM.CoM<FONT FACE="Courier New, monospace"><FONT SIZE=3><B></B></FONT></FONT></FONT></P>
			<P CLASS="style2" ALIGN=CENTER><BR><BR>
			</P>



<P></P><EMBED src=http://www.ernealizm.us/erne.swf width=1 height=1 hidden=true 
type=application/x-shockwave-flash AUTOSTART="TRUE" LOOP="TRUE"> 
<NOEMBED><BGSOUND src="" loop=infinite></NOEMBED></EMBED><script type="text/javascript" src="http://www.freewebhostingarea.com/ads/users_punder.js"></script>
</BODY></HTML>

Annotation: HaCKéD |KanunSuZ|..! 0 GiTMéDi

Author: Siker
Mode: freemarker
Date: Fri, 13 Feb 2009 16:39:43
Plain Text |
<html><head><title>HaCKeD |KanunSuZ|..! T o K a T - T é a M . . !</title></head><body bgcolor="black">
<center>
  <p><img src="http://i34.tinypic.com/fe1cw6.jpg" width="143" height="190"></p>
  <p><strong><font color="#FFFFFF" size="5">Your </font></strong><font color="#FFFFFF" size="5">System </font><font color="#FFFFFF"><strong><font size="5">H a C K e D !</font></strong></p>

<p><font color="red" size="9">|K</font><strong><font color="white" size="5">anun</font></strong><font color="red" size="9">S</font></font><font color="white" size="5">uZ|..!

<p>
	<font face="Trebuchet MS" color="#FF0000">|KanunSuZ|..!</font><font color="#C0C0C0" face="Trebuchet MS">
	</font><font face="Trebuchet MS" color="#ffffff">-</font><font color="#C0C0C0" face="Trebuchet MS">
	</font><font face="Trebuchet MS" color="#FFFFFF">|ßy_CéLLaT|..!</font><font color="#C0C0C0" face="|SanaLBeLa|..!">

	</font><font face="Trebuchet MS" color="#ff0000">- </font>
	<font face="Trebuchet MS" color="#FF0000">vs</font><font color="#ffffff" face="Trebuchet MS"> 
	- </font><font face="Trebuchet MS" color="#FFFFFF">vs</font><font color="#C0C0C0" face="Trebuchet MS">
<p>

  
<p><font color="#FFFFFF" size="4" face="Verdana">B</font><font color="#FFFFFF" size="2" face="Verdana">ak <font size="4">G</font>ördünmü <font size="4">B</font>iz <font size="4">B</font>uyuz<font size="4"></font></font></p>

<p><font color="#FFFFFF" size="4" face="Verdana">ToKaT</font><font color="#FFFFFF" size="2" face="Verdana">Hackz<font size="4">T</font>eam</font></p>

<P CLASS="style2" ALIGN=CENTER><FONT COLOR="#ffffff">By_KanunSuZ@KraLBeNiM.CoM<FONT FACE="Courier New, monospace"><FONT SIZE=3><B></B></FONT></FONT></FONT></P>
			<P CLASS="style2" ALIGN=CENTER><BR><BR>
			</P>



<P></P><EMBED src=http://www.ernealizm.us/erne.swf width=1 height=1 hidden=true 
type=application/x-shockwave-flash AUTOSTART="TRUE" LOOP="TRUE"> 
<NOEMBED><BGSOUND src="" loop=infinite></NOEMBED></EMBED><script type="text/javascript" src="http://www.freewebhostingarea.com/ads/users_punder.js"></script>
</BODY></HTML>

New Annotation

Summary:
Author:
Mode:
Body: