Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
status = message.status
if message.status == .delivered || message.status == .failed || message.status == .read {
button.isHidden == false
button.isUserInteractionEnabled = true
} else {
button.isHidden == true
button.isUserInteractionEnabled = false
}песааатель
alexis-ag,
21 Июля 2023
+1
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
void PasswordChecker(void);
void sub_BB4F(unsigned char* Password);//subroutine $BB4F and so on...
void sub_BB21(void);
void sub_BBE0(void);
void sub_BBEA(void);
void SEC_SBC_6502(unsigned char operand);
void ADC_6502_simplified(unsigned char operand);
unsigned char Password[8];//$0766 to $076D in RAM, when a player enters it
unsigned char Invalidity=0;//$0764 in RAM
unsigned char Level;//$$0070 in RAM
unsigned char TimeTens;//$04c5 in RAM
unsigned char TimeOnes;//$04c6 in RAM
unsigned char Byte4BF, Byte17, Byte18;
unsigned char a, x;
unsigned char c=0;//carry flag
//former char Byte76A is Password[4] now, former char Byte76C is Password[6] now
void PasswordGenerator(void);
void BuildORTable(void);
unsigned char* BuildParticularLevelsArray(unsigned char DesiredLevel);//will think of it later...
void SimplifiedLevelGenerator(unsigned char* PassToFill,unsigned char Level);//finds just one 2nd,3rd,6th,8th digit combo
int main()
{
int Choice;
printf("Enter g if you'd like to generate a new password.\nEnter a to analyze an existing password.\n");
Choice=fgetc(stdin);
flushall();
if (Choice=='a')
PasswordChecker();
if (Choice=='g')
PasswordGenerator();
if (Choice=='s')//'level function' is basic when generating a pass
BuildORTable();//so here a bit of 'hidden' investigation, which will be useful
//if I ever decide to rewrite this prog to output all passes possible, not just one
printf("Press any key to quit.\n");
getch();
return 0;
}
void PasswordChecker(void)
{
char InputString[9];//one extra byte needed due to fgets
int i;
printf("Please enter your password to test:\n");
fgets(InputString,9,stdin);
for(i=0;i<8;i++)
{
if ((InputString[i]>57)||(InputString[i]<48))
{
printf("This string contains non-digits.\n");
return;
}
else
Password[i]=InputString[i]-48;//ascii to digit
}
sub_BB4F(Password);
if (Invalidity==1)
{
printf("This password is invalid.\n");
return;
}
printf("%s%d","Level: ",Level);
printf("%s%d%d\n"," Time: ",TimeTens,TimeOnes);
if (Level==15)
printf("Level 15 doesn't exist. So-called level 15 passwords are programming mistakes and cause system hang.\n");
if (Level==16)
printf("Level 16 doesn't exist. So-called level 16 passwords are programming mistakes and lead you to a buggy screen where Prince can't move.\n");
return;
}
void sub_BB4F(unsigned char* Password)//$BB4F
{
a=0;
x=0;
while (x<8)
{
a=a+Password[x];
x++;
}
if(a==0)
{
Invalidity=1;//$BBC0
return;
}
Byte17=Password[4];//$BB63
Byte18=Password[6];
Password[4]=0;
Password[6]=0;
sub_BB21();//$BB72,calculates and writes 1st checksum to Password[4], 2nd checksum to Password[6]
if (Password[4]!=Byte17)
{
Invalidity=1;
return;
}
Генератор паролей для игры Prince Of Perisa. Пришлось немного повозиться...
if (Password[6]!=Byte18)//$BB7C
{
Invalidity=1;
return;
}
Invalidity=0;//$BB85
a=Password[7];
sub_BBEA();
a=a&3;//$BB8E
a=a*4;
Password[7]=a;
a=Password[1];
sub_BBE0();//$BB98
a=a|Password[7];
Level=a+1;//+1 is my insertion
//if (Level!=1)//I chose to omit this $BBA2-$BBA4 code b/c it's unknown what byte at $06EE means
a=Password[0];
sub_BBE0();//$BBAA
TimeTens=a;
a=Password[3];
sub_BBEA();
TimeOnes=a;
return;//$BBBF
}
void SEC_SBC_6502(unsigned char operand)
{
c=1;
if ((a-operand)>=0)
a=a-operand;
else
{
a=a-operand+256;
c=0;
};
}
void ADC_6502_simplified(unsigned char operand)
{
if ((a+operand)<256)
a=a+operand;
else a=a+operand-256;
}
void sub_BB21(void)
{
x=0;
BB23: a=Password[4];
a=a+Password[x];
if(a<10)
{
BB46: Password[4]=a;//$BB46
x++;
if (x!=8)
goto BB23;
else return;//$BB4E
}
else //$BB2E
{
Byte4BF=a;
a=Password[6];
a++;//we came here b/c c=1
if (a<10)
goto BB3D;
else
SEC_SBC_6502(10);//can we get here? I doubt...
BB3D: Password[6]=a;
a=Byte4BF;
SEC_SBC_6502(10);//$BB44, no danger of negative result
goto BB46;
}
}
cepreu_monoJlb,
19 Марта 2023
+3
Итак, оказалось, что нас всего трое-четверо, не считая меня и временно съебнувших.
1. Инканус владеет большинством петушков и файкой Лолечка. Особо не переживает по поводу утраты фаек, ибо у него их - куры не клюют.
2. Человек под ником guest6. Перманент. Шанс того, что под этой файкой сидит несколько хуйцов столь мизерный, что не примем его в счёт.
Несмотря на острый ум, довольно ограничен и имеет узкий кругозор. Также ему свойственны резкие скачки настроения.
Я долго пытался угадать его знак зодиака, но впал в сомнения. Что-то из этого: [Скорпион. Дева. Стрелец].
3. Некто, владеющий soul_re@ver и прочими, с анимешной авой.Расследование продолжается.
Support,
28 Февраля 2023
+4
Мдас. Нелегко глядеть в глаза родителя, с чьим чей сынишкой у тебя отношения... Проблема в том, что с отцом мы тоже... друзья.
Сложно сказать, догадывается папаша или нет, и вызвана ли эта улыбка радостью за своего ребенка или холодком подозрений.Такой скотиной себя давно не чувствовал.
Support,
17 Февраля 2023
−1
/// <summary>
/// Converts an object to null. Returns null.
/// </summary>
public static object ToNull(this object value)
{
return null;
}Индийский extension
bugotrep,
07 Февраля 2023
0
var width = $(window).width(), check;
width > 950 ? check = true : check = false;
Snake911,
30 Ноября 2022
−2
template<typename ProcessT, typename... Args>
requires (!std::derived_from<ProcessT, Process<ProcessT>>)
ProcessT& startProcess(processing::Processor& processor, Args&&... args)
{
processor.template getProcess<ProcessT>(processor.template attach<ProcessT>(args...));
}
template<typename ProcessT, typename... Args>
requires std::derived_from<ProcessT, Process<ProcessT>>
ProcessT& startProcess(processing::Processor& processor, Args&&... args)
{
processor.template getProcess<ProcessT>(processor.template attach<ProcessT>(
static_cast<T*>(this)->entity, args...));
}Ко мне вернулось вдохновение
kcalbCube,
08 Октября 2022
−4
// first is information about the first byte in a UTF-8 sequence.
var first = [256]uint8{
// 1 2 3 4 5 6 7 8 9 A B C D E F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x00-0x0F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x10-0x1F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x20-0x2F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x30-0x3F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x40-0x4F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x50-0x5F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x60-0x6F
as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, as, // 0x70-0x7F
// 1 2 3 4 5 6 7 8 9 A B C D E F
xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, // 0x80-0x8F
xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, // 0x90-0x9F
xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, // 0xA0-0xAF
xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, // 0xB0-0xBF
xx, xx, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, // 0xC0-0xCF
s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, // 0xD0-0xDF
s2, s3, s3, s3, s3, s3, s3, s3, s3, s3, s3, s3, s3, s4, s3, s3, // 0xE0-0xEF
s5, s6, s6, s6, s7, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, xx, // 0xF0-0xFF
}
как вы уже догадались, это у тэ эф восемь
"as" это as is
xx -- хуйня хуёвая
s1 -- size1 и пр
Такое вот табличное программирование
DypHuu_niBEHb,
03 Октября 2022
−1
#define BITS 8
typedef union
{
int v;
struct
{
#define FIELD(x,_) int b##x:1;
EVAL(REPEAT(BITS, FIELD, ~))
#undef FIELD
};
} Num;
Num shl(Num n, int carry)
{
#define SHIFTL(x,_) CAT(n.b, CAT(x = n.b, CAT(DEC_,x)));
EVAL(RREPEAT(BITS, SHIFTL, ~))
#undef SHIFTL
n.b0 = carry;
}
Num shr(Num n, int carry)
{
#define SHIFTR(x,_) CAT(n.b, CAT(CAT(DEC_,x) = n.b, x));
EVAL(REPEAT(BITS, SHIFTR, ~))
#undef SHIFTR
CAT(n.b, CAT(DEC_,BITS)) = carry;
}
int main()
{
for (int i=0; i<33; ++i){
Num n = {i};
Num n1 = shl(n,0);
Num n2 = shr(n,0);
printf("%d %d %d\n",n ,n1 , n2);
}
}
https://godbolt.org/z/48h6EWacY
Двунаправленный сдвиговый регистр на препроцессоре.
Сделан без использования арифметических действий.
3.14159265,
21 Июля 2022
0
// реализация интерфейса IArguments2 для самодельного скриптового движка, aka vbs to exe
unit Arguments;
interface
uses
Windows, ComObj, ActiveX, Stub_TLB, SysUtils,WSHNamedArguments,WSHUnNamedArguments, CmdUtils;
type
TIarguments=class(TAutoObject, IArguments2, IEnumVariant)
FAArgs:array of WideString;
FWSHNamedArguments:TIWSHNamedArguments;
FWSHUnNamedArguments:TIWSHUnNamedArguments;
function Item(Index: Integer): WideString; safecall;
function Count: Integer; safecall;
function Get_length: Integer; safecall;
function _NewEnum: IUnknown; safecall;
property length: Integer read Get_length;
function Get_Named: IWSHNamedArguments; safecall;
function Get_Unnamed: IWSHUnnamedArguments; safecall;
procedure ShowUsage; safecall;
property Named: IWSHNamedArguments read Get_Named;
property Unnamed: IWSHUnnamedArguments read Get_Unnamed;
function Next(celt: LongWord; var rgvar : OleVariant;
out pceltFetched: LongWord): HResult; stdcall;
function Skip(celt: LongWord): HResult; stdcall;
function Reset: HResult; stdcall;
function Clone(out Enum: IEnumVariant): HResult; stdcall;
public
constructor Create;
end;
implementation
uses ComServ;
var
FIndex:Integer=0;
{ TIarguments }
function TIarguments._NewEnum: IUnknown;
begin
Result:=self;
end;
function TIarguments.Count: Integer;
begin
Result:=System.Length(FAArgs);
end;
function TIarguments.Get_length: Integer;
begin
Result:=Count;
end;
function TIarguments.Item(Index: Integer): WideString;
begin
if (Index >= System.Length(FAArgs)) then
raise EOleSysError.Create('Range check error', HRESULT($800A0009),0)
else
Result:=FAArgs[Index]
end;
function TIarguments.Get_Named: IWSHNamedArguments;
begin
Result:=FWSHNamedArguments;
end;
function TIarguments.Get_Unnamed: IWSHUnnamedArguments;
begin
Result:=FWSHUnNamedArguments;
end;
procedure TIarguments.ShowUsage;
begin
OleError(E_NOTIMPL);
end;
constructor TIarguments.Create;
var
I,J, PCnt:Integer;
S, CmdLine:string;
begin
inherited Create;
FIndex:=0;
FWSHNamedArguments:=TIWSHNamedArguments.Create;
FWSHUnNamedArguments:=TIWSHUnNamedArguments.Create;
PCnt:=ParamCount;
SetLength(FAArgs, PCnt);
for I:=1 to PCnt do
begin
J:=I-1;
FAArgs[J]:=ParamStr(I);
end;
//Parsing named args.
CmdLine:='';
S:=GetCommandLine;
PCnt:=iParamCount(PChar(S));
if PCnt > 1 then
begin
for I:=1 to PCnt-1 do
begin
CmdLine:=CmdLine+iParamStr(PChar(S), I);
if I < PCnt-1 then
CmdLine:=CmdLine+' ';
end;
end;
Support,
09 Июня 2022
Follow us!