360隐私保护器监测出QQ查看文件 （TechWeb截图）
【TechWeb消息】9月27日消息，360推出个人隐私保护工具——360隐私保护器，专门曝光“窥私”软件。
据悉，此次发布的360隐私保护器第一版，目前仅支持用户投诉最多、覆盖量最大的即时通讯软件QQ（TM暂不支持）。
经体验发现，360隐私保护器直指QQ侵犯用户隐私。五分钟左右，共监测出170个文件或目录被QQ查看过，显示其中153项可能涉及到隐私。
360安全中心负责人表示，近期接到大量用户投诉，称某聊天软件在未经用户许可的情况下偷窥用户个人隐私文件和数据，经验证，某些客户端软件，的确会在后台密集扫描用户硬盘，并悄悄查看与自身功能毫不相关的文件，如用户浏览历史、网银文件、下载信息、视频文件等等。许多用户由此担心这些软件会在用户不知情的情况下窃取个人隐私数据。
360公司总裁齐向东表示：“我们[……]
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim sum As Integer, strpj As Integer
For i = 1 To 10
suiji = Int(100 * Rnd + 1)
Print suiji
a(i) = suiji
sum = sum + a(i)
Next i
Print ,
Text1.Text = sum
End Sub
[……]
CODE SEGMENT
ASSUME CS:CODE
MAIN: MOV AH,1
INT 21H
MOV BL,AL
INT 21H
MOV CL,AL
INT 21H
MOV CH,AL
MOV AH,2
 [……]
code segment
assume cs:code
main:mov ah,1
int 21h
MOV BL,AL
MOV AH,2
MOV DL,13
INT 21H
MOV DL,10
INT 21H
cmp BL,41h
&#[……]
data segment
buf db 100,101 dup(0)
buf1 db ‘qing shu ru’,13,10,'(ge shu zai 100 yi nei)=’,’$’
data ends
code segment
assume ds:data,cs:code
main:mov dx,data
mov ds,dx
lea dx,[buf1]
mov ah,9
int 21h
l[……]
data segment
int1 db ‘935797238’,13,10,24h
int2 db ‘843758912’,13,10,24hdata ends
code segment
assume cs:code,ds:data
main: mov ax,data
mov ds,ax
lea dx,[int1]
mov ah,9
int 21h
 [……]
；设变量int1和int2的定义如下
；int1 ‘935797238’
；int2 ‘843758912’
；编写程序段把int1和int2中以字符串形式存放的两个长整数相加，结果仍然以同样的形式放会变量int1中，不计溢出！
data segment
int1 db ‘935797238’,13,10,24h
int2 db ‘843758912’,13,10,24h
data ends
code segment
assume cs:code,ds:data
main: mov ax,data
mov ds,ax
&#[……]
data segment
buf db ‘THE ASCII CODE OF[‘,’$’
buf1 db ‘] IS ‘,’$’
buf2 db 13,10,’$’
data ends
code segment
assume cs:code,ds:data
main:mov ax,data
mov ds,ax
lea dx,[buf]
mov ah,9;输入提示
int 21h
mov ah,1;输入
int 21h
mov ah,0
mov bl,10h
div bl
mov bx,a[……]
data segment
int1 db 30,31 dup(0),’$’
int2 db 30,31 dup(0),’$’
space db 13,10,’$’
data ends
code segment
assume cs:code,ds:data
main:mov dx,data
mov ds,dx
lea dx,[int1]
mov ah,10
int 21h
[……]
data segment
buf1 db ‘shu ru yi ge dan ci,jieguo:huo ba kong ge shan diao’,13,10,’$’
int1 db 100,101 dup(0),’$’
buf db 100,101 dup(0),’$’
data ends
code segment
assume cs:code,ds:data
main:mov dx,data
mov ds,dx
lea dx,[buf1]
mov ah,9
&[……]
stack1 segment stack
dw 32 dup(0)
stack1 ends
code segment
assume cs:code,ss:stack1
main:mov cx,5
mov si,5
mov bx,9
main1:call space
call string
loop main1:
mov ax,4c00h
&[……]
现在汇编忘记的查不多了~
data segment
passw db ‘123456’
buf db 80,81 dup(0)
disp1 db 13,10,’password is true.try time=$’
disp2 db 13,10,’password is ereer.$’
data ends
code segment
assume cs:code,ds:data
main:mov ax,data
mov ds,ax
mov es,ax
mov bl,0
again:[……]
Private Sub Command1_Click()
Dim nian, yue, ri As Integer
Dim sfzh As String
sfzh = Text1.Text
nian = Mid(sfzh, 7, 4)
yue = Mid(sfzh, 11, 2)
riri = Mid(sfzh, 13, 2)
[……]
Private Sub Command1_Click()
Dim a, b, mj, zhch As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a = 0 Or b = 0 Then
MsgBox "你见过没有长或宽的矩形吗", vbOKOnly, "提示"
Else
zhch = (a + b) * 2
Text4.Text = zhch
mj = a * b
Text3.Text = mj
End If
End Sub
[……]
Private Sub Command1_Click()
Dim name, mima As Single
name = Text1.Text
mima = Val(Text2.Text)
If name = "abc" And mima = 123456 Then
MsgBox "登陆成功", vbOKOnly, "恭喜你。。"
Else
MsgBox "登录失败", vbOKOnly, "提示"
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
If name <> "abc" Or mima <> 123 Then[……]
玩趣儿
最新评语