Gofaia

Hahahaha Agradecemos pelos elogios(a equipe toda) E a quem nao criticou(apenas chingou) Eu duvido fazer um programa que rode a nivel de maquina, afinal voce tem que fazer um boot em assembly, e ele precisa ter exatamente 512 kbytes. Algo parecido com este: LOADED EQU 7C00hEND_BIOS_DATA EQU 0500h BUFFER_SEGMENT EQU 07E0h ; erros possiveis No386 EQU '3' ErrorLoadingRootDir EQU 'R' OSFILENotFound EQU 'O' ErrorLoadingFATs EQU 'F' ErrorLoadingCluster EQU 'C' InternalFATError EQU 'I' bits 16 ; modo real 16 bits org 7C00h ; estamos em 0000h:7C00h ; Cebecalho para compatibilidade com MS-DOS FAT12 ; para mais informacoes, consulte o arquivo jmp short Inicio nop db 'dros ' ; 8-bytes para o nome dw 512 ; tamanho do setor em bytes db 1 ; setores por cluster dw 1 ; clusters reservados db 2 ; numero de FATs dw 224 ; entrada do diretorio principal dw 2880 ; total de setores db 0F0h ; formato dw 9 ; setores por FAT dw 18 ; setores por trilha dw 2 ; lados dd 0 ; setores ocultos dd 0 ; mais setores db 0 ; Id do driver db 0 ; reservado db 4 ; assinatura de boot db 435101793 ; numero do volume serial db 'NO NAME ' ; nome do label (11 bytes) db 'FAT12 ' ; sistema de arquivo (8 bytes) Inicio: mov ax, 0x0003 int 0x10 ; Limpa a tela e assegura que estamos ; no modo 80x25 mov ah, 0x01 mov cx, 0x2000 int 0x10 ; Desabilita o cursor xor ax,ax ; seta pilha para 0000h:7C00h cli ; nada de interrupcoes mov ss,ax ; mudamos o endereco da pilha para evitar ; que percamos dados no endereco 0000:0500h mov sp,LOADED sti ; pilha agora tem 30646 bytes disponiveis push cs ; registrador de dados para o local correto pop ds mov bp,dx ; armazena o numero do driver(i.e.0=disquete,80=Hd) em BP ; O numero do driver sera passado para o ; OSFILE ; verifica se o processador eh 386+ mov ah,01110000b ; Tentando setar o IOPL & NT flags. push ax ; (IOPL no bits 12-13 & NT no bit 14) popf ; Se nao estao setados, nao eh um 386 pushf pop ax and ah,01110000b ; Verifica se IOPL & NT ainda estao setados jz ShowError286 ; Nao pode pular sobre mais de 128 bytes usando ; um jump no 286. Entao, dois jumps push cs ; modifica o segmento Extra pop es ; carrega o diretorio principal - INT 13h/02h - READ SECTORS mov byte [ErrorCode],ErrorLoadingRootDir ; Codigo de Erro mov ax,020Eh ; 0Eh = 224 entradas * 32 bytes por entrada / 512 mov bx,END_BIOS_DATA ; ES:BX local do buffer mov cx,0002h ; Trilha 0, Setor 2 mov dh,01h ; Lado 1, DL aindo contem o numero do driver int 13h ; 0Eh+02h=16, entao nao teremos "track boundary"(limite de trilha) jc ShowError286 ; Pula para a rotina se algum erro ocorreu ; procura pelo OSFILE no diretorio princpal mov di,END_BIOS_DATA mov dx,224 ; Numero de entradas no diretorio principal mov byte [ErrorCode],OSFILENotFound ; Codigo de Erro Search: mov cx,11 ; 8 + 3 nome do arquivo + extensao mov si,FileName ; DS:SI ponteiro para o OSFILE rep cmpsb ; verifica se o arquivo existe jz Found ; achou ? pula codigo dec dx ; Nao ? ainda tem entradas validas ? jz ShowError286 ; Nao ? Entao a ultima entrada foi checada add di,21 ; Sim ? verifica na proxima entrada add di,cx ; adiciona o resto dos bytes que nao condizem jmp Search ; procura novamente ShowError286: ; Nos temos que colocar um segundo jump aqui porque o JMP ShowError ; 286 nao pode dar um pulo sobre 128 bytes Found: ; Ok! arquivo encontrado ; DI eh o ponteiro para os atributos do arquivo mov eax,[di+17] ; Pega o tamanho do arquivo em bytes (dword) mov [KrnSize], eax ; Salva o tamanho em bytes para passar ao OSFILE add eax,512-1 ; Calcula o numero de setores usados shr eax,9 ; EAX <- EAX / 512 push ax ; Salva o numero de setores a serem lidos mov ax,[di+15] ; Primeiro Cluster do OSFILE push ax ; Salva o primeiro cluster ; Carrega a primeira FAT na memoria - usando a INT 13h/02h mov ax,0209h ; ler 9 setores mov bx,END_BIOS_DATA; ES:BX local do buffer mov cx,0002h ; Trilha 0, Setor 2 mov dx,bp ; Numero do driver xor dh,dh ; tamanho 0 int 13h jnc FATloaded ; Se CF, tentar ler a segunda FAT mov byte [ErrorCode],ErrorLoadingFATs ; Codigo de Erro ; Carreaga a segunda FAT na memoria - usando INT 13h/02h ; Devido a um "track boundary" vai ocorrer na segunda FAT ; nos temos que usar duas leituras. mov ax,0208h ; Ler os 8 primeiros setores mov cl,0Bh ; Trilha ainda eh 0, Setor 0Bh = 2 + 9 int 13h ; DL & DH ainda estao corretos jc ShowError286 ; Nao pode ser a segunda FAT ?Erro... mov ax,0201h ; Ultimo setor a ser lido mov bx,END_BIOS_DATA + 512*8 ; 512 * 8 = primeiros 8 setores mov cl,01h ; Trilha ainda eh 0, Setor 1 mov dh,01h ; Lado 1, DL ainda esta correto int 13h jc ShowError ; Nao pode ser a segunda FAT ?Erro... FATloaded: ; Carrega o OSFILE usando FAT12 pop ax ; AX = Primeiro Cluster pop cx ; CX = Numero de clusters a serem lidos mov bx,BUFFER_SEGMENT ; ES ponteiro para o final do setor de boot ((07E0h) mov es,bx NextCluster: mov byte [ErrorCode], ErrorLoadingCluster ; AX = Corrente cluster a ser lido ; ES = Segmento do buffer ; CX = Numero de clusters a serem lidos pusha ; Talvez nao altere AX,ES,CX (so 1 byte) add ax,31 ; Converte o Cluster para setores logicos ; 31 = SetoresReservados + SetoresOcultos ; + FATS * SetoresPorFAT + Dir - 2 xor dx,dx ; Converte setores logicos para CHS mov bx,18 ; CL := ((AX-1) MOD 18)+1 div bx ; CH := (AX-1) DIV 36 mov ch,al ; DH := ((AX-1) DIV 18) AND 1 inc dx mov cl,dl and AL,1 ; DH = Lado mov dx,bp ; Carrega numero do drive mov dh,al ; CH = Trilha shr ch,1 ; CL = Setor mov ax,0201h ; Ler 1 setor usando INT 13h/02h xor bx,bx ; ES:0000h local do buffer int 13h jc ShowError ; Falha na leitura do cluster popa ; Restaura AX, ES, CX ; Pega o proximo Cluster usando FAT12 mov byte [ErrorCode], InternalFATError mov bx,ax shl bx,1 add bx,ax shr bx,1 ; BX = AX * 3 / 2; and ax,1 mov ax,[END_BIOS_DATA + BX] jz EvenCluster ; um MOV nao altera o flag Z shr ax,4 EvenCluster: and ax,0000111111111111b ; Entrada da FAT so leva 12 bits cmp ax,0000h ; Se Cluster livre je ShowError cmp ax,0FF7h ; Se Cluster ruim je ShowError mov bx,es ; Incrementa ES para o proximo add bx,512/16 ; bloco de memoria que sera preenchido mov es,bx loop NextCluster ; Ate CX=0, ultimo setor lido mov dx,bp ; Passa o numero do drive par o OSFILE ; O numero do drive sera guardado em bp mov ax,BUFFER_SEGMENT ; Segmento mov ds,ax mov es,ax mov fs,ax ; so para completar...nem precisava mov gs,ax ; idem.. mov eax,[KrnSize] ; eax sera passado para o OSFILE com o seu ; tamanho em bytes push eax ; os seguinte parametros estarao disponiveis ao OSFILE ; DL = numero do drive ; EAX = tamanho em bytes do OSFILE jmp BUFFER_SEGMENT:0000h ; Bye..bye...boot ; procedure locais ShowError: mov cx,MessageSize mov si,Message .ShowNextChar lodsb mov ah,0Eh ; apresenta caracter usando INT 10h/0Eh mov bx,0007h ; Pagina 0, Cor normal int 10h loop .ShowNextChar ; ate apresentar toda a mensagem xor ah,ah ; espera pressionar uma tecla int 16h xor dx,dx ; primeiro disquete int 19h ; forca BIOS a executar todo novamente ; dados locais Message db 13,"Sem o dros ou falha no disquete. Codigo '" ErrorCode db No386,"'.",10,13 ; No386 eh o primeiro erro db 'Troque o disquete e pressione ENTER...',10,10,13 MessageSize equ $ - Message FileName db 'dros SYS' ; deve ser 11 bytes KrnSize dd 0 TIMES 510-($-$$) DB 0 ; posicionamento da assinatura DW 0xAA55 ; assinatura de boot E depois voce tem que desenvolver um kernel, algo que interplete os comandos entre o sistema operacional e o processador, e depois de tudo, voce tem que usar milhões de ponteiros e endereços, pois nao é possivel usar variaveis. Então, voce que achou o meu sistema operacional uma porcaria, ou que desejaram que me hd pegasse fogo, eu desafio voces a fazenrem um SO.

#LeoneFM e Darth Sidious: Nao entendi o que quiseram dizer...

D.R.O.S.zip Olá, Venho aqui informar que lançamos(eu e meu primo[Canguru]) a versão 0.01 do meu sistema operacional que se chama DROS. A ideia é fazer um sistema operacional leve e completo, com uma interface de programação amigavel , simples e completa. O sistema operacional lembra muito o MS-DOS 6.22, pois nao tem interface grafica ainda. E nem suporte a rede. Ele é freeware, mas nao é open source. O projeto esta meio devagar devido a problemas no meu teclado(nao fica mais de um minuto ligado) e a falta de comunicação entre membros da equipe[canguru sem internet] O boot ainda esta em desenvolvimento, assim como o kernel. E nenhum dos dois estao prontos, ambos em desenvolvimento e com muitos erros, nada que nao se resolva... Por enquanto ele roda dentro do propio windows, como se fosse um aplicativo Os comandos diponiveis por enquanto são: No menu principal: ajuda: Exibe o menu ajuda cor: muda a cor da fonte sair ou exit: sai do DROS navegador: Inicia o navegador(gerenciador de pastas) do DROS Comando do navegador: abrir: abre uma pasta mover: move um arquivo renomear: muda o nome de um arquivo jogos: atalho para a pasta jogos ultilitarios: atalho para a pasta de ultilidades execute: executa um arquivo excluir: remove um arquivo ou diretorio copiar: faz uma copia de um arquivo exit: volta ao menu princiapal do dros Qualquer duvida, surgestão o opinião postem aqui. E comentem, é importante para a DROS Team. Eu retirei o link porque ele ta dando um erro critico :S Faz o pc ficar reiniciando.... rsrsrs E em alguns sistemas acusa ter trojan ;( Qndo arrumar eu posto aqui Até a proxima

#LeoneFM O proxy vai saber o eu ip. E se vc fizer tranferencias diretas usndo tcp ou ftp nao vao ser via proxy, durante a tranferencia vc pode consutar a tabela arp, ou usar programas do tip tcpview.exe

FF né??? Mais melhor de bomzidez

Usar esse code por um lado é ruim, pois prejudica os que nao usam. Mas por outro lado é bom, porque a pessoa entende melhor como funciona e fica no nivel dos que "trapaceam". Mas seria melhor se ninguem usasse. Ja vi la no otserv list. Maximo de players online 368, capacidade maxima: 300

Os programas que rodam no windows nao rodam no linux porq? Monopólio por parte da microsoft '>.<' Linux só deixa a desejar na parte de jogos, e a minha placa de video é NIVIDIA, alpha dog, e nao tem incompatibilidade

E se uma pessoa usar linux e nao souber usar WINE ou nao souber compilar? Vai ter que entrar no ot fans, se registrar e baixar la? Ou poderia apenas ir na NOSSA seção de linux e baixar la...

Amei o topicoo *.* Eu gostoo mesmo do kurumin =) Mas o unbunto tbm é bem completo Amei o topicoo *.* Eu gostoo mesmo do kurumin =) Mas o unbunto tbm é bem completo

Oo E mais 100 orientais Alias, queria agradecer ao JV Chequer pelo apoio e compreenção que ele me deu ._.

#Zafor Me mostra como, que eu acredito. A nao ser que eles usem windowns 95 eu nao acreito...

Oi Dessa vez nao vou criticar nenhum moderador, adm ou a atitude deles. Vou criticar a atitude de um usuario. Como muitos (ou nao) de voces devem ter percebidos, "eu" postei em 3 post varios keygens. Gostaria de dizer que nao fui eu que postei isso. Alguem teve acesso a minha conta e fez oque fez. Quem me conhece, sabe que nao postaria uma coisa dessas, e ainda mais daquela forma(igual uma "vaca") Quem fez isso tem odio de mim

Retirado.

//retirado

oi meninos tudo Bom? consegui este keygen de Steam! ai estou postando ele aqui para a a vocês poder usar! tem cerca de 50 steam diferentes quase todas funcionando! peço que não troquem a senha! pois ai mais pessoas vão poder usalas! bom ta ai para quem quiser! LINK REMOVIDO beijão

Eu sempre ficava jogando... Passei uns 2 anos da minha vida assim... Até que um dia, no IRC, um cara esculhambou meu PC. Ai e parei de ficar jogando e tc e fui estudar =) Hoje eu leio em media um ou dois livros de informatica por dia ;D Compro num sebo, tem bastante coisas velhas la, mas tem boas tbm ;] #lucasjockey .386 .model flat,stdcall option casemap:none include \masm32\include\windows.inc include \masm32\include\user32.inc include \masm32\include\kernel32.inc include \masm32\include\gdi32.inc includelib \masm32\lib\user32.lib includelib \masm32\lib\kernel32.lib includelib \masm32\lib\gdi32.lib gerenteJanela proto :DWORD,:DWORD,:DWORD,:DWORD grafiti proto :DWORD, :DWORD, :DWORD .DATA? mInstancia dd ? mBitmap1 dd ? mBitmap2 dd ? .DATA NomeClasse db "Peles",0 TituloJanela db "Peles NumaBoa",0 Texto db "tchauzinho...",0 bitAtual db 1 .CONST Bitmap1ID equ 1000 Bitmap2ID equ 1001 largBitmap equ 350 altBitmap equ 200 .CODE inicio: invoke GetModuleHandle, NULL mov mInstancia, eax invoke gerenteJanela, mInstancia, NULL, NULL, SW_SHOWDEFAULT invoke ExitProcess, eax gerenteJanela PROC mInst:DWORD, mInstAnt:DWORD, linhaCmd:DWORD, Mostra:DWORD LOCAL ej:WNDCLASSEX LOCAL mJanela:HWND LOCAL malote:MSG mov ej.cbSize, SIZEOF WNDCLASSEX mov ej.style, CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS mov ej.lpfnWndProc, OFFSET gerenteMensagem mov ej.cbClsExtra, NULL mov ej.cbWndExtra, NULL push mInstancia pop ej.hInstance mov ej.hbrBackground, NULL mov ej.lpszMenuName, NULL mov ej.lpszClassName, OFFSET NomeClasse invoke LoadIcon, NULL, IDI_WINLOGO mov ej.hIcon, eax mov ej.hIconSm, eax invoke LoadCursor, NULL, IDC_ARROW mov ej.hCursor, eax invoke RegisterClassEx, ADDR ej invoke CreateWindowEx, NULL, ADDR NomeClasse, ADDR NomeClasse,\ WS_POPUP, CW_USEDEFAULT, CW_USEDEFAULT, largBitmap, altBitmap, NULL, NULL, mInst, NULL mov mJanela,eax invoke ShowWindow, mJanela, SW_SHOWNORMAL invoke UpdateWindow, mJanela _Ini: invoke GetMessage,ADDR malote,NULL,0,0 test eax, eax jz _Fim invoke TranslateMessage,ADDR malote invoke DispatchMessage,ADDR malote jmp _Ini _Fim: mov eax,malote.wParam ret gerenteJanela ENDP gerenteMensagem PROC hWnd:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD LOCAL mCM:HDC LOCAL mCMBit:HDC LOCAL retang:RECT LOCAL ps:PAINTSTRUCT .IF uMsg == WM_CREATE invoke LoadBitmap, mInstancia, Bitmap2ID mov mBitmap2, eax invoke LoadBitmap, mInstancia, Bitmap1ID mov mBitmap1, eax invoke CreateCompatibleDC, NULL mov mCMBit, eax invoke SelectObject, mCMBit, mBitmap1 invoke GetWindowRect, hWnd, ADDR retang invoke grafiti, mCMBit, retang.right, retang.bottom invoke SetWindowRgn, hWnd, eax, TRUE invoke DeleteDC, mCMBit .ELSEIF uMsg == WM_PAINT invoke BeginPaint, hWnd, ADDR ps mov mCM, eax invoke GetClientRect, hWnd, ADDR retang invoke CreateCompatibleDC, NULL mov mCMBit, eax .IF bitAtual == 1 invoke SelectObject, mCMBit, mBitmap1 .ELSE invoke SelectObject, mCMBit, mBitmap2 .ENDIF invoke grafiti, mCMBit, retang.right, retang.bottom invoke SetWindowRgn, hWnd, eax, TRUE invoke BitBlt, mCM, 0, 0, retang.right, retang.bottom, mCMBit, 0, 0, SRCCOPY invoke DeleteDC, mCMBit invoke EndPaint, hWnd, ADDR ps .ELSEIF uMsg == WM_DESTROY invoke DeleteObject, mBitmap1 invoke DeleteObject, mBitmap2 invoke PostQuitMessage, NULL xor eax, eax ret .ELSEIF uMsg == WM_LBUTTONDBLCLK invoke MessageBox, hWnd, ADDR Texto, addr TituloJanela, MB_OK invoke SendMessage, hWnd, WM_DESTROY, NULL, NULL .ELSEIF uMsg == WM_LBUTTONDOWN invoke SendMessage, hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 .ELSEIF uMsg == WM_RBUTTONDOWN .IF bitAtual == 1 mov bitAtual, 2 .ELSE mov bitAtual, 1 .ENDIF invoke GetClientRect, hWnd, ADDR retang invoke InvalidateRect, hWnd, ADDR retang, TRUE invoke UpdateWindow, hWnd .ENDIF invoke DefWindowProc, hWnd, uMsg, wParam, lParam ret gerenteMensagem ENDP grafiti PROC USES ESI EDI EBX _mModelo:HDC, _largura:DWORD, _altura:DWORD LOCAL corT: DWORD LOCAL copiao: DWORD LOCAL temCor: DWORD LOCAL CMtemp: DWORD LOCAL CMcopiao: DWORD mov temCor, FALSE mov copiao, TRUE xor edi, edi xor esi, esi invoke GetPixel, _mModelo, 0, 0 mov corT, eax _olhaPix: invoke GetPixel, _mModelo, edi, esi cmp eax, corT jz _copiaPix cmp edi, _largura jnz _acheiPix _copiaPix: cmp temCor, TRUE jnz _proxPix mov temCor, FALSE mov eax, esi inc eax invoke CreateRectRgn, ebx, esi, edi, eax mov CMtemp,eax cmp copiao, TRUE jnz _poeCopiao push CMtemp pop CMcopiao mov copiao, FALSE jmp _proxPix _poeCopiao: invoke CombineRgn, CMcopiao, CMcopiao, CMtemp, RGN_OR invoke DeleteObject, CMtemp jmp _proxPix _acheiPix: cmp temCor, FALSE jnz _proxPix mov temCor, TRUE mov ebx,edi _proxPix: inc edi cmp edi, _largura jbe _olhaPix xor edi, edi inc esi cmp esi, _altura jb _olhaPix _retorna: mov eax, CMcopiao ret grafiti ENDP end inicio

Eu acho que 90% dos otservers são baixados e colocados on sem uma grande edição, são os ots de 2 dias de vida como dizem por ai ;D Dos 10% que sobram, eu acho que uns 5% são bem planejado, como o Underworld, frostworld, o taelin etc...

Eu nunca usei MySql 'Oo Eu gosto do SQLite... É mais simples, bom pra quem ta iniciando ;D

Se voce invadou, ele estava com algum trojan ou algo que deixava uma porta aberta. E se nao estiver, o maximo que se pode fazer é nukar. Nao vejo o que mais se pode fazer com o ip de um pc.

Esta se tornando cada dia mais comum o medo de invasões na internet. Pânicos causados por pseudo-hackers tem atormentado centenas de pessoas e muitas vezes simples ameaças destroem momentos de paz e diversão de uma forma irremediável. O mais impressionante é que na maioria das vezes essas ameaças, são completamente sem fundamentos, nao fazem sentido e algumas nem existem. Basta usar uma meia dúzia de siglas para dizer que vai invadir seu computador, o que mais aterroriza o internauta é a frase: "Vou descobrir seu IP!" Vão descobrir seus IP? Oh, que horror, mas e dai? Segundo os terroristas, após descobrir o IP de uma pessoa, sua alma estará completamente enterrada na maldição eterna, pois poderão invadir, derrubar, espionar, remover, sacudir, esculhambar, destruir e remexer... Um numero de IP é um endereço que todo internauta, assim que se conecta na grande rede(internet), recebe. E è através desse numero que os programas se comunicarão, seu navegador, ICQ, MSN, IRC, seu cliente de email, o tíbia etc. Esse numero nao precisa ser fixo, e normalmente nao é, a cada conexão você recebe um novo numero. IP significa internet protocol, faz parte de um conjunto de instruções que permite a comunicação pela internet. Ele é responsável pelo encaminhamento correto dos pacotes que trafegam pela rede, de forma que eles cheguem corretamente ao seus destino. Descobrir o IP de uma pessoa, significa saber o "endereço na internet". IP nao tem nada a ver com email do seu computador naquele dia, ou durante aquela conexão. Somente isso, nada mais. O que se pode fazer com o IP de uma pessoa? Quase nada... se o computador nao estiver com problemas do tIPo "cavalos-de-troia" ou semelhantes, o numero do IP nao vai servir para nada além de terrorismo. Mesmo assim, da pra esconder o IP? Nao. Se por algum motivo seu computador nao poder fornecer corretamente o IP, ele ficara incomunicável e a sua conexão será desfeita. Ter um IP faz parte da vida socialmente ativa dos comutadores na internet. Alguns sistemas escondem esse numero de outros internautas, mas pelo próprio bem da comunicação, eles são revelados. Por exemplo, conversar pelo MSN, requer que o computador se comunique com outro. Para isso ser feito, é necessário que ambos conheçam seus IPs mutuamente, pelo simples fato de precisar saber a quem se esta falando. É claro, sempre há as exceções: IPs geralmente se mantêm fixos em redes físicas como escritórios e internet predial. Na maioria das vezes, esses números físicos são mascarados por gasteways ou proxys, e quase sempre, para que esta do "lado de fora", o numero genérico é inútil. Portanto, na próxima vez em que for ameaçado com seu próprio IP, apenas de uma gostosa gargalhada e volte tranqüilamente para a sua tranqüilidade habitual. Já temos problemas demais para ficar nos preocupando com problemas que nao existem.

Se voce diz... Eu aprovo =D I love Batchhh

Oo Massa =) Ele fuça no registro do windowss Naa ultima vez que fui la, o pc nunca mais pegou...

Para um servidor ter sucesso, além da estabilidade, rates boas e coisa do tipo. Acho essencial a inovação, um servidor que nao tivesse as tradicionais vocações (knight, druid...), as mesmas magias, e as mesmas quests (poi, dh...). Vocações completamente novas, nao assassin ou ferreiro, concertesa atrariam muitos players. O mesmo para spells e quests. Quem joga server de rates baixas, concertesa gosta de coisas inovadoras. E um bom rpg tmbem é algo essencial.

Obrigada.... Nao é atoa que seja de 1992 hhehehehehhe Tinha um de 1980

Se voce olhar o nome do arquivo, da para ver que é um sniffer de pacotes SYN O ip é do site onde estava hospedado. é um site em ftp, eu nao tinha nada pra fazer, e fui fuçar, e achei uma porrada de sources. Todas estã oem SHELL ou C, menos esta.