void smb_fclose(smb_session *s, smb_fd fd)
{
smb_file *file;
smb_message *msg;
smb_close_req req;
assert(s != NULL);
if (!fd)
return;
// XXX Memory leak, destroy the file after removing it
if ((file = smb_session_file_remove(s, fd)) == NULL)
return;
msg = smb_message_new(SMB_CMD_CLOSE);
if (!msg) {
free(file->name);
free(file);
return;
}
msg->packet->header.tid = SMB_FD_TID(fd);
SMB_MSG_INIT_PKT(req);
req.wct = 3;
req.fid = SMB_FD_FID(fd);
req.last_write = ~0;
req.bct = 0;
SMB_MSG_PUT_PKT(msg, req);
// We don't check for succes or failure, since we actually don't really
// care about creating a potentiel leak server side.
smb_session_send_msg(s, msg);
smb_session_recv_msg(s, 0);
smb_message_destroy(msg);
free(file->name);
free(file);
}
// We should normally implement SCERPC and SRVSVC to perform a share list. But
// since these two protocols have no other use for us, we'll do it the trash way
// PS: Worst function _EVER_. I don't understand a bit myself
int smb_share_get_list(smb_session *s, smb_share_list *list, size_t *pcount)
{
smb_message *req, resp;
smb_trans_req trans;
smb_tid ipc_tid;
smb_fd srvscv_fd;
uint16_t rpc_len;
size_t res, frag_len_cursor;
ssize_t count;
int ret;
assert(s != NULL && list != NULL);
if(s != NULL && list != NULL) {
*list = NULL;
if ((ret = smb_tree_connect(s, "IPC$", &ipc_tid)) != DSM_SUCCESS)
return ret;
if ((ret = smb_fopen(s, ipc_tid, "\\srvsvc", SMB_MOD_READ | SMB_MOD_WRITE,
&srvscv_fd)) != DSM_SUCCESS)
return ret;
//// Phase 1:
// We bind a context or whatever for DCE/RPC
req = smb_message_new(SMD_CMD_TRANS);
if (!req)
{
ret = DSM_ERROR_GENERIC;
goto error;
}
req->packet->header.tid = ipc_tid;
rpc_len = 0xffff;
SMB_MSG_INIT_PKT(trans);
trans.wct = 16;
trans.total_data_count = 72;
trans.max_data_count = rpc_len;
trans.param_offset = 84;
trans.data_count = 72;
trans.data_offset = 84;
trans.setup_count = 2;
trans.pipe_function = 0x26;
trans.fid = SMB_FD_FID(srvscv_fd);
trans.bct = 89;
SMB_MSG_PUT_PKT(req, trans);
smb_message_put8(req, 0); // Padding
smb_message_put_utf16(req, "\\PIPE\\", strlen("\\PIPE\\") + 1);
smb_message_put16(req, 0); // Padding to be aligned with wtf boundary :-/
// Now we'll 'build' the DCE/RPC Packet. This basically a copycat
// from wireshark values.
smb_message_put8(req, 5); // version major
smb_message_put8(req, 0); // minor
smb_message_put8(req, 0x0b); // Packet type = 'bind'
smb_message_put8(req, 0x03); // Packet flags = ??
smb_message_put32(req, 0x10); // Representation = little endian/ASCII. Damn
smb_message_put16(req, 72); // Data len again
smb_message_put16(req, 0); // Auth len ?
smb_message_put32(req, 19); // Call ID ?
smb_message_put16(req, rpc_len); // Max Xmit size
smb_message_put16(req, rpc_len); // Max Recv size
smb_message_put32(req, 0); // Assoc group ?
smb_message_put32(req, 1); // Num Ctx Item
// Adding the CtxItem, whatever could that be
smb_message_put16(req, 0); // ContextID
smb_message_put16(req, 1); // Num Trans Item
// SRVSVC UUID
const uint8_t uuid_e[8] = {0x12, 0x78, 0x5a, 0x47, 0xbf, 0x6e, 0xe1, 0x88};
smb_message_put_uuid(req, 0x4b324fc8, 0x1670, 0x01d3, uuid_e);
smb_message_put16(req, 3); // Version
smb_message_put16(req, 0); // Minor
// Another UUID
const uint8_t uuid_e2[8] = {0x9f, 0xe8, 0x08, 0x00, 0x2b, 0x10, 0x48, 0x60};
smb_message_put_uuid(req, 0x8a885d04, 0x1ceb, 0x11c9, uuid_e2);
smb_message_put32(req, 2); // Another version
// Let's send this ugly pile of shit over the network !
res = smb_session_send_msg(s, req);
smb_message_destroy(req);
if (!res)
{
ret = DSM_ERROR_NETWORK;
goto error;
}
// Is the server throwing pile of shit back at me ?
res = smb_session_recv_msg(s, &resp);
if (!res || resp.packet->payload[68])
{
BDSM_dbg("Bind call failed: 0x%hhx (reason = 0x%hhx)\n",
resp.packet->payload[68], resp.packet->payload[70]);
ret = DSM_ERROR_NETWORK;
goto error;
}
//// Phase 2:
// Now we have the 'bind' done (regarless of what it is), we'll call
// NetShareEnumAll
req = smb_message_new(SMD_CMD_TRANS);
if (!req)
{
ret = DSM_ERROR_GENERIC;
goto error;
}
req->packet->header.tid = ipc_tid;
// this struct will be set at the end when we know the data size
SMB_MSG_ADVANCE_PKT(req, smb_trans_req);
smb_message_put8(req, 0); // Padding
smb_message_put_utf16(req, "\\PIPE\\", strlen("\\PIPE\\") + 1);
smb_message_put16(req, 0); // Padding
// Now we'll 'build' the DCE/RPC Packet. This basically a copycat
// from wireshark values.
smb_message_put8(req, 5); // version major
smb_message_put8(req, 0); // minor
smb_message_put8(req, 0); // Packet type = 'request'
smb_message_put8(req, 0x03); // Packet flags = ??
smb_message_put32(req, 0x10); // Representation = little endian/ASCII. Damn
// Let's save the cursor here to update that later
frag_len_cursor = req->cursor;
smb_message_put16(req, 0); // Data len again (frag length)
smb_message_put16(req, 0); // Auth len ?
smb_message_put32(req, 12); // Call ID ?
smb_message_put32(req, 64); // Alloc hint ?
smb_message_put16(req, 0); // Context ID ?
smb_message_put16(req, 15); // OpNum = NetShareEnumAll
// Pointer to server UNC
smb_message_put32(req, 0x00020000); // Referent ID ?
smb_message_put32(req, strlen(s->srv.name) + 1); // Max count
smb_message_put32(req, 0); // Offset
smb_message_put32(req, strlen(s->srv.name) + 1); // Actual count
// The server name, supposed to be downcased
smb_message_put_utf16(req, s->srv.name, strlen(s->srv.name) + 1);
if ((strlen(s->srv.name) % 2) == 0) // It won't be aligned with the terminating byte
smb_message_put16(req, 0);
smb_message_put32(req, 1); // Level 1 ?
smb_message_put32(req, 1); // Ctr ?
smb_message_put32(req, 0x00020004); // Referent ID ?
smb_message_put64(req, 0); // Count/Null Pointer to NetShareInfo1
smb_message_put32(req, 0xffffffff); // Max Buffer (0xffffffff required by smbX)
smb_message_put32(req, 0x00020008); // Referent ID ?
smb_message_put32(req, 0); // Resume ?
// fill trans pkt at the end since we know the size at the end
SMB_MSG_INIT_PKT(trans);
trans.wct = 16;
trans.max_data_count = 4280;
trans.setup_count = 2;
trans.pipe_function = 0x26; // TransactNmPipe;
trans.fid = SMB_FD_FID(srvscv_fd);
trans.bct = req->cursor - sizeof(smb_trans_req);
trans.data_count = trans.bct - 17; // 17 -> padding + \PIPE\ + padding
trans.total_data_count = trans.data_count;
trans.data_offset = 84;
trans.param_offset = 84;
// but insert it at the begining
SMB_MSG_INSERT_PKT(req, 0, trans);
req->packet->payload[frag_len_cursor] = trans.data_count; // (data_count SHOULD stay < 256)
// Let's send this ugly pile of shit over the network !
res = smb_session_send_msg(s, req);
smb_message_destroy(req);
if (!res)
{
ret = DSM_ERROR_NETWORK;
goto error;
}
// Is the server throwing pile of shit back at me ?
res = smb_session_recv_msg(s, &resp);
if (!res && (uint32_t)resp.packet->payload[resp.payload_size - 4])
{
BDSM_dbg("NetShareEnumAll call failed.\n");
ret = DSM_ERROR_NETWORK;
goto error;
}
//// Phase 3
// We parse the list of Share (finally !) and build function response
count = smb_share_parse_enum(&resp, list);
if (count == -1)
{
ret = DSM_ERROR_GENERIC;
goto error;
}
if (pcount != NULL)
*pcount = count;
ret = DSM_SUCCESS;
error:
// Close the pipe
smb_fclose(s, srvscv_fd);
return ret;
}
ret = DSM_ERROR_GENERIC;
}
static smb_message *smb_trans2_find_next (smb_session *s, smb_tid tid, uint16_t resume_key, uint16_t sid, const char *pattern)
{
smb_message *msg_find_next2 = NULL;
smb_trans2_req tr2_find_next2;
smb_tr2_findnext2 find_next2;
size_t utf_pattern_len, tr2_bct, tr2_param_count;
char *utf_pattern;
int res;
unsigned int padding = 0;
assert(s != NULL && pattern != NULL);
utf_pattern_len = smb_to_utf16(pattern, strlen(pattern) + 1, &utf_pattern);
if (utf_pattern_len == 0)
return NULL;
tr2_bct = sizeof(smb_tr2_findnext2) + utf_pattern_len;
tr2_param_count = tr2_bct;
tr2_bct += 3;
// Adds padding at the end if necessary.
while ((tr2_bct % 4) != 3)
{
padding++;
tr2_bct++;
}
msg_find_next2 = smb_message_new(SMB_CMD_TRANS2);
if (!msg_find_next2)
{
free(utf_pattern);
return NULL;
}
msg_find_next2->packet->header.tid = tid;
SMB_MSG_INIT_PKT(tr2_find_next2);
tr2_find_next2.wct = 0x0f;
tr2_find_next2.total_param_count = tr2_param_count;
tr2_find_next2.total_data_count = 0x0000;
tr2_find_next2.max_param_count = 10; // ?? Why not the same or 12 ?
tr2_find_next2.max_data_count = 0xffff;
//max_setup_count
//reserved
//flags
//timeout
//reserve2
tr2_find_next2.param_count = tr2_param_count;
tr2_find_next2.param_offset = 68; // Offset of find_next_params in packet;
tr2_find_next2.data_count = 0;
tr2_find_next2.data_offset = 88; // Offset of pattern in packet
tr2_find_next2.setup_count = 1;
//reserve3
tr2_find_next2.cmd = SMB_TR2_FIND_NEXT;
tr2_find_next2.bct = tr2_bct; //3 == padding
SMB_MSG_PUT_PKT(msg_find_next2, tr2_find_next2);
SMB_MSG_INIT_PKT(find_next2);
find_next2.sid = sid;
find_next2.count = 255;
find_next2.interest = SMB_FIND2_INTEREST_BOTH_DIRECTORY_INFO;
find_next2.flags = SMB_FIND2_FLAG_CLOSE_EOS|SMB_FIND2_FLAG_CONTINUE;
find_next2.resume_key = resume_key;
SMB_MSG_PUT_PKT(msg_find_next2, find_next2);
smb_message_append(msg_find_next2, utf_pattern, utf_pattern_len);
while (padding--)
smb_message_put8(msg_find_next2, 0);
res = smb_session_send_msg(s, msg_find_next2);
smb_message_destroy(msg_find_next2);
free(utf_pattern);
if (!res)
{
BDSM_dbg("Unable to query pattern: %s\n", pattern);
return NULL;
}
msg_find_next2 = smb_tr2_recv(s);
return msg_find_next2;
}
smb_file *smb_fstat(smb_session *s, smb_tid tid, const char *path)
{
smb_message *msg, reply;
smb_trans2_req tr2;
smb_trans2_resp *tr2_resp;
smb_tr2_query query;
smb_tr2_path_info *info;
smb_file *file;
size_t utf_path_len, msg_len;
char *utf_path;
int res, padding = 0;
assert(s != NULL && path != NULL);
utf_path_len = smb_to_utf16(path, strlen(path) + 1, &utf_path);
if (utf_path_len == 0)
return 0;
msg_len = sizeof(smb_trans2_req) + sizeof(smb_tr2_query);
msg_len += utf_path_len;
if (msg_len %4)
padding = 4 - msg_len % 4;
msg = smb_message_new(SMB_CMD_TRANS2);
if (!msg) {
free(utf_path);
return 0;
}
msg->packet->header.tid = tid;
SMB_MSG_INIT_PKT(tr2);
tr2.wct = 15;
tr2.total_param_count = utf_path_len + sizeof(smb_tr2_query);
tr2.param_count = tr2.total_param_count;
tr2.max_param_count = 2; // ?? Why not the same or 12 ?
tr2.max_data_count = 0xffff;
tr2.param_offset = 68; // Offset of find_first_params in packet;
tr2.data_count = 0;
tr2.data_offset = 96; // Offset of pattern in packet
tr2.setup_count = 1;
tr2.cmd = SMB_TR2_QUERY_PATH;
tr2.bct = sizeof(smb_tr2_query) + utf_path_len + padding;
SMB_MSG_PUT_PKT(msg, tr2);
SMB_MSG_INIT_PKT(query);
query.interest = SMB_FIND2_QUERY_FILE_ALL_INFO;
SMB_MSG_PUT_PKT(msg, query);
smb_message_append(msg, utf_path, utf_path_len);
free(utf_path);
// Adds padding at the end if necessary.
while (padding--)
smb_message_put8(msg, 0);
res = smb_session_send_msg(s, msg);
smb_message_destroy(msg);
if (!res)
{
BDSM_dbg("Unable to query pattern: %s\n", path);
return NULL;
}
if (!smb_session_recv_msg(s, &reply)
|| reply.packet->header.status != NT_STATUS_SUCCESS)
{
BDSM_dbg("Unable to recv msg or failure for %s\n", path);
return NULL;
}
tr2_resp = (smb_trans2_resp *)reply.packet->payload;
info = (smb_tr2_path_info *)(tr2_resp->payload + 4); //+4 is padding
file = calloc(1, sizeof(smb_file));
if (!file)
return NULL;
file->name_len = smb_from_utf16((const char *)info->name, info->name_len,
&file->name);
file->name[info->name_len / 2] = 0;
file->created = info->created;
file->accessed = info->accessed;
file->written = info->written;
file->changed = info->changed;
file->alloc_size = info->alloc_size;
file->size = info->size;
file->attr = info->attr;
file->is_dir = info->is_dir;
return file;
}
static smb_message *smb_trans2_find_first (smb_session *s, smb_tid tid, const char *pattern)
{
smb_message *msg;
smb_trans2_req tr2;
smb_tr2_findfirst2 find;
size_t utf_pattern_len, tr2_bct, tr2_param_count;
char *utf_pattern;
int res;
unsigned int padding = 0;
assert(s != NULL && pattern != NULL);
utf_pattern_len = smb_to_utf16(pattern, strlen(pattern) + 1, &utf_pattern);
if (utf_pattern_len == 0)
return NULL;
tr2_bct = sizeof(smb_tr2_findfirst2) + utf_pattern_len;
tr2_param_count = tr2_bct;
tr2_bct += 3;
// Adds padding at the end if necessary.
while ((tr2_bct % 4) != 3)
{
padding++;
tr2_bct++;
}
msg = smb_message_new(SMB_CMD_TRANS2);
if (!msg) {
free(utf_pattern);
return NULL;
}
msg->packet->header.tid = tid;
SMB_MSG_INIT_PKT(tr2);
tr2.wct = 15;
tr2.max_param_count = 10; // ?? Why not the same or 12 ?
tr2.max_data_count = 0xffff;;
tr2.param_offset = 68; // Offset of find_first_params in packet;
tr2.data_count = 0;
tr2.data_offset = 88; // Offset of pattern in packet
tr2.setup_count = 1;
tr2.cmd = SMB_TR2_FIND_FIRST;
tr2.total_param_count = tr2_param_count;
tr2.param_count = tr2_param_count;
tr2.bct = tr2_bct; //3 == padding
SMB_MSG_PUT_PKT(msg, tr2);
SMB_MSG_INIT_PKT(find);
find.attrs = SMB_FIND2_ATTR_DEFAULT;
find.count = 1366; // ??
find.flags = SMB_FIND2_FLAG_CLOSE_EOS | SMB_FIND2_FLAG_RESUME;
find.interest = SMB_FIND2_INTEREST_BOTH_DIRECTORY_INFO;
SMB_MSG_PUT_PKT(msg, find);
smb_message_append(msg, utf_pattern, utf_pattern_len);
while (padding--)
smb_message_put8(msg, 0);
res = smb_session_send_msg(s, msg);
smb_message_destroy(msg);
free(utf_pattern);
if (!res)
{
BDSM_dbg("Unable to query pattern: %s\n", pattern);
return NULL;
}
msg = smb_tr2_recv(s);
return msg;
}