Шедевры форума 2012-2015

[Poma][a]

бомшелф ужреддоП

[Аватар]

Делать не фиг. Форум рускоязычный, а не марсианский

[Kix.IV]

Tyfbchfv jujyvty sv tcd ?hfnfdf.
____________

[Вадим Мошев]

Сообщение от Kix.IV

Tyfbchfv jujyvty sv tcd ?hfnfdf.
____________

Засунул в Яндекс эту фразу - думаю: "что за фигню он мне пишет?", а потом догадался...

[Алексей_2012]

И что он пишет?)

[Алексей_2012]

А, понял, перевертыш+регистр забыли поменять, ну а для легкого создания/расшифровки перевертыша:

(делфи)

procedure TForm1.Button1Click(Sender: TObject);
var s,m:string;
    i:integer;
begin
  m:='';
  s:=Trim(Edit1.text);
  for  i:=Length(s) downto 1 do   m:=m+s[i];
  Edit1.Text:=m;
end;

*MATRIX*

[Kix.IV]

А, понял, перевертыш+регистр забыли поменять, ну а для легкого создания/расшифровки перевертыша:

Это не регистр, а раскладка. И её я не забыл поменять, это было сделано специально.
Код только переварачивает строку. Смысл в Trim мне не поянтен.
UPD:Вот полноценная расшифровка:

function decode(s:String):string;
const
  eng: string = 'qwertyuiop[]asdfghjkl;' + chr(39) +  'zxcvbnm,.`QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>~?/';
  rus: string =  'йцукенгшщзхъфывапролджэячсмитьбюёЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ,.';
var
  p, i: integer;
begin
  s := ReverseString(s);
  delete(s,1,1);
  s[1] := Char(AnsiUpperCase(s[1])[1]);
  s[length(s)] := Char(AnsiLowerCase(s[length(s)])[1]);
  s := s + '/';
  for i := 1 to Length(s) do
  begin
    p := Pos(s[i], eng);
    if p < 1 then
      Result := Result + s[i]
    else
      Result := Result + rus[p];
  end;
end;

[Smitt&Wesson]

Не, сам лентяй, но такого ещё не видел - :

сидеть и не чего не делать (типа оператора, только слушать мзыку)

http://www.programmersforum.ru/showt...=240589&page=2

[Kix.IV]

http://www.programmersforum.ru/member.php?u=258010
Не шедевр, но такого я здесь ещё не видел.

[MihalNik]

2 Kix.IV. Это был очередной вы**р известного тролля. Вообще я бы на месте администрации выпилил из профиля все это. Хотя возможно, что те подписи недоступны