1. Pascal / Говнокод #8547

    +100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    function Encrypt(jstr: String): String;
var
  I: Integer;
  A: Real;
begin
  if Length(jstr) = 0 Then begin
    Result := '';
    Exit;
  end;
  A := 0;
    for I := 0 To Length(jstr) do
      A := A + (Ord(jstr[I]) * Pos(jstr[I],jstr)) / 33;
  Result := FormatFloat('0000000000.0000000000',A);
  if Pos(',',Result) > 0 then begin
    Insert('.',Result,Pos(',',Result));
    Delete(Result,Pos(',',Result),1);
  end;
end;

    Запостил: bugmenot, 17 Ноября 2011

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

    • ava d_dev 17.11.2011 14:08 # +1

      for I := 0 To Length(jstr) do
      ...Ord(jstr[i])...
      строки ведь индексируются с 1.
      интерeсно было бы посмотреть и на Decrypt :)
      Ответить

    • ava TarasB 17.11.2011 14:19 # 0

      > for I...
      > ...Pos(jstr[i],jstr)

      Квадрат. Надеюсь, это всего лишь лаба?
      Ответить

      • ava ctm 17.11.2011 14:40 # 0

        может быть тут сложность не важна
        Ответить

        • ava TarasB 17.11.2011 14:43 # 0

          То есть либо алгоритм дальше делает что-то, что работает за квадрат, и что уже не оптимизируется, либо это одноразовая программа для себя? Других случаев, когда сложность не важна, я не знаю.
          Случай ограничения на длину строки я не рассматриваю, потому что это Вася можно сказать "не использовать строки больше 100 символов", а Петя возьмёт, и забьёт на это.
          Ответить

          • ava Dummy00001 17.11.2011 15:36 # 0

            млин, вчитайся в то что программа делает: она конвертит строку в число с плавающей запятой.

            а если ты в этом коде только квадрат заметил...
            Ответить

            • ava TarasB 17.11.2011 16:04 # +1

              Я за шишками на деревьях не увидел леса. А шишки тут шикарные...
              Ответить

          • ava ctm 17.11.2011 16:16 # 0

            да например, в случае кодирования пароля
            Ответить

            • ava TarasB 17.11.2011 16:22 # 0

              Сознательная пессимизация? А тупо таймер поставить?
              Ответить

              • ava ctm 18.11.2011 06:19 # 0

                зачем? в лом было что-то приличнее O(n^2) придумывать, когда это и не требуется в общем-то
                Ответить

    • ava ctm 17.11.2011 14:39 # 0

      в дополнение:
      1. Некорректная работа с DecimalSeparator.
      2. Обратное преобразование невозможно: "ABBBAA", "ABBABA" и "ABAABB" кодируются одинаково.
      3. Длинную строку кодирует с погрешностью.
      п. 2 и 3 спорны - не знаю задачу: кодирование или хеш?
      Ответить

      • ava bugmenot 17.11.2011 15:08 # +1

        > кодирование, хеш или просто говно?
        никто не знает, я нашел это на стековервловочке
        Ответить

        • ava Dummy00001 17.11.2011 15:38 # 0

          > никто не знает, я нашел это на стековервловочке

          жуть. почему я и перестал читать вопросы там по популярным языкам программирования. благо перловцы там еще до такого не докатились.
          Ответить

    • ava TarasB 17.11.2011 14:44 # +3

      > if Pos(',',Result) > 0 then begin
      > Insert('.',Result,Pos(',',Result));
      > Delete(Result,Pos(',',Result),1);
      > end;

      Для замены одного символа делать вставку и удаление - это феерический долбоебизм.
      Ответить

      • ava ctm 17.11.2011 16:18 # 0

        это вообще отдельная тема:)
        и искать запятую а не DecimalSeparator - ГК.
        Ответить

    • ava Govnocoder#0xFF 17.11.2011 17:32 # +3

      > 
      Pos(jstr[i],jstr)

      Гениально!
      Ответить

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