Bash.org.ru IT Happens Истории ## 9801 – 9900

#9899: Обфускация тирьямпампацией

12:15 20.09.2012, IT happens

Когда у программистов бывает хорошее настроение, они творят. И часто это настроение находит своё непосредственное выражение в самом родном и близком — в программном коде.

Вот что я обнаружил в листинге своего одногруппника:

procedure TFamPapam.BamBamClick(Sender: TObject);

var pam,pam_,tararam,tiryam_pam_pam:real;

tryam:integer;

begin

GetParam;tryam:=0;tararam:=0.0001;

repeat

inc(tryam);

pam:=papam*Param(pum,pum_)+pum;

pam_:=-1*(papam_*Param_(pum,pum_)-pum_);

tiryam_pam_pam:=sqrt(sqr(pam-pum)+sqr(pam_-pum_));

pum:=pam;pum_:=pam_;

until tiryam_pam_pam

end;

И оно работает.