1. VisualBasic / Говнокод #14177

    −117

    1. 1
    2. 2
    3. 3
    4. 4
    For [email protected]$ To @stroca$+(#size*2)-500 Step 2
      PokeS(i,"5")
    Next
    PokeS(@stroca$+(#size*2)-500,"555555555555.....")

    Еще один дебил.
    Взято с http://purebasic.info/phpBB3ex/viewtopic.php?f=13&t=3588

    Запостил: Stertor, 04 Декабря 2013

    Комментарии (8) RSS

    • #size=50000000
      Global stroca${#size*2}
      
      For [email protected]$ To @stroca$+(#size*2) Step 2
        PokeS(i,"5")
      Next
      PokeS(@stroca$+(#size*2),"5555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555566666")
      
      Procedure Poisktexta(string.s,string1.s,poziciy.i);если найдено возвращает начальный адрес искомых символов или позицию
      Protected r.i=MemoryStringLength(@string1)*2 
      Protected p.i=(@string+MemoryStringLength(@string)*2)-r
      Protected j.i
      For [email protected]+(poziciy*2) To p Step 2
      If CompareMemory(j,@string1,r):ProcedureReturn ([email protected])/2+1:EndIf;adfes pamyti [j] ili poziziy nahala stroki ([email protected])/2+1 
      Next
      ProcedureReturn 0
      EndProcedure
      MessageRequester("", "Начать поиск!")
      time = GetTickCount_()
      poziciy = Poisktexta(stroca$,"5555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555566666",1)
      t.d = (GetTickCount_() - time)/1000
      MessageRequester("", "Количество символов=" + Str(Len(stroca$)) + #CR$ + "poziciy = " + Str(poziciy) + #CR$ + "Время поиска = " +t)
      
      MessageRequester("", "Начать поиск!")
      time = GetTickCount_()
      poziciy = FindString(stroca$,"5555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555566666",1)
      t.d = (GetTickCount_() - time)/1000
      MessageRequester("", "Количество символов=" + Str(Len(stroca$)) + #CR$ + "poziciy = " + Str(poziciy) + #CR$ + "Время поиска = " + t)


      Прога, видите ли, "внезапно падает во время выполнения". )
      Ответить
    • For [email protected]$ To @stroca$+(#size*2)-500 Step 2

      Выглядит как надёжный пароль или фраза с нец@нзурн&№и словами.
      Ответить
    • Procedure$ FillString(Symbol$, Lenght)
        Protected String$
        ProcedureReturn RSet(String$, Lenght, Symbol$)
      EndProcedure


      достойно отдельного гк)
      Ответить
    • Автор топика болван и придурок. Даже не в том разделе запостил, ума не хватило.
      Ответить
    • Искоренять быдлотранслит! Кому нужен русский язык - гоу на 1С!
      Ответить

    Добавить комментарий