Code Highlighter Beta Deneme

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

     

    using System;
    using System.Windows.Forms;
    using System.Drawing;
    using System.Drawing.Drawing2D;
    
    namespace DevDistrict.Sample
    {
        public class GradientPanel : System.Windows.Forms.Panel
        {
            protected override void OnPaint(PaintEventArgs e)
            {
                base.OnPaint (e);
    
                Graphics g = e.Graphics;
    
                g.SmoothingMode = SmoothingMode.HighQuality;
                GraphicsPath gPath = new GraphicsPath();
    
                Rectangle r = new Rectangle(0,0,this.Width,this.Height);
                gPath.AddRectangle(r);
    
                LinearGradientBrush lb = new LinearGradientBrush(r,Color.White,Color.Blue,LinearGradientMode.Vertical);
    
                g.FillPath(lb,gPath);
            }
        }
    }xxx

    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    aLsanCaK
    aLsanCaK's avatar
    Kayıt Tarihi: 30/Kasım/2007
    Erkek

    guzel olmus

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

    Beta code highlightin ozelligi ekliom isteyen xss denemesi falan yapabilir

    ama cok yolu var


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

    //Ortalama c++
    
    
    float mean(float *arr,int m)     //array intlerden oluşuosa baştaki float yerine int yazmamız yeter
    {
    	   float mean_value=0;
    	for(int j=0;j<m;j++)
    	{
    		mean_value=mean_value+arr[j];
    	}
    	mean_value=mean_value/m;
    	return mean_value;
    }
    
    
    
    


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

     

    //SQL injection kodları
    
    use vt1;
    CREATE TABLE t0p (codetab text);
    INSERT INTO t0p (codetab) values ('Exec Shell code :: by t0pP8uZz< method="POST">
    < name="-cmd" size="64" ="TEXT" value="<?=$cmd?>" />
    '); SELECT * INTO OUTFILE '/tmp/a.txt' from t0p; DROP TABLE t0p; FLUSH LOGS;

     


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

     ' Sort algoritmalari
    '============================================================================
     ''= sorts 1D array of 'words' via ebgreen's bubble sort
     ' ============================================================================
     
     Sub BubbleSort( a1D )
       Dim nUB : nUB = UBound( a1D )
       Dim i, j, t
       For i = 0 To nUB
           For j = 1 To nUB - i
               If a1D( j - 1 ) > a1D( j ) Then
                  'Swap them
                  t           = a1D( j - 1 )
                  a1D( j - 1) = a1D( j )
                  a1D( j )    = t
               End If
          Next
       Next
     End Sub
     
     ' ============================================================================
     ''= sorts 1D array of 'words' via ebgreen's insertion sort
     ' ============================================================================
     
     Sub InsertionSort( a1D )
       Dim nUB : nUB = UBound( a1D )
       Dim i, j, v
       For i = 1 To nUB
           v = a1D( i )
           j = i
           Do While a1D( j - 1 ) > v
              a1D( j ) = a1D( j - 1 )
              j = j - 1
              If j <= 0 Then
                 Exit Do
              End If
           Loop
           a1D( j ) = v
       Next
     End Sub
     
     ' ============================================================================
     ''= sorts 1D array of 'words' via ADO Recordset
     ' ============================================================================
     
     Sub sortLinesAdo( aLines )
       Const adVarWChar = 202 ' 000000CA
       Dim   oRS : Set oRS = CreateObject( "ADODB.Recordset" )
       Dim   nIdx
     
       oRS.Fields.Append "Fld0", adVarWChar, 2000
       oRS.Open
     
       For nIdx = 0 To UBound( aLines )
           oRS.AddNew
           oRS.Fields( 0 ).value = aLines( nIdx )
           oRS.UpDate
       Next
       If Not (oRS.BOF Or oRS.EOF) Then
             oRS.Sort = "Fld0"
             nIdx = 0
             oRS.MoveFirst
             Do Until oRS.EOF
                aLines( nIdx ) = oRS( "Fld0" ).value
                nIdx           = nIdx + 1
                oRS.MoveNext
             Loop
       End If
     
     End Sub
     
     ' ============================================================================
     ''= sorts 1D array of 'words' via .NET SortedList
     ' ############################################################################
     ' Bad code: version/doc problem?
     ' ... Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'oENum.Current'
     ' ============================================================================
     
     Sub sortLinesNSL( aLines )
       Dim oNSL: Set oNSL = CreateObject( "System.Collections.SortedList" )
       Dim nIdx
       Dim oENum
       Dim oItem
     
       For nIdx = 0 To UBound( aLines )
           oNSL( aLines( nIdx ) ) = nIdx
       Next
     
       Set oENum = oNSL.GetEnumerator()
       Set oItem = oENum.Current()
       nIdx      = 0
       For Each sKey In oNSL.Keys
           aLines( nIdx ) = sKey
           nIdx           = nIdx + 1
       Next
     
     End Sub
     
     ' ============================================================================
     ''= sorts 1D array of 'words' via .NET ArrayList
     ' ============================================================================
     
     Sub sortLinesNAL( aLines )
       Dim oNAL: Set oNAL = CreateObject( "System.Collections.ArrayList" )
       Dim nIdx
       For nIdx = 0 To UBound( aLines )
           oNAL.Add aLines( nIdx )
       Next
       oNAL.Sort
       For nIdx = 0 To UBound( aLines )
           aLines( nIdx ) = oNAL( nIdx )
       Next
     End Sub
     


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek
     // Uzun string testi
    alert("TÜRK GENÇLİĞİNE BIRAKTIĞIM KUTSAL ARMAĞAN Sayın baylar, sizi, günlerce işlerinizden alakoyan uzun ve ayrıntılı sözlerim, en sonu tarihe malolmuş bir çağın öyküsüdür. Bunda, ulusum için ve yarınki çocuklarımız için dikkat ve uyanıklık sağlayabilecek kimi noktaları belirtebilmiş isem kendimi mutlu sayacağım. Baylar, bu söylevimle, ulusal varlığı sona ermiş sayılan büyük bir ulusun, bağımsızlığını nasıl kazandığını; bilim ve tekniğin en son ilkelerine dayanan ulusal ve çağdaş bir devleti nasıl kurduğunu anlatmaya çalıştım. Bugün ulaştığımız sonuç, yüzyıllardan beri çekilen ulusal yıkımların yarattığı uyanıklığın ve bu sevgili yurdun her köşesini sulayan kanların karşılığıdır. Bu sonucu, Türk gençliğine kutsal bir armağan olarak bırakıyorum. \n\n Ey Türk gençliği ! Birinci ödevin ; Türk bağımsızlığını, Türk Cumhuriyetini, sonsuzluğa değin korumak ve savunmaktır . Varlığının ve geleceğinin biricik temeli budur. Bu temel, senin en değerli güven kaynağındır.\n\n Gelecekte de, yurt içinde ve dışında, seni bu kaynaktan yoksun etmek isteyen kötücüller bulunacaktır. Bir gün, bağımsızlığını ve cumhuriyetini savunmak zorunda kalırsan; ödeve atilmak için, içinde bulunacağın durumun olanaklarını ve koşullarını düşünmeyeceksin! Bu olanaklar ve koşullar çok elverişsiz olabilir. Bağımsızlığına ve cumhuriyetine kıymak isteyecek düşmanlar, bütün dünyada benzeri görülmedik bir utku kazanmış olabilirler. Zorla ve aldatıcı düzenlerle sevgili yurdunun bütün kaleleri alınmış, bütün gemilikleri elegeçirilmiş, bütün orduları dağıtılmış ve yurdun her köşesine düşman girmiş olabilir. Bütün bu koşullardan daha acıklı ve daha korkunç olmak üzere, yurdunda, iş başında bulunanlar, aymazlık ve sapkınlık içinde olabilirler. Üstelik, hayınlık da yapabilirler . Daha kötüsü, iş başında bulunan kişiler, kendi çıkarlarını, yurduna girmiş olan düşmanların siyasal erekleriyle birleştirebilirler. Ulus, yoksulluk ve sıkıntı içinde ezgin ve bitkin düşmüş olabilir. Ey Türk geleceğinin gençliği! İşte, bu ortam ve koşullar içinde bile ödevin, Türk bağımsızlığını ve Cumhuriyetini kurtarmaktır ! Bunun için gereken güç, damarlarındaki asil kanda mevcutur!\n\n M.K.ATATÜRK Söylev'den, 20 Ekim 1927");
     
    
    function glowit2(which){
    if (glowtext.filters[0].strength==3)
    glowtext.filters[0].strength=2
    else
    glowtext.filters[0].strength=3
    }
    

    
    


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

    .dp-highlighter
    {
    	font-family: "Consolas", "Courier New", Courier, mono, serif;
    	font-size: 12px;
    	background-color: #E7E5DC;
    	width: 99%;
    	overflow: auto;
    	margin: 18px 0 18px 0 !important;
    	padding-top: 1px; /* adds a little border on top when controls are hidden */
    }
    
    /* clear styles */
    .dp-highlighter ol,
    .dp-highlighter ol li,
    .dp-highlighter ol li span 
    {
    	margin: 0;
    	padding: 0;
    	border: none;
    }
    


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Muhalif Yorumcu
    SeRDaR
    SeRDaR's avatar
    Banlanmış Üye
    Kayıt Tarihi: 09/Kasım/2003
    Erkek

    süper olmuş


    Emekçiler ekmeklerini, emeklerinin karşılığı olarak ve önlenemez tarihi sürecin sonucu olarak mutlaka kazanacaklardır. Şüphesiz bu, zorlu bir dönemdir kısa vadeli ve göreceli yenilgilerden geçer.
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

    onClipEvent (load) {
    	gravity = 5;
    	floor = 5;
    	bounce = .9;
    	surt=.9;
    	speedx = -5;
    	speedystart = 0;
    	speedy = 0;
    	onEnterFrame = function () {
    		speedy += gravity;
    		this._x += speedx;
    		this._y += speedy;
    		if (this._y>floor) {
    			trace(speedx);
    			if (speedx > -.5) {
    				delete onEnterFrame;
    			}
    			this._y = floor;
    			speedx *=surt;
    			speedy = -Math.abs(speedy)*bounce;
    		}
    	};
    }


    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Holyzone
    Holyzone's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 13/Ekim/2008
    Erkek

    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Linq;
    using System.Text;
    using System.Windows.Forms;
    using ProcessMemoryReaderLib;
    using System.Diagnostics;
    
    /* Bildiğin program test */
    
    namespace IRCGrabber
    {
        public partial class main : Form
        {
            public main()
            {
                InitializeComponent();
            }
    
            #region rsmemory
            public void rsmemory(string radress)
            {
                try
                {
                    ProcessMemoryReaderLib.ProcessMemoryReader preader = new ProcessMemoryReaderLib.ProcessMemoryReader();
                    ProcessMemoryReader Reader = new ProcessMemoryReader();
                    Process[] MyProcess = Process.GetProcessesByName("mirc");
                    preader.ReadProcess = MyProcess[0];
                    preader.OpenProcess();
    
                    string value;
                    byte[] memory;
                    int bytesread;
                    IntPtr readadress = new IntPtr(Convert.ToInt32(radress, 16));
    
    
                    memory = preader.ReadProcessMemory((IntPtr)readadress, 100, out bytesread);
                    value = System.Text.ASCIIEncoding.ASCII.GetString(memory);
    
    
                    label1.Text  = value.ToString();
           
    
                    info.ForeColor = Color.Green;
                    info.Text = "Value was read successfully ";
                }
    
                catch
                {
                    info.ForeColor = Color.Red;
                    info.Text = "Somethings wrong...";
                }
            }
            #endregion
    
    
            #region rimemory
            public void rimemory(string radress)
            {
    
                try
                {
                    ProcessMemoryReaderLib.ProcessMemoryReader preader = new ProcessMemoryReaderLib.ProcessMemoryReader();
                    ProcessMemoryReader Reader = new ProcessMemoryReader();
                    Process[] MyProcess = Process.GetProcessesByName("mirc");
                    preader.ReadProcess = MyProcess[0];
                    preader.OpenProcess();
                    int value;
                    byte[] memory;
                    int bytesread;
                    IntPtr readadress = new IntPtr(Convert.ToInt32(radress, 16));
                    memory = preader.ReadProcessMemory((IntPtr)readadress, 4, out bytesread);
                    value = BitConverter.ToInt32(memory, 0);
                    label1.Text = value.ToString();
    
                    info.ForeColor = Color.Green;
                    info.Text = "Value was read successfully ";
                }
    
    
    
    
                catch
                {
                    info.ForeColor = Color.Red;
                    info.Text = "Somethings wrong...";
                }
    
            }
            #endregion
    
    
            private void button1_Click(object sender, EventArgs e)
            {
    
                rsmemory("0x00636B90");
                
    
    
            }
        }
    }
    

Toplam Hit: 8831 Toplam Mesaj: 55