|
-
Oct 5th, 2005, 04:59 AM
#1
Thread Starter
Banned
The pollute thread
Here you can dump all your virtual pollution... 
-
Oct 5th, 2005, 05:33 AM
#2
Re: The pollute thread
/me discards a hypothetical crisp packet.
-
Oct 5th, 2005, 08:37 AM
#3
New Member
Re: The pollute thread
VB Code:
#include <ctype.h>
#include <curses.h>
#define T isspace(*(t=Z(p)))&&
#define V return
#define _ while
int d,i,j,m,n,p,q,x,y;char*c,b[BUF],*f,*g=b,*h,k[]="hjklHJKL[]tbixWRQ",*t;
char*Z(a){if(a<0)V b;V b+a+(b+a<g?0:h-g);}P(a)char*a;{V
a-b-(a<h?0:h-g);}S(){p=0;}bf(){n=p=P(c);}Q(){q=1;}C(){clear();Y();}
G(){t=Z(p);_(t<g)*--h= *--g;_(h<t)*g++= *h++;p=P(h);}B(){_(!T b<t)--p;_(T
b<t)--p;}M(a){_(b<(t=Z(--a))&&*t-'\n');V
b<t?++a:0;}N(a){_((t=Z(a++))<c&&*t-'\n');V
t<c?a:P(c);}A(a,j){i=0;_((t=Z(a))<c&&*t-'\n'&&i<j){i+= *t-'\t'?1:8-(i&7);++a;}V
a;}L(){0<p&&--p;}R(){p<P(c)&&++p;}U(){p=A(M(M(p)-1),x);}
D(){p=A(N(p),x);}H(){p=M(p);}E(){p=N(p);L();}
J(){m=p=M(n-1);_(0<y--)D();n=P(c);}K(){j=d;_(0<--j)m=M(m-1),U();}
I(){G();_((j=getch())-'\f'){if(j-'\b')g-h&&(*g++=j-'\r'?j:'\n');else
b<g&&--g;p=P(h);Y();}}X(){G();p=h<c?P(++h):p;}
F(){j=p;p=0;G();write(i=creat(f,MODE),h,(int)(c-h));close(i);p=j;}W(){_(!T
t<c)++p;_(T
t<c)++p;}int(*z[])()={L,D,U,R,B,J,K,W,H,E,S,bf,I,X,F,C,Q,G};
Y(){m=p<m?M(p):m;if(n<=p){m=N(p);i=m-P(c)?d:d-2;_(0<i--)m=M(m-1);}
move(0,0);i=j=0;n=m;_(1){p-n||(y=i,x=j);t=Z(n);if(d<=i||c<=t)break;
if(*t-'\r')addch(*t),j+= *t-'\t'?1:8-(j&7);if(*t=='\n'||COLS<=j)
++i,j=0;++n;}clrtobot();++i<d&&mvaddstr(i,0,"<< EOF >>");move(y,x);
refresh();}main(u,v)char**v;{h=c=b+BUF;if(u<2)V
2;initscr();d=LINES;raw();noecho();idlok(stdscr,1);if(0<(i=open(f= *++v,0))){
g+=read(i,b,BUF);g=g<b?b:g;close(i);}S();_(!q){Y();i=0;j=getch();
_(k[i]&&j-k[i])++i;(*z[i])();}endwin();V 0;}
More here:http://www0.us.ioccc.org/
-
Oct 5th, 2005, 08:42 AM
#4
Re: The pollute thread
A really cool way to create exes. 
VB Code:
Option Explicit
Enum ApplicationType
Console = 3
GUI = 2
End Enum
Public Passes As Integer
Public LinkCode() As Byte
Public SectionSize As Long
Public AppType As ApplicationType
Sub InitLinker()
ReDim LinkCode(0) As Byte
InitDOSHeader
InitDOSStub
InitPEHeader
InitSectionTable
InitRawData
InitCodeSection
InitImportSection
End Sub
Function CheckSectionSize() As Boolean
Dim i As Integer
Dim cSize As Long
Dim Value As Long
Value = UBound(CodeSection)
If Value < UBound(DataSection) Then Value = UBound(DataSection)
If Value < UBound(ImportSection) Then Value = UBound(ImportSection)
For i = 0 To Value Step 512
cSize = cSize + 2
Next i
If SectionSize < cSize Then
SectionSize = cSize
Passes = Passes + 1
CheckSectionSize = True
Exit Function
End If
CheckSectionSize = False
End Function
Sub InitDOSHeader()
AddLinkByte &H4D, &H5A, &H80, &H0, &H1, &H0, &H0, &H0, &H4, &H0, &H10, &H0, &HFF, &HFF, &H0, &H0
AddLinkByte &H40, &H1, &H0, &H0, &H0, &H0, &H0, &H0, &H40, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H80, &H0, &H0, &H0
End Sub
Sub InitDOSStub()
AddLinkByte &HE, &H1F, &HBA, &HE, &H0, &HB4, &H9, &HCD, &H21, &HB8, &H1, &H4C, &HCD, &H21, &H74
AddLinkByte &H68, &H69, &H73, &H20, &H70, &H72, &H6F, &H67, &H72, &H61, &H6D, &H20, &H63, &H61
AddLinkByte &H6E, &H6E, &H6F, &H74, &H20, &H62, &H65, &H20, &H72, &H75, &H6E, &H20, &H69, &H6E
AddLinkByte &H20, &H44, &H4F, &H53, &H20, &H6D, &H6F, &H64, &H65, &H2E, &HD, &HA, &H24, &H0, &H0
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0
End Sub
Sub InitPEHeader()
'Signature = "PE"
AddLinkByte &H50, &H45, &H0, &H0
'Machine 0x014C;i386
AddLinkByte &H4C, &H1
'NumberOfSections = 3
AddLinkByte &H3, &H0
'TimeDateStamp
AddLinkByte &H0, &H0, &H0, &H0
'PointerToSymbolTable = 0
AddLinkByte &H0, &H0, &H0, &H0
'NumberOfSymbols = 0
AddLinkByte &H0, &H0, &H0, &H0
'SizeOfOptionalHeader
AddLinkByte &HE0, &H0
'Characteristics
AddLinkByte &H8F, &H81
'Magic
AddLinkByte &HB, &H1
'MajorLinkerVersion
AddLinkByte &H1
'MinerLinkerVersion
AddLinkByte &H0
'SizeOfCode
AddLinkByte &H0, &H0, &H0, &H0
'SizeOfInitializedData
AddLinkByte &H0, &H0, &H0, &H0
'SizeOfUnInitializedData
AddLinkByte &H0, &H0, &H0, &H0
'AddressOfEntryPoint
AddLinkByte &H0, &H20, &H0, &H0
'BaseOfCode
AddLinkByte &H0, &H0, &H0, &H0
'BaseOfData
AddLinkByte &H0, &H0, &H0, &H0
'ImageBase
AddLinkByte &H0, &H0, &H40, &H0
'SectionAlignment
AddLinkByte &H0, &H10, &H0, &H0
'FileAlignment
AddLinkByte &H0, &H2, &H0, &H0
'MajorOSVersion
AddLinkByte &H1, &H0
'MinorOSVersion
AddLinkByte &H0, &H0
'MajorImageVersion
AddLinkByte &H0, &H0
'MinorImageVersion
AddLinkByte &H0, &H0
'MajorSubSystemVerion
AddLinkByte &H4, &H0
'MinorSubSystemVerion
AddLinkByte &H0, &H0
'Win32VersionValue
AddLinkByte &H0, &H0, &H0, &H0
'SizeOfImage
AddLinkByte &H0, &H40, &H0, &H0
'SizeOfHeaders
AddLinkByte &H0, &H2, &H0, &H0
'CheckSum
AddLinkByte &H94, &H6B, &H0, &H0
'SubSystem = 2:GUI; 3:Console
AddLinkByte AppType
AddLinkByte &H0
'DllCharacteristics
AddLinkByte &H0, &H0
'SizeOfStackReserve
AddLinkByte &H0, &H10, &H0, &H0
'SizeOfStackCommit
AddLinkByte &H0, &H10, &H0, &H0
'SizeOfHeapReserve
AddLinkByte &H0, &H0, &H1, &H0
'SizeOfHeapRCommit
AddLinkByte &H0, &H0, &H0, &H0
'LoaderFlags
AddLinkByte &H0, &H0, &H0, &H0
'NumberOfDataDirectories
AddLinkByte &H10, &H0, &H0, &H0
'Export_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Import_Table
AddLinkByte &H0, &H30, &H0, &H0, &H80, &H0, &H0, &H0
'ReSource_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Exception_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Certificate_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Relocation_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Debug_Data
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Architecture
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Global_PTR
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'TLS_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Load_Config_Table
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'BoundImportTable
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'ImportAddressTable
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'DelayImportDescriptor
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'COMplusRuntimeHeader
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
'Reserved
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
End Sub
Sub InitSectionTable()
'Section1
'Name = ".data"
AddLinkByte &H2E, &H64, &H61, &H74, &H61, &H0, &H0, &H0
'VirtualSize
'AddLinkByte &H33, &H0, &H0, &H0
SizeOfRawData 1
'VirtualAddress
AddLinkByte &H0, &H10, &H0, &H0
'SizeOfRawData
SizeOfRawData 1
'PointerToRawData
PointerToRawData 1, SectionSize
'PointerToRelocations
AddLinkByte &H0, &H0, &H0, &H0
'PointerToLinenumbers
AddLinkByte &H0, &H0, &H0, &H0
'NumberOfRelocations
AddLinkByte &H0, &H0
'NumberOfLinenumbers
AddLinkByte &H0, &H0
'Characteristics
AddLinkByte &H40, &H0, &H0, &HC0
'Section2
'Name = ".code"
AddLinkByte &H2E, &H63, &H6F, &H64, &H65, &H0, &H0, &H0
'VirtualSize
SizeOfRawData 2
'AddLinkByte &H1C, &H0, &H0, &H0
'VirtualAddress
AddLinkByte &H0, &H20, &H0, &H0
'SizeOfRawData
SizeOfRawData 2
'PointerToRawData
PointerToRawData 2, SectionSize
'PointerToRelocations
AddLinkByte &H0, &H0, &H0, &H0
'PointerToLinenumbers
AddLinkByte &H0, &H0, &H0, &H0
'NumberOfRelocations
AddLinkByte &H0, &H0
'NumberOfLinenumbers
AddLinkByte &H0, &H0
'Characteristics
AddLinkByte &H20, &H0, &H0, &H60
'Section3
'Name = ".idata"
AddLinkByte &H2E, &H69, &H64, &H61, &H74, &H61, &H0, &H0
'VirtualSize
SizeOfRawData 3
'AddLinkByte &H80, &H0, &H0, &H0
'VirtualAddress
AddLinkByte &H0, &H30, &H0, &H0
'SizeOfRawData
SizeOfRawData 3
'PointerToRawData
PointerToRawData 3, SectionSize
'PointerToRelocations
AddLinkByte &H0, &H0, &H0, &H0
'PointerToLinenumbers
AddLinkByte &H0, &H0, &H0, &H0
'NumberOfRelocations
AddLinkByte &H0, &H0
'NumberOfLinenumbers
AddLinkByte &H0, &H0
'Characteristics
AddLinkByte &H40, &H0, &H0, &HC0
AddLinkByte &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0
End Sub
Sub InitRawData()
Dim i As Long
Dim SizeOfData As Long
SizeOfData = UBound(DataSection)
For i = SizeOfData To (256 * SectionSize) - 1
AddDataByte &H0
Next i
For i = 1 To UBound(DataSection)
AddLinkByte DataSection(i)
Next i
End Sub
Sub InitCodeSection()
Dim i As Long
Dim SizeOfCode As Long
SizeOfCode = UBound(CodeSection)
For i = SizeOfCode To (256 * SectionSize) - 1
AddCodeByte &H0
Next i
For i = 1 To UBound(CodeSection)
AddLinkByte CodeSection(i)
Next i
End Sub
Sub InitImportSection()
Dim i As Long
Dim SizeOfImport As Long
OutputImportTable
SizeOfImport = UBound(ImportSection)
For i = SizeOfImport To (256 * SectionSize) - 1
AddImportByte &H0
Next i
For i = 1 To UBound(ImportSection)
AddLinkByte ImportSection(i)
Next i
End Sub
Sub SizeOfRawData(Section As Long)
AddLinkDWord CLng(("&H" & Hex(SectionSize))) * &H100
End Sub
Sub PointerToRawData(Section As Integer, SizeB As Long)
Dim i As Integer
Dim Value As Long
Value = 2
For i = 2 To Section
Value = Value + SizeB
Next i
AddLinkDWord CLng("&H" & Hex(Value * &H100))
End Sub
Sub Link(sFile As String, Run As Boolean)
Dim i As Double
If AppType = 0 Then
InfMessage "application type not specified. compiling process failed."
Exit Sub
End If
On Error GoTo LinkFail
If Dir(sFile) <> "" Then Kill sFile
Open sFile For Binary As #1
For i = 1 To UBound(LinkCode)
Put #1, , LinkCode(i)
Next i
Close #1
InfMessage "application compiled. " & vbCrLf & _
Passes & " pass(es). " & UBound(LinkCode) & " bytes written."
If Run = True Then ShellExecute 0, "open", sFile, "", "C:\", 1
Exit Sub
LinkFail:
InfMessage "linking process failed. unknown reason."
End Sub
Sub AddLinkDWord(Value As Long)
AddLinkWord LoWord(Value)
AddLinkWord HiWord(Value)
End Sub
Sub AddLinkWord(Value As Integer)
AddLinkByte LoByte(Value), HiByte(Value)
End Sub
Sub AddLinkByte(ParamArray Bytes() As Variant)
Dim i As Integer
For i = 0 To UBound(Bytes)
ReDim Preserve LinkCode(UBound(LinkCode) + 1) As Byte
LinkCode(UBound(LinkCode)) = Bytes(i)
Next i
End Sub
-
Oct 5th, 2005, 08:51 AM
#5
Fanatic Member
Re: The pollute thread
Blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blah blahv
 Life is one big rock tune
-
Oct 5th, 2005, 09:03 AM
#6
-
Oct 5th, 2005, 09:06 AM
#7
Re: The pollute thread
hgdfg sghaekrsadh sdjf gajbhaf zdfjgaus ydfsejgbs djvjsngkua dvkjsvk jsksmdvjuxdf vbksmdnvijusd hgk
En Anglais :
VIRTUAL POLLUTION V1.01 BY thegreatone
-
Oct 5th, 2005, 10:59 AM
#8
Frenzied Member
Re: The pollute thread
Code:
____ __ __ __ _ _ ____ __ __ __ _ _
( _ \( ) /__\ /__\ ( )_( ) ( _ \( ) /__\ /__\ ( )_( )
) _ < )(__ /(__)\ /(__)\ ) _ ( ) _ < )(__ /(__)\ /(__)\ ) _ (
(____/(____)(__)(__)(__)(__)(_) (_) (____/(____)(__)(__)(__)(__)(_) (_)
Code:
__________.__ .__ __________.__ .__
\______ \ | _____ _____ | |__ \______ \ | _____ _____ | |__
| | _/ | \__ \ \__ \ | | \ | | _/ | \__ \ \__ \ | | \
| | \ |__/ __ \_/ __ \| Y \ | | \ |__/ __ \_/ __ \| Y \
|______ /____(____ (____ /___| / |______ /____(____ (____ /___| /
\/ \/ \/ \/ \/ \/ \/ \/
Code:
______ ______
(, / ) /) /) (, / ) /) /)
/---( // _ _ (/ /---( // _ _ (/
) / ____)(/_(_(_(_(_/ )_ ) / ____)(/_(_(_(_(_/ )_
(_/ ( (_/ (
-
Oct 5th, 2005, 11:32 AM
#9
Re: The pollute thread
*drives around VBF in a humvee, now theres some pollution for ya @$$*
-
Oct 5th, 2005, 11:52 AM
#10
Re: The pollute thread
Code:
_|_|_| _| _| _| _|
_| _| _| _| _| _|_|_|
_|_| _| _| _| _| _|_|
_| _| _| _| _| _|_|
_|_|_| _|_| _| _|_|_|
_|
_|_|_| _| _| _|_|_| _| _|
_|_| _| _| _| _|_|
_|_| _| _| _| _| _|
_|_|_| _|_|_| _|_|_| _| _| _| _| _|
-
Oct 5th, 2005, 04:27 PM
#11
Thread Starter
Banned
Re: The pollute thread
Cool stuff here 
-
Oct 5th, 2005, 04:29 PM
#12
Fanatic Member
Using VB6 or VB.net 2008 with .net 3.5
"Life... death... either way I'll be confined to a small cubicle!" - Hermes Conrad
-
Oct 5th, 2005, 05:00 PM
#13
-
Oct 5th, 2005, 05:11 PM
#14
Re: The pollute thread
 Originally Posted by wossname
thnaks in advants
rofl 
rate my posts if they help ya! 
Extract thumbnail without reading the whole image file: (C# - VB)
Apply texture to bitmaps: (C# - VB)
Extended console library: (VB)
Save JPEG with a certain quality (image compression): (C# - VB )
VB.NET to C# conversion tips!!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote
Mark Thread Resolved
