-
Лучший говнокод
- В номинации:
-
- За время:
-
-
−95
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
For x=1 to Len(content)
bs = Mid(content, x, 1)
If bs = "0" Or bs = "1" Or bs = "2" Or bs = "3" Or bs = "4" Or bs = "5" Or bs = "6" Or bs = "7" Or bs = "8" Or bs = "9"
If Not t1 = "."
d1+bs
ElseIf Not t2 = "."
d2+ bs
ElseIf Not t3 = "."
d3+ bs
ElseIf Not t4 = ":"
d4+ bs
Else
pp+ bs
EndIf
ElseIf bs = "."
If Not d1 = "" And d2 = ""
t1 = "."
ElseIf Not d2 = "" And d3 = ""
t2 = "."
ElseIf Not d3 = "" And d4 = ""
t3 = "."
ElseIf Not pp = ""
d1 = pp
d2 = ""
d3 = ""
d4 = ""
pp = ""
t1 = "."
t2 = ""
t3 = ""
t4 = ""
EndIf
Else
If Not d4 = "" And pp = ""
t4 = ":"
ElseIf Val(pp) > 79 And Val(pp) < 9000 And Val(d1) < 255 And Val(d2) < 255 And Val(d3) < 255 And Val(d4) < 255 And Val(d1) > 0 And Val(d2) > 0 And Val(d3) > 0 And Val(d4) > 0
p+ 1
prx = d1 + t1 + d2 + t2 + d3 + t3 + d4 + t4 + pp
If Not FindString(prx, "127.0.0.1", 1)
For r = 1 To ArraySize(prox())
g = 0
If prox(r) = prx
g = 1
EndIf
Next
If g = 0
prox(ArraySize(prox())) = prx
ReDim prox(ArraySize(prox())+1)
EndIf
EndIf
d1 = ""
d2 = ""
d3 = ""
d4 = ""
pp = ""
t1 = ""
t2 = ""
t3 = ""
t4 = ""
Else
d1 = ""
d2 = ""
d3 = ""
d4 = ""
pp = ""
t1 = ""
t2 = ""
t3 = ""
t4 = ""
EndIf
EndIf
Next x
=) это мой калл
суть: ищется посимвольным сравнениям прокси сервера формата n.n.n.n port и заполняется массив prox()
в 2000 году у PureBasic не было еще регулярок, а у меня знаний =)
даже сейчас удивляюсь что код тогда мной был написан за один раз и без комментариев 0_0 (d1,d2,d3,d4,pp,t1,t2,t3,t4.... жуть)
pbg,
29 Июня 2010
-
+148
- 1
- 2
- 3
- 4
private $title_host='Посещаемость (уникальных посетителей в сутки)';
private $title_download='ПРОГОРОД скачан (количество скачиваний программы в сутки)';
private $title_sell='ПРОГОРОД куплен (количество покупок ПРОГОРОД в сутки)';
private $title_sellshop='ПРОГОРОД офлайновые активации (количество в сутки)';
agent-0007,
21 Июня 2010
-
+76
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
public static boolean isPow(BigInteger n){
boolean zusammengesetzt=false;
BigInteger obereSchranke=n;
BigInteger untereSchranke=BigInteger.ONE;
BigInteger t;
for(BigInteger i=BigInteger.ONE;(i.compareTo(new BigInteger(new Integer((n.bitLength())).toString())) < 0);i=i.add(BigInteger.ONE)){
while( (obereSchranke.subtract(untereSchranke)).compareTo(BigInteger.ONE) > 0){
t=((obereSchranke.add(untereSchranke)).divide(new BigInteger("2")));
if((pow(t,i.add(BigInteger.ONE))).compareTo(n) == 0){
UserInterface.ausgabeFeld.append("Abbruch Schritt 1: Eingegebene Zahl ist nicht prim, da ");
UserInterface.ausgabeFeld.append("n = "+t+"^"+i.add(BigInteger.ONE)+"\n"+"\n");
UserInterface.ausgabeFeld.repaint();
return zusammengesetzt=true;
}
if((pow(t,i.add(BigInteger.ONE))).compareTo(n) > 0)
obereSchranke=t;
if((pow(t,i.add(BigInteger.ONE))).compareTo(n) < 0)
untereSchranke=t;
}
}
UserInterface.ausgabeFeld.append("Schritt 1: "+n+" ist keine echte Potenz!"+"\n");
UserInterface.ausgabeFeld.repaint();
return zusammengesetzt;
}
Проверка условия вида "n = a^b".
Впечатляет условие цикла for и реализация арифметических операций (хотя, может, с BigInteger так и надо).
WxD,
16 Июня 2010
-
+74
- 1
- 2
- 3
- 4
- 5
- 6
protected void setPhones(ArrayList<MBPhone> phones) {
if(phones!=null)
this.phones=phones;
else
phones.clear();
}
Код из одного западного вэб-сервиса для профессионалов в сфере недвижимости.
Мораль: не надо игнорировать подсказки IDE. Автор на самом деле хотел очистить this.phones. И Intelij Idea подсказывает, что в этом месте может быть брошен NullPointerException. Увидеть эту проблему можно было только используя аннотацию @SuppressWarnings. Потому что варнингов так много, что различить среди них опасные очень сложно.
vladimir.loshchin,
10 Июня 2010
-
+74
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
public class HoldMe implements Lock {
public static Lock canHas = maybeGetLock( );
public static boolean reuse = true;
@Override
public void lock( ) {}
private static Lock maybeGetLock( ) {
if ( reuse ) {
// return new ReentrantLock( );
return new HoldMe( );
} else {
return new HoldMe( );
}
}
@Override
public void lockInterruptibly( ) throws InterruptedException {}
@Override
public Condition newCondition( ) {
return null;
}
@Override
public boolean tryLock( ) {
return true;
}
@Override
public boolean tryLock( long arg0, TimeUnit arg1 ) throws InterruptedException {
return true;
}
@Override
public void unlock( ) {}
}
// Пример использования:
HoldMe.canHas.lock( );
try {
// Код
} finally {
HoldMe.canHas.unlock( );
}
Суровые калифорнийцы суровы. Впрочем, я это уже говорил.
raorn,
28 Мая 2010
-
+161
- 1
- 2
- 3
- 4
- 5
public bool IsDeleted
{
get { return _isDeleted; }
set { _isDeleted = true; }
}
удалить то удалил, а вот IsDeleted = false удачи =)
ksis.poit,
20 Мая 2010
-
+144
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
class Node{
private:
int _data;
Node * _next;
public:
Node(int data): _next(0), _data(data){};
int getData() const {return _data;}
void setData(int value) {_data = value;}
Node * getNextNode() const {return _next;}
void setNextNode(Node * nextNode) {_next = nextNode;}
};
Нашел на страницах пастбина.
hromjo,
19 Мая 2010
-
−125
- 1
- 2
- 3
- 4
- 5
- 6
- 7
while (my $t = $tix->RT::SearchBuilder::Next) { # BLOODY HACK
my $when = $t->ResolvedObj->Unix - $t->CreatedObj->Unix;
next unless $when > 0; # Doubly bloody hack
my $max = (60*60*24*2) / 1800;
my $x = int($when / 1800);
$counts[$x > $max ? $max : $x]++;
}
Нашел в коде RTx Statistics - расширения для CRM Request Tracker: http://wiki.bestpractical.com/view/RT3StatisticsPackage
del,
19 Мая 2010
-
+114
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
function user_report_1()
{
global $dbServer,$dbPort,$dbUser,$dbPwd;
mysql_connect($dbServer.':'.$dbPort,$dbUser,$dbPwd);
mysql_query('Set charset cp1251');
mysql_select_db("DB");
$Sql='SELECT
`авто`.`ИмяОМ`, `авто`.`МаркаАвто`,`авто`.`ГосРегНомер`, `типыавто`.`Тип`, `цветавто`.`Цвет`
FROM
`зао мирком`.`авто`
INNER JOIN `зао мирком`.`типыавто` ON `авто`.`ТипАвто` = `типыавто`.ID
INNER JOIN `зао мирком`.`цветавто` ON `авто`.`ЦветМашины` = `цветавто`.ID
WHERE
`авто`.`Организация` = '.$_SESSION['ID'];
$result=mysql_query($Sql);
$html="<table>";
$html.="<tr><th>Название</th><th>Марка авто</th><th>Гос номер</th><th>Тип авто</th><th>Цвет авто</th></tr>";
while($row=mysql_fetch_row($result))
{
$html.="<tr>";
foreach($row as $val)
{
$html.="<td>$val</td>";
}
$html.="</tr>";
}
$html.="</table>";
return $html;
}
?>
<script>
function update(Elname,HtmlText)
{
var El=document.getElementById(Elname); // Находим елемент Elname в дереве DOM
El.innerHTML=HtmlText;
}
</script>
......
<tr><td><button onClick="update('work','<? echo(user_report_1())?>')">Отчет 1</button></td></tr> // Вот таких кнопочек там 5 штук
......
Заходит пользователь на страницу и ему сразу 5 отчетов генерируется а нужны они ему или не нужны это другой вопрос. Вот это я нагородил 1,5 года назад.
Vasiliy,
14 Мая 2010
-
−103
- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
Function preview()
On Error GoTo stp
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
File1.ListIndex = 0
temp = File1.path & "\" & File1.FileName
Image2.Picture = LoadPicture(temp)
Image2.ToolTipText = File1.FileName
Image2.Visible = True
File1.ListIndex = 1
temp = File1.path & "\" & File1.FileName
Image3.Picture = LoadPicture(temp)
Image3.ToolTipText = File1.FileName
Image3.Visible = True
File1.ListIndex = 2
temp = File1.path & "\" & File1.FileName
Image4.Picture = LoadPicture(temp)
Image4.ToolTipText = File1.FileName
Image4.Visible = True
File1.ListIndex = 3
temp = File1.path & "\" & File1.FileName
Image5.Picture = LoadPicture(temp)
Image5.ToolTipText = File1.FileName
Image5.Visible = True
File1.ListIndex = 4
temp = File1.path & "\" & File1.FileName
Image6.Picture = LoadPicture(temp)
Image6.ToolTipText = File1.FileName
Image6.Visible = True
File1.ListIndex = 5
temp = File1.path & "\" & File1.FileName
Image7.Picture = LoadPicture(temp)
Image7.ToolTipText = File1.FileName
Image7.Visible = True
File1.ListIndex = 6
temp = File1.path & "\" & File1.FileName
Image8.Picture = LoadPicture(temp)
Image8.ToolTipText = File1.FileName
Image8.Visible = True
File1.ListIndex = 7
temp = File1.path & "\" & File1.FileName
Image9.Picture = LoadPicture(temp)
Image9.ToolTipText = File1.FileName
Image9.Visible = True
File1.ListIndex = 8
temp = File1.path & "\" & File1.FileName
Image10.Picture = LoadPicture(temp)
Image10.ToolTipText = File1.FileName
Image10.Visible = True
File1.ListIndex = 9
temp = File1.path & "\" & File1.FileName
Image11.Picture = LoadPicture(temp)
Image11.ToolTipText = File1.FileName
Image11.Visible = True
File1.ListIndex = 10
temp = File1.path & "\" & File1.FileName
Image12.Picture = LoadPicture(temp)
Image12.ToolTipText = File1.FileName
Image12.Visible = True
File1.ListIndex = 11
temp = File1.path & "\" & File1.FileName
Image13.Picture = LoadPicture(temp)
Image13.ToolTipText = File1.FileName
Image13.Visible = True
File1.ListIndex = 12
temp = File1.path & "\" & File1.FileName
Image14.Picture = LoadPicture(temp)
Image14.ToolTipText = File1.FileName
Image14.Visible = True
File1.ListIndex = 13
temp = File1.path & "\" & File1.FileName
Image15.Picture = LoadPicture(temp)
Это код функции для реализации предосмотра изображений в папке.
Да, массивы, однако, лучший вариант чем этот :)
ecco,
08 Мая 2010