- Tech
- UTF-8 with stealing Google data
</ TITLE> <meta http-equiv = "Content-Type" content = "text / html; charSet = GB2312"> </ head> <body> <script language = vbscript> <! - mystr = "http://www.google.com/search?hl=zh-cn&ie=utf -8 & q = Visual Basic 6.0% E4% B8% AD% E6% 96% 87% E7% 89% 88% E5% AE% 9E% E7% 94% A8% E5% 8F% 82% E8% 80% 83 % E6% 89% 8B% E5% 86% 8C & BTNG =% E6% 90% 9C% E7% B4% A2 & lr = Lang_ZH-CN "Function Getutf8 (x) 'This function is part of the% number,' input condition Yes "" http://www.google.com/search?hl=en&ie=utf-8&oe=utf-8&q=关键字 &BTNG=google Search " DIM FIRST, LAST A = Split (x, "&") 'Defines a temporary array DIM i = 0' temporary pointer for i = 0 to Ubound (a) if INSTR (A (i), "%") > 0 THEN FIRST = INSTR (A (i), "%") Last = INSTRREV (A (i), "%") getutf8 = getutf8 & mid (A (i), first, last-first 3) endiff Next getf8 = right (getf8, len (getutf8) -1) 'removes the%' msgbox getf8nd function in the left</p>
<p>MSGBOX U8TOU (GetF8 (MySTR))</p>
<p>Function C16TO2 (X) 'This function is used to convert 16 enrollment to 2, which can be any length. When it is generally converted to UTF-8, it is two lengths, such as A9', such as: input "C2", transformation "11000010", 1100 is "c" is a 12 (1100) of 10 (1100), then 2 (10) is less than 4 digits to supplement (0010). DIM TEMPSTR DIM I: I = 0 'Temporary Pointer for i = 1 To Len (Trim (x)) Tempstr = C10to2 (CINT (INT ("& H" & MID (X, I, 1))) DO While Len (Tempstr) <4 Tempstr = "0" & Tempstr 'If less than 4 bits are then completed 4 digits LOOP C16TO2 = C16TO2 & TEMPSTEND FUNCTION'DOCUMENT.WRITE HEX (ASC ("Word") & "<BR /> "</p>
<p>Function U8TOU (X) 'Enter a pile of% separate strings, first divided into array, determined according to UTF8 rules to determine the completion rule' input: Off E5 85 B3 key E9 94 AE word E5 AD 97 'output: Off B9D8 key BCFC Word D7D6 DIM WEIS 'To determine the first encoded bit number Dim Unicode' binary Unicode code DIM alpha 'defines a single character a = split (x, "%")' Define a temporary array DIM i = 0 'temporary Pointer DIM J: J = 0 'Temporary Pointer for i = 0 to Ubound (A) A (i) = C16TO2 (A (i))' The first cycle, first convert to 2 credit, Next for i = 0 to Ubound (a) -1 weis = INSTR (A (i), "0") 'Judging the first time 0 position,' may be 1 (single byte), 3 (3-1 bytes), 4, 5, 6, 7 cannot be 2 and greater than 7 'theory to 7, do not exceed 3. Unicode = "" for j = 1 to weis-1 if j = 1 THEN A (i) = Right (A (i), len (a (i)) - weis) 'First remove the leftmost Weis unicode = Unicode & A (i) ELSE I = i 1 a (i) = Right (A (i), LEN (A (i)) - 2) 'The rest of the left two unicode = Unicode & A (i ) End if next if len (c2to16 (unicode)) = 4 THEN U8TOU = U8Tou & Chrw (Int ("& H" & C2to16 (Unicode))) "Finally, Mom! ! Else U8TOU = U8TOU & CHR (Int ("& H" & C2to16 (Unicode))) "Finally, Mom! ! END IF NEXT END FUNCTION'MSGBOX C2TO16 ("11100101") Function C2TO16 (X) '2 into 16-based conversion, converted to a 16-en-generated letter every 4 0 or 1, and the input length is of course not 4 The multiple of the multiple DIM I: I = 1 'temporary pointer for i = 1 to len (x) Step 4 C2TO16 = C2TO16 & HEX (C2TO10 (MID (x, i, 4)) NEXTEND FUNCTION</p>
<p>Function C2TO10 (X) 'Simple 2 is entered into 10-based conversion, regardless of the 4-digit zero complement of the transfer 16 propan. 'Because this function is useful! It will be used later, people who have made communications and hardware should know. 'Use string to represent binary C2TO10 = 0 if x = "0" Then EXIT FUNCTION' If it is 0, it is 0 to do DIM i: i = 0 'temporary pointer for i = 0 to len (x) -1 'Otherwise, using the 8421 yard calculation, this will be the time when I start working on the computer, I miss the Mr. Xie Jian Lao, who first taught us! IF MID (X, LEN (X) -i, 1) = "1" THEN C2TO10 = C2TO10 2 ^ (i) Next End FunctionFunction C10to2 (x) '10 Encomnsive Translation DIM SIGN, Result Result = "" "'Symbol SIGN = SGN (X) x = ABS (x) IF x = 0 THEN C10TO2 = 0 exit function endiff</p>
<p>DO Until X = "0" Result = Result & (X MOD 2) x = x / 2 loop</p>
<p>Result = strreverse (result) if sign = -1 THEN C10to2 = "-" & results ELSE C10to2 = Result End Else C10to2 = Result End End Function -> </ script> </ body> </ html></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-104965.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="104965" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.029</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'VWOS4lqHLSajpUA6_2FbKmr_2B_2B5Iu_2B6XoZ9Xmkp3q9jOWPdKzTV6ZJIli2njrfSy0xMLPYXYMnT7CwiFrbDybWChw_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script> 
