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

    −117

    1. 1
    2. 2
    3. 3
    4. 4
    For i=@stroca$ 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

    • ava Stertor 04.12.2013 19:46 # −1 

      #size=50000000
Global stroca${#size*2}

For i=@stroca$ 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 j=@string+(poziciy*2) To p Step 2
If CompareMemory(j,@string1,r):ProcedureReturn (j-@string)/2+1:EndIf;adfes pamyti [j] ili poziziy nahala stroki (j-@string)/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)


      Прога, видите ли, "внезапно падает во время выполнения". )
      Ответить

    • ava 1024-- 04.12.2013 19:52 # +2 

      For i=@stroca$ To @stroca$+(#size*2)-500 Step 2

      Выглядит как надёжный пароль или фраза с нец@нзурн&№и словами.
      Ответить

    • ava anonimb84a2f6fd141 04.12.2013 20:02 # 0 

      Procedure$ FillString(Symbol$, Lenght)
  Protected String$
  ProcedureReturn RSet(String$, Lenght, Symbol$)
EndProcedure


      достойно отдельного гк)
      Ответить

    • ava guest 06.12.2013 13:39 # −2

      Автор топика болван и придурок. Даже не в том разделе запостил, ума не хватило.
      Ответить

    • ava guest 07.12.2013 21:16 # +2

      Искоренять быдлотранслит! Кому нужен русский язык - гоу на 1С!
      Ответить

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